Removing a bunch of generic equalities.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16806 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 1 insertions, 1 deletions

diff --git a/library/library.ml b/library/library.ml
index 2a495f0cf..a15b66d20 100644
--- a/library/library.ml
+++ b/library/library.ml
@@ -339,7 +339,7 @@ module OpaqueTables = struct
  let store c =
   let n = !local_index in
   incr local_index;
-  if n = Array.length !local_table then begin
+  if Int.equal n (Array.length !local_table) then begin
     let t = Array.make (2*n) a_constr in
     Array.blit !local_table 0 t 0 n;
     local_table := t