diff options
author | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-12-18 18:52:54 +0000 |
---|---|---|
committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-12-18 18:52:54 +0000 |
commit | c3ca134628ad4d9ef70a13b65c48ff17c737238f (patch) | |
tree | 136b4efbc3aefe76dcd2fa772141c774343f46df /kernel/typeops.mli | |
parent | 6946bbbf2390024b3ded7654814104e709cce755 (diff) |
Modulification of name
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16099 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/typeops.mli')
-rw-r--r-- | kernel/typeops.mli | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/kernel/typeops.mli b/kernel/typeops.mli index 7b3aff20d..7617e8219 100644 --- a/kernel/typeops.mli +++ b/kernel/typeops.mli @@ -56,17 +56,17 @@ val judge_of_apply : (** {6 Type of an abstraction. } *) val judge_of_abstraction : - env -> name -> unsafe_type_judgment -> unsafe_judgment + env -> Name.t -> unsafe_type_judgment -> unsafe_judgment -> unsafe_judgment (** {6 Type of a product. } *) val judge_of_product : - env -> name -> unsafe_type_judgment -> unsafe_type_judgment + env -> Name.t -> unsafe_type_judgment -> unsafe_type_judgment -> unsafe_judgment (** s Type of a let in. *) val judge_of_letin : - env -> name -> unsafe_judgment -> unsafe_type_judgment -> unsafe_judgment + env -> Name.t -> unsafe_judgment -> unsafe_type_judgment -> unsafe_judgment -> unsafe_judgment (** {6 Type of a cast. } *) @@ -89,7 +89,7 @@ val judge_of_case : env -> case_info -> unsafe_judgment * constraints (** Typecheck general fixpoint (not checking guard conditions) *) -val type_fixpoint : env -> name array -> types array +val type_fixpoint : env -> Name.t array -> types array -> unsafe_judgment array -> constraints (** Kernel safe typing but applicable to partial proofs *) |