diff options
| author |  Samuel Mimram <smimram@debian.org> | 2006-11-21 21:38:49 +0000 |
|---|---|---|
| committer | Samuel Mimram <smimram@debian.org> | 2006-11-21 21:38:49 +0000 |
| commit | 208a0f7bfa5249f9795e6e225f309cbe715c0fad (patch) | |
| tree | 591e9e512063e34099782e2518573f15ffeac003 /kernel/reduction.ml | |
| parent | de0085539583f59dc7c4bf4e272e18711d565466 (diff) | |
Imported Upstream version 8.1~gammaupstream/8.1.gamma
Diffstat (limited to 'kernel/reduction.ml')
| -rw-r--r-- | kernel/reduction.ml | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/kernel/reduction.ml b/kernel/reduction.ml index bd849dad..701020d0 100644 --- a/kernel/reduction.ml +++ b/kernel/reduction.ml @@ -6,7 +6,7 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -(* $Id: reduction.ml 8845 2006-05-23 07:41:58Z herbelin $ *) +(* $Id: reduction.ml 9215 2006-10-05 15:40:31Z herbelin $ *) open Util open Names @@ -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 = |