fact: Definition loops_type `{Univalence} (A : Type@{i}) : loops [Type@{i}, A] <~>* [A <~> A, equiv_idmap].
imports: HoTT.Basics HoTT.Types HFiber Factorization Truncations.Core Truncations.Connectedness HProp Pointed.Core Pointed.pEquiv WildCat Spaces.Nat.Core