Proof using.
intros.
destruct (held (sigma (Client c))) eqn:?; auto.
firstorder.
find_copy_apply_lem_hyp locks_correct_true_at_head_of_queue; auto.
unfold at_head_of_queue in *. break_exists.
congruence.
Qed.

Lemma locks_correct_locked_sent_lock :
forall sigma p,
pBody p = Lock ->
locks_correct_locked sigma p.