diff options
| author | filliatr | 1999-09-25 14:33:49 +0000 |
|---|---|---|
| committer | filliatr | 1999-09-25 14:33:49 +0000 |
| commit | 9084393008d9cd2a1f36391e06f6a73cbc529a16 (patch) | |
| tree | be9e49817af520c00f7086733e0a7bc964fd920e /kernel/typeops.mli | |
| parent | f3d068d8bd33a511397576533b1190be9b544a07 (diff) | |
ensembles de contraintes d'univers
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@78 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/typeops.mli')
| -rw-r--r-- | kernel/typeops.mli | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/kernel/typeops.mli b/kernel/typeops.mli index b02e37b1dd..992a3a768d 100644 --- a/kernel/typeops.mli +++ b/kernel/typeops.mli @@ -35,27 +35,25 @@ val type_of_case : 'a unsafe_env -> unsafe_judgment -> unsafe_judgment val type_of_prop_or_set : contents -> unsafe_judgment -val type_of_type : universe -> universes -> unsafe_judgment * universes +val type_of_type : universe -> unsafe_judgment * constraints val abs_rel : 'a unsafe_env -> name -> typed_type -> unsafe_judgment - -> unsafe_judgment * universes + -> unsafe_judgment * constraints val gen_rel : 'a unsafe_env -> name -> typed_type -> unsafe_judgment - -> unsafe_judgment * universes + -> unsafe_judgment * constraints val cast_rel : 'a unsafe_env -> unsafe_judgment -> unsafe_judgment -> unsafe_judgment val apply_rel_list : 'a unsafe_env -> bool -> unsafe_judgment list -> unsafe_judgment - -> unsafe_judgment * universes + -> unsafe_judgment * constraints val check_fix : 'a unsafe_env -> constr -> unit val check_cofix : 'a unsafe_env -> constr -> unit val type_fixpoint : 'a unsafe_env -> name list -> typed_type array - -> unsafe_judgment array -> universes - - + -> unsafe_judgment array -> constraints |