diff options
author | ckeller <ckeller@users.noreply.github.com> | 2021-02-23 17:06:51 +0100 |
---|---|---|
committer | GitHub <noreply@github.com> | 2021-02-23 17:06:51 +0100 |
commit | 240b76807340e59bb85b35e3ebbb807792459912 (patch) | |
tree | 22d60d5c8db5034bdd9045e8579df14406ac69bc /src/trace/smtForm.ml | |
parent | 74558c622de91801e3e188bdf690eb9a665f965b (diff) | |
download | smtcoq-240b76807340e59bb85b35e3ebbb807792459912.tar.gz smtcoq-240b76807340e59bb85b35e3ebbb807792459912.zip |
Link equality on uninterpreted sorts with SMT equality (#86)
Equality is now treated from uninterpreted sorts, which makes them usable with tactics!
Closes #17
Closes #78
Diffstat (limited to 'src/trace/smtForm.ml')
-rw-r--r-- | src/trace/smtForm.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/trace/smtForm.ml b/src/trace/smtForm.ml index 12aef5a..4e11709 100644 --- a/src/trace/smtForm.ml +++ b/src/trace/smtForm.ml @@ -472,7 +472,7 @@ module Make (Atom:ATOM) = mk_hform c - let hash_hform hash_hatom rf' hf = + let hash_hform hash_hatom rf_quant hf = let rec mk_hform = function | Pos hp -> Pos (mk_hpform hp) | Neg hp -> Neg (mk_hpform hp) @@ -482,7 +482,7 @@ module Make (Atom:ATOM) = | Fapp (fop, arr) -> Fapp (fop, Array.map mk_hform arr) | FbbT (a, l) -> FbbT (hash_hatom a, List.map mk_hform l) in - match get rf' new_hv with Pos x | Neg x -> x in + match get rf_quant new_hv with Pos x | Neg x -> x in mk_hform hf |