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

Lemma yesat_raw_join:
forall pp k (sh1 sh2 sh3: Share.t) rsh1 rsh2 rsh3 l phi1 phi2 phi3,
join sh1 sh2 sh3 ->
yesat_raw pp k sh1 rsh1 l phi1 ->
yesat_raw pp k sh2 rsh2 l phi2 ->
join phi1 phi2 phi3 ->
yesat_raw pp k sh3 rsh3 l phi3.