(* useful when we only want to deal with full masters *)
Definition ghost_master1 a p := ghost_master Tsh a p.

(* Specifications: *)
Lemma snap_master_join1 : forall v1 v2 p,
ghost_snap v1 p * ghost_master1 v2 p = !!(ord v1 v2) && ghost_master1 v2 p.
Lemma snap_master_update1 : forall v1 v2 p v', ord v2 v' ->
ghost_snap v1 p * ghost_master1 v2 p |-- |==> ghost_snap v' p * ghost_master1 v' p.