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