fact: Record Ocodeleft2a := { Ocodeleft2a_s : x0 = x1 ; Ocodeleft2a_q01 : Q x0 y1 ; Ocodeleft2a_w : transport (fun x => Q x y1) Ocodeleft2a_s Ocodeleft2a_q01 = q11 ; Ocodeleft2a_u : glue Ocodeleft2a_q01 @ (glue q11)^ = r }.
imports: HoTT.Basics HoTT.Types Colimits.Pushout Colimits.SpanPushout Homotopy.Join.Core Truncations