fact: Definition fracture_unglue : Type -> { B : Type_ O1 & { C : Type_ O2 & C -> O2 B }} := fun A => ((O1 A ; O_inO A) ; ((O2 A ; O_inO A) ; O_functor O2 (to O1 A))).
imports: HoTT.Basics HoTT.Types Extensions Limits.Pullback Modality Lex Open Closed Nullification