{A B : Type} {a a' : A} {b b' : B} (p : a = a') (q : b = b') : PathSquare (jglue a b) (jglue a' b') (ap joinl p) (ap joinr q). Proof. destruct p, q. apply sq_refl_h. Defined.
Require Import Basics Types. Require Import Cubical.DPath Cubical.PathSquare. Require Import NullHomotopy. Require Import Extensions. Require Import Colimits.Pushout. Require Import Truncations.Core Truncations.Connectedness. Require Import Pointed.Core. Require Import WildCat. Require Import Spaces.Nat.Core.