diff options
| author | herbelin | 2000-05-04 16:58:33 +0000 |
|---|---|---|
| committer | herbelin | 2000-05-04 16:58:33 +0000 |
| commit | 1c6747af716224b092b0f197772bc6bcc186293b (patch) | |
| tree | e8fe986a8e46435f893d891e7e1ee05e6e83b550 /kernel/typeops.ml | |
| parent | 783bdffba901a29027878f41e10b6bcfe406100f (diff) | |
Renommage try_mutind_of en find_inductive (on fait ce qu'on peut !)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@416 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/typeops.ml')
| -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 c887116351..4a89568dcb 100644 --- a/kernel/typeops.ml +++ b/kernel/typeops.ml @@ -319,7 +319,7 @@ let check_branches_message env sigma (c,ct) (explft,lft) = let type_of_case env sigma ci pj cj lfj = let lft = Array.map (fun j -> j.uj_type) lfj in let indspec = - try try_mutind_of env sigma cj.uj_type + try find_inductive env sigma cj.uj_type with Induc -> error_case_not_inductive CCI env cj.uj_val cj.uj_type in let (bty,rslty) = type_case_branches env sigma indspec pj.uj_type pj.uj_val cj.uj_val in |