fact: Definition codeglue2_pushl (s : x0 = x1) (v : ap left s = r) : codeglue2 (to O _ (pushl (to O _ (s;v)))) = to O _ (pushl (to O _ (s;v))) := to_O_equiv_natural _ _ _.
imports: HoTT.Basics HoTT.Types Colimits.Pushout Colimits.SpanPushout Homotopy.Join.Core Truncations