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

Lemma gsoThreadRes {i j tp} (cnti: containsThread tp i)
(cntj: containsThread tp j) (Hneq: i <> j) c' p'
(cntj': containsThread (updThread cnti c' p') j) :
getThreadR cntj' = getThreadR cntj.