fact: Definition cate_inv_adjointify {A} `{HasEquivs A} {a b : A} (f : a $-> b) (g : b $-> a) (r : f $o g $== Id b) (s : g $o f $== Id a) : cate_fun (cate_adjointify f g r s)^-1$ $== g.
imports: Basics.Utf8 Basics.Overture Basics.Tactics WildCat.Core