diff options
| author | herbelin | 2002-12-10 10:36:21 +0000 |
|---|---|---|
| committer | herbelin | 2002-12-10 10:36:21 +0000 |
| commit | ad85c27c453e888e4ef44f3531645638faff3da2 (patch) | |
| tree | 7912daf92a2468838ce67fb00a8b292290d52ae0 /kernel | |
| parent | 24b229fdaf8d2c2516be55296c965831ded46c5c (diff) | |
Pourquoi normaliser le prédicat du Cases dans le noyau ? (casse la
possibilité de partage)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3416 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/typeops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/typeops.ml b/kernel/typeops.ml index 31dd7e08a0..7b72de6092 100644 --- a/kernel/typeops.ml +++ b/kernel/typeops.ml @@ -290,7 +290,7 @@ let judge_of_case env ci pj cj lfj = let (_,kind) = dest_arity env pj.uj_type in let lft = Array.map j_type lfj in let univ' = check_branch_types env cj (lft,bty) in - ({ uj_val = mkCase (ci, nf_betaiota pj.uj_val, cj.uj_val, + ({ uj_val = mkCase (ci, (*nf_betaiota*) pj.uj_val, cj.uj_val, Array.map j_val lfj); uj_type = rslty }, Constraint.union univ univ') |