diff options
Diffstat (limited to 'kernel/typeops.mli')
| -rw-r--r-- | kernel/typeops.mli | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/kernel/typeops.mli b/kernel/typeops.mli index aeb4d294bc..43d7b33db7 100644 --- a/kernel/typeops.mli +++ b/kernel/typeops.mli @@ -14,6 +14,7 @@ open Univ open Term open Environ open Entries +open Declarations (*i*) (*s Typing functions (not yet tagged as safe) *) @@ -47,6 +48,9 @@ val judge_of_variable : env -> variable -> unsafe_judgment (*s type of a constant *) val judge_of_constant : env -> constant -> unsafe_judgment +val judge_of_constant_knowing_parameters : + env -> constant -> unsafe_judgment array -> unsafe_judgment + (*s Type of application. *) val judge_of_apply : env -> unsafe_judgment -> unsafe_judgment array @@ -93,8 +97,9 @@ val type_fixpoint : env -> name array -> types array (* Kernel safe typing but applicable to partial proofs *) val typing : env -> constr -> unsafe_judgment -(* A virer *) -val execute : Environ.env -> - Term.types -> - Univ.Constraint.t * Univ.universes -> - Environ.unsafe_judgment * (Univ.Constraint.t * Univ.universes) +val type_of_constant : env -> constant -> types + +val type_of_constant_type : env -> constant_type -> types + +val type_of_constant_knowing_parameters : + env -> constant_type -> constr array -> types |