diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-03-29 21:21:52 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-03-29 21:21:52 +0000 |
| commit | e7c20952e90d4f70ae84ab60b6aab62691c18aa0 (patch) | |
| tree | def5eed04feeb6d147f0c91a619fe8a519527179 /pretyping/retyping.mli | |
| parent | 6f3b7eb486426ef8104b9b958088315342845795 (diff) | |
Inductifs avec polymorphisme de sorte (version initiale)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8673 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/retyping.mli')
| -rw-r--r-- | pretyping/retyping.mli | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/pretyping/retyping.mli b/pretyping/retyping.mli index f0c01a56e..8631f5545 100644 --- a/pretyping/retyping.mli +++ b/pretyping/retyping.mli @@ -9,6 +9,7 @@ (*i $Id$ i*) (*i*) +open Names open Term open Evd open Environ @@ -32,3 +33,6 @@ val get_assumption_of : env -> evar_map -> constr -> types (* Makes an unsafe judgment from a constr *) val get_judgment_of : env -> evar_map -> constr -> unsafe_judgment + +val type_of_applied_inductive : env -> evar_map -> inductive -> + constr array -> types |