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

Lemma tp_wd_domain: forall f f' m (tp : t), tp_wd f tp -> domain_memren f m -> domain_memren f' m -> tp_wd f' tp.