forall (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), DPathSquare P hr (apD (Torus_ind P pb pla plb ps) (loop_b)) plb 1%dpath 1%dpath.
Require Import Basics.Overture Basics.Equivalences Cubical.DPath