{A} (P : A -> Type) {a00 a10 a01 a11} {px0 : a00 = a10} {px1 : a01 = a11} {p0x p1x} (s : PathSquare px0 px1 p0x p1x) {b00 b10 b01 b11} (qx0 : DPath P px0 b00 b10) (qx1 : DPath P px1 b01 b11) (q0x : DPath P p0x b00 b01) (q1x : DPath P p1x b10 b11) : Type. Proof. destruct s. exact (PathSquare qx0 qx1 q0x q1x). Defined.
Require Import Basics. Require Import Types.Paths. Require Import Cubical.DPath. Require Import Cubical.PathSquare.