Global Program Instance map_PCM : Ghost := { valid a := True; Join_G := map_join }.Instance fmap_order : PCM_order map_incl.

Lemma map_join_incl_compat : forall m1 m2 m' m'' (Hincl : map_incl m1 m2) (Hjoin : join m2 m' m''), exists m, join m1 m' m /\ map_incl m m''.