fact: Fixpoint Kleene_left_id {I O} (F : I ▷ O) (p q : I → Type) (f : p :→ F :* q) (i : I) (m : (F :* p) i) : Kleene_extend F (λ H : I, Ret) i m = m.
imports: Hask.Ltac Coq.Program.Equality Coq.Unicode.Utf8 FunctionalExtensionality Iso Tuple