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_access :
    string ->
    Data_mem.Create.F.pool ->
    string ->
    string ->
    Data_mem.Create.F.var list ->
    M.m_of_mem M.F.term -> M.loc -> 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