(** ***Lemmas about suspend steps*)

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