sig
  val add_axiom :
    string -> Lexing.position option -> string -> string -> F.pred -> unit
  val on_array : (Ctypes.arrayinfo -> unit) -> unit
  val on_record : (Cil_types.compinfo -> unit) -> unit
  val define : Ctypes.c_object -> unit
  val define_array : Data_mem.Create.F.Arrayinfo.t -> unit
  val define_comp : Data_mem.Create.F.Compinfo.t -> unit
end