proposition: Fact fail_all_finite: all_finite fail.
proof: Proof. unfold fail. apply all_finite_Vis; intros []. Qed.
imports: ITree(ITree Basics.Utils Eq.Eqit Interp.TranslateFacts Leaf) ITree.Events(Nondeterminism Exception) Paco(paco) Coq(Morphisms Basics Program.Equality)