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.