Definition tp_wd (f: memren) (tp : t) : Prop :=
forall i (cnti: containsThread tp i),
ctl_wd f (getThreadC cnti).

Lemma tp_wd_remLock :
forall (tp : t) (f : memren) (addr : address)
(Htp_wd: tp_wd f tp),
tp_wd f (remLockSet tp addr).