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