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