(P : Type) (pb : P) (pla plb : pb = pb) (ps : PathSquare pla pla plb plb) : PathCube (sq_ap (Torus_rec P pb pla plb ps) surf) ps (Torus_rec_beta_loop_a P pb pla plb ps) (Torus_rec_beta_loop_a P pb pla plb ps) (Torus_rec_beta_loop_b P pb pla plb ps) (Torus_rec_beta_loop_b P pb pla plb ps). Proof. Admitted. Global Instance ispointed_torus : IsPointed Torus := tbase.
Require Import Basics.Overture Basics.Equivalences Cubical.DPath