{A} `{HasEquivs A} {a b : A} {e f : a $<~> b} (p : cate_fun e $== cate_fun f) : cate_fun e^-1$ $== cate_fun f^-1$. Proof. apply cate_moveL_V1. exact ((p^$ $@R _) $@ cate_isretr _). Defined.
Require Import Basics.Utf8 Basics.Overture Basics.Tactics Basics.Equivalences. Require Import WildCat.Core. Require Import WildCat.Opposite.