diff options
Diffstat (limited to 'kernel/subtyping.ml')
| -rw-r--r-- | kernel/subtyping.ml | 4 |
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 *) |