diff options
| -rwxr-xr-x | contrib/omega/omega.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/omega/omega.ml b/contrib/omega/omega.ml index 4eaab67b2a..84239e03c0 100755 --- a/contrib/omega/omega.ml +++ b/contrib/omega/omega.ml @@ -618,7 +618,7 @@ let negation (eqs,ineqs) = let {body=ne;constant=c} ,kind = normal e in Hashtbl.add table (ne,c) (kind,e)) diseq; List.iter (fun e -> - assert (e.kind <> EQUA); + assert (e.kind = EQUA); let {body=ne;constant=c},kind = normal e in try let (kind',e') = Hashtbl.find table (ne,c) in |