let declare v _ =
let t = Ctypes.object_of v.vtype in
let h =
if v.vglob then RtLib.rt_global (name_of_var v)
else F.p_true
in
let sz = sizeof_c_object t in
let size = RtLib.rt_vsize (name_of_var v) in
let h_size = F.p_eq size (Tint.term_of_xsize sz) in
let h = F.p_and h h_size 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