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