Definition same_except_cur (m m' : Mem.mem) :=
  Mem.mem_contents m = Mem.mem_contents m' /\
  max_access_at m = max_access_at m' /\
  Mem.nextblock m = Mem.nextblock m'.

Lemma exclusive_joins_false R phi1 phi2 : exclusive_mpred R -> app_pred R phi1 -> app_pred R phi2 -> joins phi1 phi2 -> False.