mirrors/z3
3
0
Fork 0
mirror of https://github.com/Z3Prover/z3 synced 2025-06-20 21:03:39 +00:00
Code Activity

update ml api

Browse source 
Signed-off-by: Nikolaj Bjorner <nbjorner@microsoft.com>
This commit is contained in:
Nikolaj Bjorner 2023-01-31 19:24:45 -08:00
parent 1289937d1a
commit d51d518f96
2 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/api/ml/z3.ml
View file

@ -1738,7 +1738,10 @@ module Simplifier =
struct struct
type simplifier = Z3native.simplifier type simplifier = Z3native.simplifier
let gc = Z3native.context_of_simplifier let gc = Z3native.context_of_simplifier
let mk_simplifier = Z3native.mk_simplifier
let get_help (x:simplifier) = Z3native.simplifier_get_help (gc x) x
let get_param_descrs (x:simplifier) = Z3native.simplifier_get_param_descrs (gc x) x
let get_num_simplifiers = Z3native.get_num_simplifiers let get_num_simplifiers = Z3native.get_num_simplifiers
@ -1747,8 +1750,9 @@ struct
let f i = Z3native.get_simplifier_name ctx i in let f i = Z3native.get_simplifier_name ctx i in
mk_list f n mk_list f n
let get_help (x:simplifier) = Z3native.simplifier_get_help (gc x) x let get_simplifier_description (ctx:context) (s:string) = Z3native.simplifier_get_descr
let get_param_descrs (x:simplifier) = Z3native.simplifier_get_param_descrs (gc x) x
let mk_simplifier = Z3native.mk_simplifier
let and_then (ctx:context) (t1:simplifier) (t2:simplifier) (ts:simplifier list) = let and_then (ctx:context) (t1:simplifier) (t2:simplifier) (ts:simplifier list) =
let f p c = (match p with let f p c = (match p with
@ -1758,6 +1762,7 @@ struct
| None -> Z3native.simplifier_and_then ctx t1 t2 | None -> Z3native.simplifier_and_then ctx t1 t2
| Some(x) -> let o = Z3native.simplifier_and_then ctx t2 x in | Some(x) -> let o = Z3native.simplifier_and_then ctx t2 x in
Z3native.simplifier_and_then ctx t1 o Z3native.simplifier_and_then ctx t1 o
let using_params = Z3native.simplifier_using_params let using_params = Z3native.simplifier_using_params
let with_ = using_params let with_ = using_params

1
src/api/ml/z3.mli
View file

@ -3130,6 +3130,7 @@ sig
(** Create a simplifier that applies a simplifier using the given set of parameters. *) (** Create a simplifier that applies a simplifier using the given set of parameters. *)
val using_params : context -> simplifier -> Params.params -> simplifier val using_params : context -> simplifier -> Params.params -> simplifier
val with_ : context -> simplifier -> Params.params -> simplifier
end end