proposition: Lemma all_infiniteF_mono' {E A} : monotone1 (@all_infinite_ E A).
proof: Proof. unfold all_infinite_. red. intros. eapply all_infiniteF_mono; eauto. Qed.
imports: Coq(Setoid Morphisms RelationClasses) Paco(paco) ITree(Axioms Basics Core.ITreeDefinition Eq.Eqit Eq.Shallow)