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

Lemma yesat_join:
forall pp k sh1 sh2 sh3 l m1 m2 m3,
join sh1 sh2 sh3 ->
yesat pp k sh1 l m1 ->
yesat pp k sh2 l m2 ->
join m1 m2 m3 ->
yesat pp k sh3 l m3.