fact: Definition has_post {E X} (t : itree E X) (Q : X -> Prop) : Prop := eutt (fun 'x _ => Q x) t t.
imports: Paco(paco) Coq(Morphisms) ITree(Basics.Utils ITree Eq.Eqit Basics.HeterogeneousRelations Interp.TranslateFacts)