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)))