fact: Definition PentagonLaw `{Associator} (a b c d : C) := (assoc (a ⊗ b, c, d)) $o (assoc (a, b, c ⊗ d)) $== (fmap (flip tensor d) (assoc (a, b, c))) $o assoc (a, b ⊗ c, d) $o (fmap (tensor a) (assoc (b, c, d))).
imports: Basics.Utf8 Basics.Overture Basics.Tactics Types.Forall WildCat.Core WildCat.Prod WildCat.Bifunctor WildCat.Equiv WildCat.NatTrans