fact: Definition fracture_glue_uncurried : { B : Type_ O1 & { C : Type_ O2 & C -> O2 B }} -> Type := fun BCf => Pullback BCf.2.2 (to O2 BCf.1).
imports: HoTT.Basics HoTT.Types Extensions Limits.Pullback Modality Lex Open Closed Nullification