fact: Definition codeglue4 : O (Pushout codeleft01 Ocodeleft02) <~> O (Pushout (fun x : Ocodeleft2a => pushr' codeleft01 Ocodeleft02b (Ocodeleft2ab x)) Ocodeleft2ac) := equiv_O_functor O (equiv_inverse (equiv_pushout_assoc _ _ _ _)).
imports: HoTT.Basics HoTT.Types Colimits.Pushout Colimits.SpanPushout Homotopy.Join.Core Truncations