fact: Record RelEquiv A B := { equiv_rel : A -> B -> Type; relequiv_contr_f : forall a, Contr { b : B & equiv_rel a b }; relequiv_contr_g : forall b, Contr { a : A & equiv_rel a b } }.
imports: HoTT.Basics HoTT.Types