Proof using.
set_up_net_handlers;
eauto using
locks_correct_update_true, locks_correct_locked_at_head,
all_clients_false_locks_correct_server_update, empty_queue_all_clients_false,
locks_correct_at_head_preserved, snoc_at_head_of_queue_preserved,
all_clients_false_locks_correct_server_update, unlock_in_flight_all_clients_false.
Qed.

(* Specifications: *)
Lemma locks_correct_unlock_sent_lock :
forall sigma p,
pBody p = Lock ->
locks_correct_unlock sigma p.
Lemma locks_correct_unlock_sent_lock :
forall sigma p,
pBody p = Lock ->
locks_correct_unlock sigma p.