proposition: Lemma ZOOOPST_cons_elim : forall A B C x y, @zero_or_one_outputs_per_step_trace A B C (x :: y) -> zero_or_one_outputs_per_step x /\ zero_or_one_outputs_per_step_trace y.
proof: Proof. Proof using. intuition eauto using ZOOOPST_head, ZOOOPST_tail. Qed.
imports: Verdi(Verdi HandlerMonad)