diff options
| author | herbelin | 1999-12-11 01:25:22 +0000 |
|---|---|---|
| committer | herbelin | 1999-12-11 01:25:22 +0000 |
| commit | 20445e418ffee0c0dc1398c80af4a2b75abe9ac3 (patch) | |
| tree | c019077ca3898406ef9f251b26dba4ec06d24d2d /kernel/typeops.mli | |
| parent | d73ae1a52442841ec8c067de7048db977b299a85 (diff) | |
Intégration initiale du Cases
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@234 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/typeops.mli')
| -rw-r--r-- | kernel/typeops.mli | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/kernel/typeops.mli b/kernel/typeops.mli index 20cec7273a..55191e284f 100644 --- a/kernel/typeops.mli +++ b/kernel/typeops.mli @@ -31,10 +31,13 @@ val type_of_constant : env -> 'a evar_map -> constr -> typed_type val type_of_inductive : env -> 'a evar_map -> constr -> typed_type -val type_of_constructor : env -> 'a evar_map -> constr -> constr +val type_of_constructor : + env -> 'a evar_map -> (constructor_path * constr array) -> constr val type_of_existential : env -> 'a evar_map -> constr -> constr +val sort_of_arity : env -> 'a Evd.evar_map -> constr -> constr + val type_of_case : env -> 'a evar_map -> unsafe_judgment -> unsafe_judgment -> unsafe_judgment array -> unsafe_judgment |