fact: Definition catie_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) : CatIsEquiv f := catie_adjointify' a b f g r s.
imports: Basics.Utf8 Basics.Overture Basics.Tactics WildCat.Core