Definition make_GHOSTspec:
forall A (sh : share) (rsh: readable_share sh) loc (x: A) (lev: nat),
exists m: rmap, GHOSTspec A x sh loc m /\ level m =  lev.

Lemma make_ghostp:
forall A (x: A)  loc (lev: nat),
exists m : rmap, ghostp Share.top loc x m /\ level m = lev.