diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-10-05 15:40:31 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-10-05 15:40:31 +0000 |
commit | 55dbe8e2fa7ed2053ecd54140f6bcbdf31981e0b (patch) | |
tree | 9aea1570bb1de6ccc8e306c8344d4aaaf6352b57 /kernel/vconv.ml | |
parent | 3004d1c1d53a13c4ea34e1997367ad6e0b1c31eb (diff) |
Correction de deux cas où les types inductifs n'étaient pas comparés
vis à vis de l'équivalence engendrées par les modules non génératifs
(cf bug #1242)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9215 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/vconv.ml')
-rw-r--r-- | kernel/vconv.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/kernel/vconv.ml b/kernel/vconv.ml index 7115097e4..7c515735d 100644 --- a/kernel/vconv.ml +++ b/kernel/vconv.ml @@ -83,7 +83,8 @@ and conv_whd pb k whd1 whd2 cu = and conv_atom pb k a1 stk1 a2 stk2 cu = match a1, a2 with | Aind (kn1,i1), Aind(kn2,i2) -> - if i1 = i2 && mind_equiv !infos kn1 kn2 && compare_stack stk1 stk2 then + if mind_equiv_infos !infos (kn1,i1) (kn2,i2) && compare_stack stk1 stk2 + then conv_stack k stk1 stk2 cu else raise NotConvertible | Aid ik1, Aid ik2 -> |