Corollary gsoThreadC_suspend:
    forall m tp tp' i j (cnt: containsThread tp i) (cntj: containsThread tp j)
      (cntj': containsThread tp' j) (Hneq: i <> j)
      (Hsuspend: suspend_thread m cnt tp'),
      getThreadC cntj = getThreadC cntj'.

Lemma safeC_compatible: forall tpc trc mc n (Hn: n > 0) (Hsafe: forall U, HybridCoarseMachine.csafe (U,trc,tpc) mc n), mem_compatible tpc mc.