diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-09-10 20:37:37 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-09-10 20:37:37 +0000 |
| commit | e72024e2292a50684b7f280d6efb8fee090e2dbf (patch) | |
| tree | fdba2d8c55f0c74aee8800a0e8c9aec3d3b8a584 /kernel/typeops.ml | |
| parent | 583992b6ce38655855f6625a26046ce84c53cdc1 (diff) | |
Suppression de Abst
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@593 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/typeops.ml')
| -rw-r--r-- | kernel/typeops.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/kernel/typeops.ml b/kernel/typeops.ml index 4b22b0b6a..37dfccf9e 100644 --- a/kernel/typeops.ml +++ b/kernel/typeops.ml @@ -213,7 +213,7 @@ let type_of_case env sigma ci pj cj lfj = type_case_branches env sigma indspec (body_of_type pj.uj_type) pj.uj_val cj.uj_val in let kind = mysort_of_arity env sigma (body_of_type pj.uj_type) in check_branches_message env sigma (cj.uj_val,body_of_type cj.uj_type) (bty,lft); - { uj_val = mkMutCaseA ci pj.uj_val cj.uj_val (Array.map j_val_only lfj); + { uj_val = mkMutCase (ci, pj.uj_val, cj.uj_val, Array.map j_val_only lfj); uj_type = make_typed rslty kind } (* Prop and Set *) @@ -636,7 +636,7 @@ let rec check_subterm_rec_meta env sigma vectn k def = | IsVar _ | IsSort _ -> List.for_all (check_rec_call n lst) l - | IsXtra _ | IsAbst _ -> List.for_all (check_rec_call n lst) l + | IsXtra _ -> List.for_all (check_rec_call n lst) l ) in @@ -856,7 +856,6 @@ let control_only_guard env sigma = | IsMutConstruct (_,cl) -> Array.iter control_rec cl | IsConst (_,cl) -> Array.iter control_rec cl | IsEvar (_,cl) -> Array.iter control_rec cl - | IsAbst (_,cl) -> Array.iter control_rec cl | IsAppL (_,cl) -> List.iter control_rec cl | IsCast (c1,c2) -> control_rec c1; control_rec c2 | IsProd (_,c1,c2) -> control_rec c1; control_rec c2 |