(P : Torus -> Type) (pb : P tbase) (pla : DPath P loop_a pb pb) (plb : DPath P loop_b pb pb) (ps : DPathSquare P surf pla pla plb plb) (x : Torus) : P x := (match x with tbase => fun _ _ _ => pb end) pla plb ps.
Require Import Basics.Overture Basics.Equivalences Cubical.DPath