(x : Cyl h) : PathSquare (ap pr_cylcoeq (cglue x)) (cglue (pr_cyl x)) (ap coeq (pr_functor_cyl p x)) (ap coeq (pr_functor_cyl q x)). Proof. apply sq_path. apply moveR_pM. rewrite <- (ap_V coeq). rapply functor_coeq_beta_cglue. Defined.
Require Import HoTT.Basics Cubical.DPath Cubical.PathSquare. Require Import Colimits.Pushout.