(** Starting from a well-defined state, an internal execution retains the well-definedeness for any injection that corresponds to the domain of the new memory. *)

Lemma suspend_tp_wd:
forall m tpc tpc' (f : memren) i (pfc : containsThread tpc i)
(Hsuspend: suspend_thread m pfc tpc')
(Htp_wd: tp_wd f tpc),
tp_wd f tpc'.