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/reduction.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/reduction.ml')
| -rw-r--r-- | kernel/reduction.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/reduction.ml b/kernel/reduction.ml index eb84a2a0f3..ec4dc3cc30 100644 --- a/kernel/reduction.ml +++ b/kernel/reduction.ml @@ -1152,8 +1152,8 @@ let find_mcoinductype env sigma c = | _ -> raise Induc (* raise Induc if not an inductive type *) -let try_mutind_of env sigma ty = - let (mind,largs) = find_mrectype env sigma ty in +let find_inductive env sigma ty = + let (mind,largs) = find_minductype env sigma ty in let mispec = lookup_mind_specif mind env in let nparams = mis_nparams mispec in let (params,realargs) = list_chop nparams largs in |