diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-05-04 16:58:33 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-05-04 16:58:33 +0000 |
commit | 1c6747af716224b092b0f197772bc6bcc186293b (patch) | |
tree | e8fe986a8e46435f893d891e7e1ee05e6e83b550 /kernel/reduction.mli | |
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.mli')
-rw-r--r-- | kernel/reduction.mli | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/reduction.mli b/kernel/reduction.mli index 583a7cf1f..25adf3b88 100644 --- a/kernel/reduction.mli +++ b/kernel/reduction.mli @@ -210,10 +210,10 @@ val find_mrectype : env -> 'a evar_map -> constr -> inductive * constr list val find_minductype : env -> 'a evar_map -> constr -> inductive * constr list val find_mcoinductype : env -> 'a evar_map -> constr -> inductive * constr list -(* [try_mutind_of env sigma t] raises [Induc] if [t] is not an inductive type*) +(* [find_inductive env sigma t] raises [Induc] if [t] is not an inductive type*) (* The resulting summary is relative to the current env *) open Inductive -val try_mutind_of : env -> 'a evar_map -> constr -> inductive_summary +val find_inductive : env -> 'a evar_map -> constr -> inductive_summary val get_constructors : env -> 'a evar_map -> inductive_summary -> constructor_summary array |