mirrors/z3
3
0
Fork 0
mirror of https://github.com/Z3Prover/z3 synced 2025-04-23 00:55:31 +00:00
Code Activity

Add RCF functions to OCaml API (#6932)

Browse source
This commit is contained in:
Christoph M. Wintersteiger 2023-10-06 03:49:22 +01:00 • committed by GitHub
parent b0df74c1c1
commit 23de8056d7
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
3 changed files with 128 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

17
examples/ml/ml_example.ml
View file

@ -315,7 +315,21 @@ let fpa_example ( ctx : context ) =
Printf.printf "Test passed.\n"
)
let _ =
(**
A basic example of RCF usage
**)
let rcf_example ( ctx : context ) =
Printf.printf "RCFExample\n" ;
let pi = RCF.mk_pi ctx in
let e = RCF.mk_e ctx in
(Printf.printf "e: %s, pi: %s, e==pi: %b, e < pi: %b\n"
(RCF.num_to_string ctx e true false)
(RCF.num_to_string ctx pi true false)
(RCF.eq ctx e pi)
(RCF.lt ctx e pi)) ;
Printf.printf "Test passed.\n"
let _ =
try (
if not (Log.open_ "z3.log") then
raise (TestFailedException "Log couldn't be opened.")
@ -340,6 +354,7 @@ let _ =
basic_tests ctx ;
quantifier_example1 ctx ;
fpa_example ctx ;
rcf_example ctx ;
Printf.printf "Disposing...\n";
Gc.full_major ()
);