fact: Record RetractOf {X : Type} := { retract_type : Type ; retract_retr : X -> retract_type ; retract_sect : retract_type -> X ; retract_issect : retract_retr o retract_sect == idmap }.
imports: HoTT.Basics HoTT.Types HFiber Constant Truncations.Core Modalities.Modality PathAny