let declare f _ =
         let foff = Tint.toffset_of_field ~mode:CIMterms f in
         let off = Tint.toffset_of_field ~mode:CIMvalues f in
         let hoff = F.p_eq foff off in

         let fsz = Tint.tsize_of_field ~mode:CIMterms f in
         let sz = Tint.tsize_of_field ~mode:CIMvalues f in
         let hsz = F.p_eq fsz sz in
         let h = F.p_and hoff hsz in

         let t = Ctypes.object_of  f.ftype in
         let fformat = RtLib.rt_fformat (name_of_field f) in
         let h = add_int_format_hyp fformat t h in

           Formula.Axiom h