Modulification of identifier

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

1 files changed, 2 insertions, 2 deletions

diff --git a/kernel/subtyping.ml b/kernel/subtyping.ml
index 6aaf5b47d..d278c2d0c 100644
--- a/kernel/subtyping.ml
+++ b/kernel/subtyping.ml
@@ -136,8 +136,8 @@ let check_inductive cst env mp1 l info1 mp2 mib2 spec2 subst1 subst2 reso1 reso2
 
   let check_packet cst p1 p2 =
     let check f test why = if not (test (f p1) (f p2)) then error why in
-      check (fun p -> p.mind_consnames) (Array.equal id_eq) NotSameConstructorNamesField;
-      check (fun p -> p.mind_typename) id_eq NotSameInductiveNameInBlockField;
+      check (fun p -> p.mind_consnames) (Array.equal Id.equal) NotSameConstructorNamesField;
+      check (fun p -> p.mind_typename) Id.equal NotSameInductiveNameInBlockField;
       (* nf_lc later *)
       (* nf_arity later *)
       (* user_lc ignored *)