fact: Definition moveR_equiv_V_0gpd {G H : ZeroGpd} (f : G $<~> H) (x : H) (y : G) (p : x $== equiv_fun_0gpd f y) : equiv_fun_0gpd f^-1$ x $== y := fmap (equiv_fun_0gpd f^-1$) p $@ cat_eissect f y.
imports: Basics.Overture Basics.Tactics WildCat.Core WildCat.Equiv WildCat.EquivGpd WildCat.Prod