{x : A} `{!IsComonoidObject x} : associator x x x $o fmap01 tensor x co_comult $o co_comult $== fmap10 tensor co_comult x $o co_comult. Proof. refine (cat_assoc _ _ _ $@ _). apply cate_moveR_Me. symmetry. exact (mo_assoc (A:=A^op) (tensor:=tensor) (unit:=unit) (x:=x)). Defined.
Require Import Basics.Overture Basics.Tactics. Require Import WildCat.Core WildCat.Equiv WildCat.Monoidal WildCat.Bifunctor Require Import abstract_algebra.