module LogicBuiltins:sig
..end
typecategory =
Wp.Lang.lfun Qed.Logic.category
type
kind =
| |
Z |
(* | integer | *) |
| |
R |
(* | real | *) |
| |
I of |
(* | C-ints | *) |
| |
F of |
(* | C-floats | *) |
| |
A |
(* | Abstract Data | *) |
val kind_of_tau : Wp.Lang.tau -> kind
val add_builtin : string -> kind list -> Wp.Lang.lfun -> unit
Add a new builtin. This builtin will be shared with all created drivers
type
driver
val driver : driver Wp.Context.value
val create : id:string ->
?descr:string -> ?includes:string list -> unit -> driver
Create a new driver. leave the context empty.
val init : id:string -> ?descr:string -> ?includes:string list -> unit -> unit
Reset the context to a newly created driver
val id : driver -> string
val descr : driver -> string
val is_default : driver -> bool
val compare : driver -> driver -> int
val find_lib : string -> string
find a file in the includes of the current drivers
val dependencies : string -> string list
Of external theories. Raises Not_found if undefined
val add_library : string -> string list -> unit
Add a new library or update the dependencies of an existing one
val add_alias : source:Lexing.position ->
string -> kind list -> alias:string -> unit -> unit
val add_type : source:Lexing.position ->
string -> library:string -> ?link:string Wp.Lang.infoprover -> unit -> unit
val add_ctor : source:Lexing.position ->
string ->
kind list ->
library:string -> link:Qed.Engine.link Wp.Lang.infoprover -> unit -> unit
val add_logic : source:Lexing.position ->
kind ->
string ->
kind list ->
library:string ->
?category:category ->
link:Qed.Engine.link Wp.Lang.infoprover -> unit -> unit
val add_predicate : source:Lexing.position ->
string ->
kind list ->
library:string -> link:string Wp.Lang.infoprover -> unit -> unit
val add_option : driver_dir:string -> string -> string -> library:string -> string -> unit
add a value to an option (group, name)
val set_option : driver_dir:string -> string -> string -> library:string -> string -> unit
reset and add a value to an option (group, name)
type
doption
typesanitizer =
driver_dir:string -> string -> string
val create_option : sanitizer:sanitizer ->
string -> string -> doption
add_option_sanitizer ~driver_dir group name
add a sanitizer for group group
and option name
val get_option : doption -> library:string -> string list
return the values of option (group, name), return the empty list if not set
type
builtin =
| |
ACSLDEF |
| |
LFUN of |
| |
HACK of |
val logic : Cil_types.logic_info -> builtin
val ctor : Cil_types.logic_ctor_info -> builtin
val constant : string -> builtin
val lookup : string -> kind list -> builtin
val hack : string -> (Wp.Lang.F.term list -> Wp.Lang.F.term) -> unit
Replace a logic definition or predicate by a built-in function. The LogicSemantics compilers will replace `Pcall` and `Tcall` instances of this symbol with the provided Qed function on terms.
val dump : unit -> unit