From c3ca134628ad4d9ef70a13b65c48ff17c737238f Mon Sep 17 00:00:00 2001 From: ppedrot Date: Tue, 18 Dec 2012 18:52:54 +0000 Subject: Modulification of name git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16099 85f007b7-540e-0410-9357-904b9bb8a0f7 --- kernel/typeops.mli | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'kernel/typeops.mli') 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 *) -- cgit v1.2.3