{A : Type} `{IsGraph A} (a : A) : A -> Type := fun b => (a $-> b). Global Instance is0functor_opyon {A : Type} `{Is01Cat A} (a : A) : Is0Functor ( a). Proof. apply Build_Is0Functor. unfold ; intros b c f g; cbn in *. exact (f $o g). Defined.
Require Import Basics.Overture Basics.Tactics. Require Import WildCat.Core. Require Import WildCat.Equiv. Require Import WildCat.Universe. Require Import WildCat.Opposite. Require Import WildCat.FunctorCat. Require Import WildCat.NatTrans. Require Import WildCat.Prod. Require Import WildCat.Bifunctor. Require Import WildCat.ZeroGroupoid.