From 11ca3113365639136cf65a74c345080a9434e69b Mon Sep 17 00:00:00 2001 From: ppedrot Date: Fri, 27 Sep 2013 19:20:27 +0000 Subject: Removing a bunch of generic equalities. git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16806 85f007b7-540e-0410-9357-904b9bb8a0f7 --- library/library.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'library/library.ml') 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 -- cgit v1.2.3