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).