fact: Definition ap_code_glue (x1 : X) (y1 : Y) (q11 : Q x1 y1) : transport (fun p : SPushout Q => left x0 = p -> Type) (glue q11) codeleft = coderight.
imports: HoTT.Basics HoTT.Types Colimits.Pushout Colimits.SpanPushout Homotopy.Join.Core Truncations