mirrors/z3
3
0
Fork 0
mirror of https://github.com/Z3Prover/z3 synced 2026-05-04 01:15:15 +00:00
Code Activity

Implement register_on_clause for OCaml and TypeScript bindings

Browse source 
Co-authored-by: NikolajBjorner <3085284+NikolajBjorner@users.noreply.github.com>
This commit is contained in:
copilot-swe-agent[bot] 2026-02-26 04:04:27 +00:00
parent c4f85493a7
commit 234913bf56
11 changed files with 159 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2019,6 +2019,11 @@ struct
List.iter (fun e -> Z3native.ast_vector_push (gc x) term_vec e) terms;
List.iter (fun e -> Z3native.ast_vector_push (gc x) guard_vec e) guards;
Z3native.solver_solve_for (gc x) x var_vec term_vec guard_vec
let register_on_clause (s:solver) (callback: Expr.expr option -> int list -> Expr.expr list -> unit) =
Z3native.solver_register_on_clause (gc s) s (fun proof_hint deps lits ->
let lits_list = AST.ASTVector.to_expr_list lits in
callback proof_hint deps lits_list)
end