(*+ Intuition of "bad oracle" rule *)

(* Specifications: *)
Lemma safeN_oracle_step_rev_false_ n m l k R mlock :
islock l R m ->
~ R mlock ->
(forall Ω, safeN_ oracle_at_ext_old (S n) (cons mlock Ω) (acquire l k) m).
Lemma safeN_oracle_step_rev_nil_ n m l k R :
islock l R m ->
safeN_ oracle_at_ext_old (S n) nil(acquire l k) m.