Arguments InA {A}{eqA} x _.
Arguments AMap.In {elt} x m.

Lemma gsoThreadCode:
forall {i j tp} (Hneq: i <> j) (cnti: containsThread tp i)
(cntj: containsThread tp j) c' p'
(cntj': containsThread (updThread cnti c' p') j),
getThreadC cntj' = getThreadC cntj.