fact: Definition whiskerRT {f : x $<~> x20} (s : Square f01 f21 f10 f12) : Square f01 (f21 $o f) (f^-1$ $o f10) f12 := cat_assoc _ _ _ $@ (f21 $@L compose_h_Vh _ _) $@ s.
imports: Basics.Overture WildCat.Core WildCat.Equiv