{A} (P : A -> Type) {a00 a10 } {px0 px1 : a00 = a10} {p : px0 = px1} {b00 b10} (qx0 : DPath P px0 b00 b10) (qx1 : DPath P px1 b00 b10) : DPath (fun x => DPath P x b00 b10) p qx0 qx1 <~> DPathSquare P (sq_G1 p) qx0 qx1 1 1. Proof. destruct p, px0. apply sq_G1. Defined.
Require Import Basics. Require Import Types.Paths. Require Import Cubical.DPath. Require Import Cubical.PathSquare.