From 240b76807340e59bb85b35e3ebbb807792459912 Mon Sep 17 00:00:00 2001 From: ckeller Date: Tue, 23 Feb 2021 17:06:51 +0100 Subject: 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 --- src/lfsc/tosmtcoq.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/lfsc') 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 -> -- cgit