(** or it wasn't and the operation denoted by the event implies the permission*)
(** *** Properties about permission decay and events *)

Lemma lockRes_mklock_step:
forall U tr tp m U' tp' m' tr' laddr rmap
(Hres: lockRes tp laddr = None)
(Hres': lockRes tp' laddr = Some rmap)
(Hstep: MachStep (U, tr, tp) m (U', tr ++ tr', tp') m'),
exists ev,
tr' = [:: ev] /\ action ev = Mklock /\
location ev = Some (laddr, lksize.LKSIZE_nat) /\
lockRes tp' laddr = Some (empty_map, empty_map).