diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 1999-11-24 17:57:25 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 1999-11-24 17:57:25 +0000 |
| commit | be800056397163ec9c475e6aee44925c97f86f58 (patch) | |
| tree | 373f85ebce6551ce9c3b4f876715fae44f5736b3 /kernel/typeops.mli | |
| parent | a67cb75db8dfd77dceefc8c40960b7e99ff6d302 (diff) | |
MAJ pour fusion avec pretyping
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@138 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/typeops.mli')
| -rw-r--r-- | kernel/typeops.mli | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/kernel/typeops.mli b/kernel/typeops.mli index 45db12974..1e602e039 100644 --- a/kernel/typeops.mli +++ b/kernel/typeops.mli @@ -32,6 +32,8 @@ val type_of_inductive : unsafe_env -> 'a evar_map -> constr -> typed_type val type_of_constructor : unsafe_env -> 'a evar_map -> constr -> constr +val type_of_existential : unsafe_env -> 'a evar_map -> constr -> typed_type + val type_of_case : unsafe_env -> 'a evar_map -> unsafe_judgment -> unsafe_judgment -> unsafe_judgment array -> unsafe_judgment @@ -40,9 +42,9 @@ val type_case_branches : unsafe_env -> 'a evar_map -> constr -> constr -> constr -> constr -> constr * constr array * constr -val type_of_prop_or_set : contents -> unsafe_judgment +val make_judge_of_prop_contents : contents -> unsafe_judgment -val type_of_type : universe -> unsafe_judgment * constraints +val make_judge_of_type : universe -> unsafe_judgment * constraints val abs_rel : unsafe_env -> 'a evar_map -> name -> typed_type -> unsafe_judgment @@ -60,8 +62,8 @@ val apply_rel_list : unsafe_env -> 'a evar_map -> bool -> unsafe_judgment list -> unsafe_judgment -> unsafe_judgment * constraints -val check_fix : unsafe_env -> 'a evar_map -> Spset.t -> constr -> unit -val check_cofix : unsafe_env -> 'a evar_map -> Spset.t -> constr -> unit +val check_fix : unsafe_env -> 'a evar_map -> constr -> unit +val check_cofix : unsafe_env -> 'a evar_map -> constr -> unit val type_fixpoint : unsafe_env -> 'a evar_map -> name list -> typed_type array -> unsafe_judgment array -> constraints |