fact: Parameter mrec_as_interp : forall {D E T} (ctx : D ~> itree (D +' E)) (d : D T), mrec ctx d ≈ interp (mrecursive ctx) (ctx _ d).
imports: Coq(Setoid Morphisms) ITree(Eq.Shallow) ITree.Core.ITreeDefinition ITree.Basics.Basics ITree.Indexed.Sum ITree.Interp.Interp ITree.Interp.Recursion