Proof using.
set_up_net_handlers;
eauto using locks_correct_locked_sent_lock, nwnw_locked_lock,
locks_correct_locked_at_head_preserved, snoc_at_head_of_queue_preserved,
nwnw_unlock_lock, nil_at_head_of_queue_preserved.
Qed.

(* Specifications: *)
Lemma locks_correct_unlock_net_handlers_new :
forall p sigma u st' out ms q,
NetHandler (pDst p) (pSrc p) (pBody p) (sigma (pDst p)) = (u, out, st', ms) ->
locks_correct sigma ->
In (pDst q, pBody q) ms ->
locks_correct_unlock (update name_eq_dec sigma (pDst p) st') q.
Lemma locks_correct_unlock_net_handlers_new :
forall p sigma u st' out ms q,
NetHandler (pDst p) (pSrc p) (pBody p) (sigma (pDst p)) = (u, out, st', ms) ->
locks_correct sigma ->
In (pDst q, pBody q) ms ->
locks_correct_unlock (update name_eq_dec sigma (pDst p) st') q.