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

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.