let declare v _ =
let t = Ctypes.object_of v.vtype in
let h =
if v.vglob then
let h_glob = RtLib.rt_global (name_of_var v) in
let sz = sizeof_c_object t in
let gsize = RtLib.rt_gsize (name_of_var v) in
let h_size = F.p_eq gsize (Tint.term_of_xsize sz) in
F.p_and h_glob h_size
else F.p_true
in
let vformat = RtLib.rt_vformat (name_of_var v) in
let h = add_int_format_hyp vformat t h in
(* TODO: size info might be redondant with format... *)
(* TODO: format for other types... *)
Formula.Axiom h