fact: Definition are_inv (f : A -> B) (g : B -> A) : Prop := forall (a:A) (b:B), g(f(a)) = a /\ f(g(b)) = b.
imports: Coq(Relation_Definitions Morphisms) Relational(OrderEnrichedCategory OrderEnrichedRelativeMonadExamples) Mon(SPropBase) mathcomp(all_ssreflect boolp)