fact: Definition left_assoc : C -> C -> C -> C := fun a b c => tensor (tensor a b) c.
imports: Basics.Utf8 Basics.Overture Basics.Tactics Types.Forall WildCat.Core WildCat.Prod WildCat.Bifunctor WildCat.Equiv WildCat.NatTrans