fact: Definition Isomorphism : TypeWithRelation -> TypeWithRelation -> Type := fun '(A; R__A) '(B; R__B) => { f : A <~> B & forall a a', R__A a a' <-> R__B (f a) (f a') }.
imports: HoTT(TruncType ExcludedMiddle Modalities.ReflectiveSubuniverse abstract_algebra) HoTT(PropResizing.PropResizing) HoTT(Colimits.Quotient) HoTT(HSet)