{x : A} `{!IsComonoidObject x} : x $-> unit := mo_unit (A:=A^op) (tensor:=tensor) (unit:=unit) (x:=x).
Require Import Basics.Overture Basics.Tactics. Require Import WildCat.Core WildCat.Equiv WildCat.Monoidal WildCat.Bifunctor Require Import abstract_algebra.