Proof using.
set_up_net_handlers;
auto using locks_correct_unlock_sent_locked.
Qed.

(* Specifications: *)
Lemma locks_correct_locked_intro :
forall sigma p c t st',
pDst p = Client c ->
held (sigma (Client c)) = false ->
queue st' = c :: t ->
locks_correct_locked (update name_eq_dec sigma Server st') p.
Lemma locks_correct_locked_intro :
forall sigma p c t st',
pDst p = Client c ->
held (sigma (Client c)) = false ->
queue st' = c :: t ->
locks_correct_locked (update name_eq_dec sigma Server st') p.