Program Definition noghost : pred rmap := fun m => identity (ghost_of m).
Next Obligation.

Lemma allp_jam_overlap: forall (P Q: address -> Prop) (p q: address -> pred rmap)
(P_DEC: forall l, {P l} + {~ P l})
(Q_DEC: forall l, {Q l} + {~ Q l}),
(exists resp, is_resource_pred p resp) ->
(exists resp, is_resource_pred q resp) ->
(forall l w1 w2, p l w1 -> q l w2 -> joins w1 w2 -> False) ->
(exists l, P l /\ Q l) ->
allp (jam P_DEC p noat) * allp (jam Q_DEC q noat) |-- FF.