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

Lemma ctl_wd_domain:
forall f f' m (c : ctl),
ctl_wd f c ->
domain_memren f m ->
domain_memren f' m ->
ctl_wd f' c.