proposition: Lemma case_r {A B: Type} (ab: Kleisli m A (B + void)) : ab >>> unit_r ⩯ map unit_r ab.
proof: Proof. rewrite unit_r_pure. reflexivity. Qed.
imports: Coq(Program Setoid Morphisms RelationClasses) ExtLib(Structures.Monad) ITree(Basics.Basics Basics.Category Basics.Monad Basics.CategoryFunctor Basics.CategoryKleisli Basics.Function)