fact: Definition Either_map {E X Y} (f : X → Y) (x : Either E X) : Either E Y := match x with | Left e => Left e | Right x' => Right (f x') end.
imports: Category.Lib Category.Theory.Coq.Functor Category.Theory.Coq.Applicative Category.Theory.Coq.Monad