Module Funvar_mem.Create.Model


module Model: sig .. end

module F: M.F
module A: M.A
module R: M.R

type loc =
| Path of Funvar_mem.Create.Lookup.path
| PRef of Funvar_mem.Create.Lookup.path
| ARef of Funvar_mem.Create.Lookup.path
| PRpar of Funvar_mem.Create.Lookup.path * int
| ARpar of Funvar_mem.Create.Lookup.path * int
| Mloc of M.loc
val pp_ref : string ->
Format.formatter -> Funvar_mem.Create.Lookup.path -> int option -> unit
val pp_loc : Format.formatter -> loc -> unit
val cast_loc_to_int : Cil_types.typ -> loc -> Ctypes.c_int -> M.F.integer
val cast_int_to_loc : Ctypes.c_int -> M.F.integer -> Cil_types.typ -> loc
val mloc_of_loc : loc -> M.loc
val loc_of_term : Ctypes.c_object -> M.F.abstract -> loc
val term_of_loc : loc -> M.F.abstract
val null : loc
val is_null : loc -> M.F.boolean
val root_equal : Funvar_mem.Create.Lookup.root -> Funvar_mem.Create.Lookup.root -> bool
val op_loc : (M.loc -> M.loc -> 'a) ->
(Funvar_mem.Create.Lookup.F.integer ->
Funvar_mem.Create.Lookup.F.integer -> 'a) ->
loc -> loc -> 'a
val minus_loc : loc -> loc -> M.F.integer
val lt_loc : loc ->
loc -> F.pred
val le_loc : loc ->
loc -> F.pred
val le_loc_bool : loc -> loc -> M.F.boolean
val lt_loc_bool : loc -> loc -> M.F.boolean
val equal_loc_bool : loc -> loc -> M.F.boolean
val equal_loc : loc ->
loc -> F.pred
val tau_of_loc : Formula.tau