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