fact: Definition TriangleLaw {assoc : Associator} `{LeftUnitor} `{RightUnitor} (a c : C) := fmap (tensor a) (left_unitor c) $== fmap (flip tensor c) (right_unitor a) $o assoc (a, I, c).
imports: Basics.Utf8 Basics.Overture Basics.Tactics Types.Forall WildCat.Core WildCat.Prod WildCat.Bifunctor WildCat.Equiv WildCat.NatTrans