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

Lemma gssLockSet:
forall tp b ofs rmap ofs',
(ofs <= ofs' < ofs + Z.of_nat lksize.LKSIZE_nat)%Z ->
(Maps.PMap.get b (lockSet (updLockSet tp (b, ofs) rmap)) ofs') =
Some Memtype.Writable.