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.