proposition: Lemma locks_correct_locked_input_handlers_new : forall h i sigma u st' out ms p, InputHandler h i (sigma h) = (u, out, st', ms) -> In (pDst p, pBody p) ms -> locks_correct_locked (update name_eq_dec sigma h st') p.
proof: Proof. Proof using. set_up_input_handlers; auto using locks_correct_locked_sent_lock, locks_correct_locked_sent_unlock. Qed.
imports: Verdi(Verdi HandlerMonad) StructTact(Fin) Verdi(StatePacketPacketDecomposition)