diff options
| author | herbelin | 2006-10-05 15:40:31 +0000 |
|---|---|---|
| committer | herbelin | 2006-10-05 15:40:31 +0000 |
| commit | 55dbe8e2fa7ed2053ecd54140f6bcbdf31981e0b (patch) | |
| tree | 9aea1570bb1de6ccc8e306c8344d4aaaf6352b57 /kernel/reduction.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/reduction.ml')
| -rw-r--r-- | kernel/reduction.ml | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/kernel/reduction.ml b/kernel/reduction.ml index 5b69ac7b62..28176ecc59 100644 --- a/kernel/reduction.ml +++ b/kernel/reduction.ml @@ -257,14 +257,14 @@ and eqappr cv_pb infos appr1 appr2 cuniv = (* Inductive types: MutInd MutConstruct Fix Cofix *) - | (FInd (kn1,i1), FInd (kn2,i2)) -> - if i1 = i2 && mind_equiv infos kn1 kn2 + | (FInd ind1, FInd ind2) -> + if mind_equiv_infos infos ind1 ind2 then convert_stacks infos lft1 lft2 v1 v2 cuniv else raise NotConvertible - | (FConstruct ((kn1,i1),j1), FConstruct ((kn2,i2),j2)) -> - if i1 = i2 && j1 = j2 && mind_equiv infos kn1 kn2 + | (FConstruct (ind1,j1), FConstruct (ind2,j2)) -> + if j1 = j2 && mind_equiv_infos infos ind1 ind2 then convert_stacks infos lft1 lft2 v1 v2 cuniv else raise NotConvertible @@ -317,7 +317,7 @@ and eqappr cv_pb infos appr1 appr2 cuniv = and convert_stacks infos lft1 lft2 stk1 stk2 cuniv = compare_stacks (fun (l1,t1) (l2,t2) c -> ccnv CONV infos l1 l2 t1 t2 c) - (fun (mind1,i1) (mind2,i2) -> i1=i2 && mind_equiv infos mind1 mind2) + (mind_equiv_infos infos) lft1 stk1 lft2 stk2 cuniv and convert_vect infos lft1 lft2 v1 v2 cuniv = |