(** [mem_compatible] is preserved by [suspend_thread]*)
  Corollary suspend_compatible:
    forall tp tp' m i (cnt: containsThread tp i)
      (Hcomp: mem_compatible tp m)
      (Hsuspend: suspend_thread m cnt tp'),
      mem_compatible tp' m.

Lemma gsoThreadC_blocked: forall (tp : t) i j (cntj : containsThread tp j) c (Hneq: i <> j) (cnti : containsThread tp i) (cntj' : containsThread (updThreadC cnti (Kblocked c)) j), getThreadC cntj = getThreadC cntj'.