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

fix warning

Browse source
This commit is contained in:
Simon Cruanes 2022-09-11 14:09:56 -04:00
parent 67c9ffa2ac
commit abff92d972
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/smt/preprocess.ml
View file

@ -41,8 +41,7 @@ let create ?(stat = Stat.global) ~proof ~cc ~simplify tst : t =
let on_preprocess self f = self.preprocess <- f :: self.preprocess let on_preprocess self f = self.preprocess <- f :: self.preprocess
let cc self = self.cc let cc self = self.cc
let preprocess_term_ (self : t) ((module A : PREPROCESS_ACTS) as acts) let preprocess_term_ (self : t) acts (t : term) : term =
(t : term) : term =
(* how to preprocess a term and its subterms *) (* how to preprocess a term and its subterms *)
let rec preproc_rec_ ~is_sub t0 : Term.t = let rec preproc_rec_ ~is_sub t0 : Term.t =
match Term.Tbl.find_opt self.preprocessed t0 with match Term.Tbl.find_opt self.preprocessed t0 with