fact: Definition rec {E : Type -> Type} {A B : Type} (body : A -> itree (callE A B +' E) B) : A -> itree E B := fun a => mrec (calling' body) (Call a).
imports: ITree(Basics.Basics Basics.Category Core.ITreeDefinition Indexed.Sum)