mirrors/z3
3
0
Fork 0
mirror of https://github.com/Z3Prover/z3 synced 2025-06-05 21:53:23 +00:00
Code Activity

Added Z3_mk_array_ext to ML API.

Browse source 
Relates to #292
This commit is contained in:
Christoph M. Wintersteiger 2015-11-09 13:25:52 +00:00
parent cffff18373
commit 689ed9fa12
2 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1217,6 +1217,9 @@ struct
let mk_term_array ( ctx : context ) ( arg : expr ) = let mk_term_array ( ctx : context ) ( arg : expr ) =
expr_of_ptr ctx (Z3native.mk_array_default (context_gno ctx) (Expr.gno arg)) expr_of_ptr ctx (Z3native.mk_array_default (context_gno ctx) (Expr.gno arg))
let mk_array_ext ( ctx : context) ( arg1 : expr ) ( arg2 : expr ) =
expr_of_ptr ctx (Z3native.mk_array_ext (context_gno ctx) (Expr.gno arg1) (Expr.gno arg2))
end end

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

@ -866,6 +866,13 @@ sig
Produces the default range value, for arrays that can be represented as Produces the default range value, for arrays that can be represented as
finite maps with a default range value. *) finite maps with a default range value. *)
val mk_term_array : context -> Expr.expr -> Expr.expr val mk_term_array : context -> Expr.expr -> Expr.expr
(** Create array extensionality index given two arrays with the same sort.
The meaning is given by the axiom:
(=> (= (select A (array-ext A B)) (select B (array-ext A B))) (= A B)) *)
val mk_array_ext : context -> Expr.expr -> Expr.expr -> Expr.expr
end end
(** Functions to manipulate Set expressions *) (** Functions to manipulate Set expressions *)