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

remove is_valid_literal concept

Browse source
This commit is contained in:
Simon Cruanes 2022-09-01 22:33:40 -04:00
parent efc01f507b
commit d741b4160d
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
3 changed files with 0 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/base/Solver.ml
View file

@ -3,7 +3,6 @@ include Sidekick_smt_solver.Solver
let default_arg = let default_arg =
(module struct (module struct
let view_as_cc = Term.view_as_cc let view_as_cc = Term.view_as_cc
let is_valid_literal _ = true
end : Sidekick_smt_solver.Sigs.ARG) end : Sidekick_smt_solver.Sigs.ARG)
let create_default ?stat ?size ~proof ~theories tst : t = let create_default ?stat ?size ~proof ~theories tst : t =

4
src/smt/sigs.ml
View file

@ -42,8 +42,4 @@ type th_combination_conflict = {
new Msat-based SMT solver. *) new Msat-based SMT solver. *)
module type ARG = sig module type ARG = sig
val view_as_cc : Sidekick_cc.view_as_cc val view_as_cc : Sidekick_cc.view_as_cc
val is_valid_literal : Term.t -> bool
(** Is this a valid boolean literal? (e.g. is it a closed term, not inside
a quantifier) *)
end end

1
src/smt/solver.ml
View file

@ -99,7 +99,6 @@ let create arg ?(stat = Stat.global) ?size ~proof ~theories tst () : t =
let default_arg = let default_arg =
(module struct (module struct
let view_as_cc = Default_cc_view.view_as_cc let view_as_cc = Default_cc_view.view_as_cc
let is_valid_literal _ = true
end : ARG) end : ARG)
let create_default ?stat ?size ~proof ~theories tst () : t = let create_default ?stat ?size ~proof ~theories tst () : t =