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/smtlib2 | |
| 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/smtlib2')
| -rw-r--r-- | src/smtlib2/smtlib2_genConstr.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/smtlib2/smtlib2_genConstr.ml b/src/smtlib2/smtlib2_genConstr.ml index 7e58aa3..f5ce8a1 100644 --- a/src/smtlib2/smtlib2_genConstr.ml +++ b/src/smtlib2/smtlib2_genConstr.ml @@ -101,8 +101,7 @@ let declare_sort_from_name rt s = let compdec_type = mklApp cCompDec [| cons_t |] in let compdec_var = Structures.declare_new_variable (Structures.mkId ("CompDec_"^s)) compdec_type in - let ce = mklApp cTyp_compdec [|cons_t; compdec_var|] in - let res = SmtBtype.declare rt cons_t ce in + let res = SmtBtype.of_coq_compdec rt cons_t compdec_var in SmtMaps.add_btype s res; res @@ -190,7 +189,7 @@ let make_root ra rf t = | "=", [a;b] -> (match make_root_term a, make_root_term b with | Atom a', Atom b' when Atom.type_of a' <> Tbool -> - Atom (Atom.mk_eq ra (Atom.type_of a') a' b') + Atom (Atom.mk_eq_sym ra (Atom.type_of a') a' b') | _ -> Form (Form.get rf (Fapp (Fiff, [|make_root a; make_root b|]))) ) | "<", [a;b] -> |