diff options
author | Chantal Keller <Chantal.Keller@lri.fr> | 2021-02-23 18:02:59 +0100 |
---|---|---|
committer | Chantal Keller <Chantal.Keller@lri.fr> | 2021-02-23 18:02:59 +0100 |
commit | dbf1adc5daaadf92bc3245648f30cf79bd010e86 (patch) | |
tree | d4e54f6ace255a98adaebf22bf6c915cbb08a81b /src/trace/smtForm.ml | |
parent | 68ca86514065cef3d5fc6ce54a86ef15452d8f0a (diff) | |
parent | 240b76807340e59bb85b35e3ebbb807792459912 (diff) | |
download | smtcoq-dbf1adc5daaadf92bc3245648f30cf79bd010e86.tar.gz smtcoq-dbf1adc5daaadf92bc3245648f30cf79bd010e86.zip |
Merge branch 'master' of github.com:smtcoq/smtcoq into coq-8.10
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 044ff4c..3d56b6a 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 |