diff options
author | Stephane Glondu <steph@glondu.net> | 2010-12-24 12:51:11 +0100 |
---|---|---|
committer | Stephane Glondu <steph@glondu.net> | 2010-12-24 12:51:11 +0100 |
commit | 20d03a28285c430740d0b675583fe5c4d13ffecc (patch) | |
tree | 36bd87c5c42d948291605fc35b4b7cf573fc8113 /kernel/subtyping.ml | |
parent | c0a92523eaa76afabcbaf06ac4a7e8f7930ee4a3 (diff) | |
parent | 50dc9067e98ca001ad2e875011abab5da6fdb621 (diff) |
Merge commit 'upstream/8.3.pl1+dfsg' into experimental/master
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 cbff43ad..9216f2f3 100644 --- a/kernel/subtyping.ml +++ b/kernel/subtyping.ml @@ -6,7 +6,7 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -(*i $Id: subtyping.ml 13323 2010-07-24 15:57:30Z herbelin $ i*) +(*i $Id: subtyping.ml 13616 2010-11-03 12:14:36Z soubiran $ i*) (*i*) open Util @@ -163,7 +163,7 @@ let check_inductive cst env mp1 l info1 mp2 mib2 spec2 subst1 subst2 reso1 reso2 match mind_of_delta reso2 kn2 with | kn2' when kn2=kn2' -> () | kn2' -> - if not (eq_mind (mind_of_delta reso1 kn1) kn2') then + if not (eq_mind (mind_of_delta reso1 kn1) (subst_ind subst2 kn2')) then error () end; (* we check that records and their field names are preserved. *) |