simon/sidekick
1
0
Fork 0
mirror of https://github.com/c-cube/sidekick.git synced 2025-12-06 03:05:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

refactor(th-bool): no need for gensym

Browse source
This commit is contained in:
Simon Cruanes 2022-10-19 22:26:37 -04:00
parent 5eab4bbb0d
commit bfab613d58
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 0 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/th-bool-static/Sidekick_th_bool_static.ml
View file

@ -12,7 +12,6 @@ module Make (A : ARG) : sig
end = struct end = struct
type state = { type state = {
tst: T.store; tst: T.store;
gensym: Gensym.t;
n_simplify: int Stat.counter; n_simplify: int Stat.counter;
n_clauses: int Stat.counter; n_clauses: int Stat.counter;
} }
@ -20,7 +19,6 @@ end = struct
let create ~stat tst : state = let create ~stat tst : state =
{ {
tst; tst;
gensym = Gensym.create tst;
n_simplify = Stat.mk_int stat "th.bool.simplified"; n_simplify = Stat.mk_int stat "th.bool.simplified";
n_clauses = Stat.mk_int stat "th.bool.cnf-clauses"; n_clauses = Stat.mk_int stat "th.bool.cnf-clauses";
} }
@ -145,17 +143,6 @@ end = struct
| B_neq (a, b) when T.equal a b -> ret_bequiv t (T.true_ tst) | B_neq (a, b) when T.equal a b -> ret_bequiv t (T.true_ tst)
| B_eq _ | B_neq _ -> None | B_eq _ | B_neq _ -> None
let fresh_term self ~for_t ~pre ty =
let u = Gensym.fresh_term self.gensym ~pre ty in
Log.debugf 20 (fun k ->
k "(@[sidekick.bool.proxy@ :t %a@ :for %a@])" T.pp u T.pp for_t);
assert (Term.equal ty (T.ty u));
u
let fresh_lit (self : state) ~for_t ~mk_lit ~pre : T.t * Lit.t =
let proxy = fresh_term ~for_t ~pre self (Term.bool self.tst) in
proxy, mk_lit proxy
(* TODO: polarity? *) (* TODO: polarity? *)
let cnf (self : state) (_preproc : SMT.Preprocess.t) ~is_sub:_ ~recurse let cnf (self : state) (_preproc : SMT.Preprocess.t) ~is_sub:_ ~recurse
(module PA : SI.PREPROCESS_ACTS) (t : T.t) : T.t option = (module PA : SI.PREPROCESS_ACTS) (t : T.t) : T.t option =