From 5b7eafd0f00a16d78f99a27f5c7d5a0de77dc7e6 Mon Sep 17 00:00:00 2001
From: Stephane Glondu <steph@glondu.net>
Date: Wed, 21 Jul 2010 09:46:51 +0200
Subject: Imported Upstream snapshot 8.3~beta0+13298

---
 kernel/typeops.mli | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

(limited to 'kernel/typeops.mli')

diff --git a/kernel/typeops.mli b/kernel/typeops.mli
index c427055a..b0f15e75 100644
--- a/kernel/typeops.mli
+++ b/kernel/typeops.mli
@@ -6,7 +6,7 @@
 (*         *       GNU Lesser General Public License Version 2.1        *)
 (************************************************************************)
 
-(*i $Id: typeops.mli 10877 2008-04-30 21:58:41Z herbelin $ i*)
+(*i $Id$ i*)
 
 (*i*)
 open Names
@@ -25,7 +25,7 @@ val infer_type : env -> types        -> unsafe_type_judgment * constraints
 
 val infer_local_decls :
   env -> (identifier * local_entry) list
-    -> env * Sign.rel_context * constraints
+    -> env * rel_context * constraints
 
 (*s Basic operations of the typing machine. *)
 
@@ -52,23 +52,23 @@ val judge_of_constant_knowing_parameters :
   env -> constant -> unsafe_judgment array -> unsafe_judgment
 
 (*s Type of application. *)
-val judge_of_apply : 
+val judge_of_apply :
   env -> unsafe_judgment -> unsafe_judgment array
     -> unsafe_judgment * constraints
 
 (*s Type of an abstraction. *)
-val judge_of_abstraction : 
-  env -> name -> unsafe_type_judgment -> unsafe_judgment 
+val judge_of_abstraction :
+  env -> name -> unsafe_type_judgment -> unsafe_judgment
     -> unsafe_judgment
 
 (*s Type of a product. *)
 val judge_of_product :
-  env -> name -> unsafe_type_judgment -> unsafe_type_judgment 
+  env -> name -> 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 -> unsafe_judgment -> unsafe_type_judgment -> unsafe_judgment
     -> unsafe_judgment
 
 (*s Type of a cast. *)
@@ -80,7 +80,7 @@ val judge_of_cast :
 
 val judge_of_inductive : env -> inductive -> unsafe_judgment
 
-val judge_of_inductive_knowing_parameters : 
+val judge_of_inductive_knowing_parameters :
   env -> inductive -> unsafe_judgment array -> unsafe_judgment
 
 val judge_of_constructor : env -> constructor -> unsafe_judgment
@@ -91,7 +91,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 array -> types array
     -> unsafe_judgment array -> constraints
 
 (* Kernel safe typing but applicable to partial proofs *)
@@ -101,7 +101,7 @@ val type_of_constant : env -> constant -> types
 
 val type_of_constant_type : env -> constant_type -> types
 
-val type_of_constant_knowing_parameters : 
+val type_of_constant_knowing_parameters :
   env -> constant_type -> constr array -> types
 
 (* Make a type polymorphic if an arity *)
-- 
cgit v1.2.3