{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.
Require Import Basics.Overture. Require Import WildCat.Core. Require Import WildCat.Equiv.