diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-03-18 18:45:48 +0100 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-03-18 19:42:07 +0100 |
commit | 410c088d3cb9f0e3fdb5c01cb036b95aae84a6c2 (patch) | |
tree | 1ee5cde846c526f4ee5bcbbe78345939de65ae96 /checker/reduction.ml | |
parent | aefba30e028bf1774f01f95a69a6a75b80206a5f (diff) |
Fixing checker with respect to new kernel name structure and hashmaps.
Some wrong generic equalities and hashes were removed too.
Diffstat (limited to 'checker/reduction.ml')
-rw-r--r-- | checker/reduction.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/checker/reduction.ml b/checker/reduction.ml index e07a3128b..54d79484e 100644 --- a/checker/reduction.ml +++ b/checker/reduction.ml @@ -320,7 +320,7 @@ and eqappr univ cv_pb infos (lft1,st1) (lft2,st2) = else raise NotConvertible | (FConstruct (ind1,j1), FConstruct (ind2,j2)) -> - if j1 = j2 && mind_equiv_infos infos ind1 ind2 + if Int.equal j1 j2 && mind_equiv_infos infos ind1 ind2 then convert_stacks univ infos lft1 lft2 v1 v2 else raise NotConvertible |