diff options
Diffstat (limited to 'src/lfsc/tosmtcoq.ml')
| -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 -> |