Section Machine.
Context {ge : Clight.genv}.
Definition getLocksR (tp : jstate ge) := listoption_inv (map snd (AMap.elements (lset tp))).
Definition maps tp := (getThreadsR tp ++ getLocksR tp)%list.
(** * Results about handling threads' rmaps *)
Instance JSem : Semantics := ClightSemanticsForMachines.Clight_newSem ge.

Lemma eqtype_neq n i j cnti cntj :
i <> j ->
@eqtype.eq_op
(fintype.ordinal_eqType n)
(@fintype.Ordinal n i cnti)
(@fintype.Ordinal n j cntj)
= false.