fact: Definition id_pred {a : C} : a ⇒ a → hProp := λ f, make_hProp (f = identity _ ) (hsC a a _ _) .
imports: UniMath.Folds.UnicodeNotations UniMath.Foundations.PartD UniMath.Foundations.Propositions UniMath.Foundations.Sets UniMath.Foundations.UnivalenceAxiom UniMath.CategoryTheory.Core.Categories UniMath.Folds.folds_precat