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

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.