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/lfsc | |
| 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/lfsc')
| -rw-r--r-- | src/lfsc/tosmtcoq.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/lfsc/tosmtcoq.ml b/src/lfsc/tosmtcoq.ml index 6382e9e..0719803 100644 --- a/src/lfsc/tosmtcoq.ml +++ b/src/lfsc/tosmtcoq.ml @@ -244,7 +244,7 @@ let rec term_smtcoq_old t = | Some (n, args) when n == H.iff -> Form.Form (Fapp (Fiff, args_smtcoq args)) | Some (n, [_; a; b]) when n == H.eq -> let h1, h2 = term_smtcoq_atom a, term_smtcoq_atom b in - Form.Atom (Atom.mk_eq ra (Atom.type_of h1) h1 h2) + Form.Atom (Atom.mk_eq_sym ra (Atom.type_of h1) h1 h2) | Some (n, _) when n == H.apply -> uncurry [] t | Some (n, [p]) when n == H.p_app -> term_smtcoq p | Some (n, [{value = Int bi}]) when n == H.a_int -> |