simon/sidekick
1
0
Fork 0
mirror of https://github.com/c-cube/sidekick.git synced 2026-01-29 12:54:50 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

better debug

Browse source
This commit is contained in:
Simon Cruanes 2022-01-05 11:21:58 -05:00
parent 2378fc37ac
commit eb97161992
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/lra/sidekick_arith_lra.ml
View file

@ -466,7 +466,7 @@ module Make(A : ARG) : S with module A = A = struct
| _ -> () | _ -> ()
let check_simplex_ self si acts : SimpSolver.Subst.t = let check_simplex_ self si acts : SimpSolver.Subst.t =
Log.debug 5 "lra: call arith solver"; Log.debug 5 "(lra.check-simplex)";
let res = let res =
Profile.with_ "simplex.solve" Profile.with_ "simplex.solve"
(fun () -> (fun () ->
@ -512,6 +512,7 @@ module Make(A : ARG) : S with module A = A = struct
(* theory combination: add decisions [t=u] whenever [t] and [u] (* theory combination: add decisions [t=u] whenever [t] and [u]
have the same value in [subst] and both occur under function symbols *) have the same value in [subst] and both occur under function symbols *)
let do_th_combination (self:state) si acts (subst:Subst.t) : unit = let do_th_combination (self:state) si acts (subst:Subst.t) : unit =
Log.debug 5 "(lra.do-th-combinations)";
let n_th_comb = T.Tbl.keys self.needs_th_combination |> Iter.length in let n_th_comb = T.Tbl.keys self.needs_th_combination |> Iter.length in
if n_th_comb > 0 then ( if n_th_comb > 0 then (
Log.debugf 5 Log.debugf 5
@ -618,12 +619,11 @@ module Make(A : ARG) : S with module A = A = struct
Backtrack_stack.iter self.local_eqs Backtrack_stack.iter self.local_eqs
~f:(fun (n1,n2) -> add_local_eq self si acts n1 n2); ~f:(fun (n1,n2) -> add_local_eq self si acts n1 n2);
Log.debug 5 "(th-lra: call arith solver)";
(* TODO: jiggle model to reduce the number of variables that (* TODO: jiggle model to reduce the number of variables that
have the same value *) have the same value *)
let model = check_simplex_ self si acts in let model = check_simplex_ self si acts in
Log.debugf 20 (fun k->k "(@[lra.model@ %a@])" SimpSolver.Subst.pp model); Log.debugf 20 (fun k->k "(@[lra.model@ %a@])" SimpSolver.Subst.pp model);
Log.debug 5 "lra: solver returns SAT"; Log.debug 5 "(lra: solver returns SAT)";
do_th_combination self si acts model; do_th_combination self si acts model;
() ()