let declare x _ =
let pool = F.pool () in
let xa = F.fresh pool "ta" (Model t_alloc) in
let sx = sizeof (Ctypes.object_of x.vtype) in
let xk = D.Xindex.get_ind x in
let sa = D.e_app2 "access" (F.var xa) xk in
let gta = D.p_app1 "global" (F.var xa) in
Axiom (F.p_forall [xa] (F.p_implies gta (F.p_eq sa sx)))