Notation corestepN := (corestepN (AsmContext.coarse_semantics initU)).

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'.