From bf352b0b29a8e3d55eaa986c4f493af48f8ddf52 Mon Sep 17 00:00:00 2001
From: barras
Date: Thu, 3 May 2001 09:54:17 +0000
Subject: Changement de la structure des points fixes

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1731 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/typeops.mli | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

(limited to 'kernel/typeops.mli')

diff --git a/kernel/typeops.mli b/kernel/typeops.mli
index aaa07142f3..3008c87cb4 100644
--- a/kernel/typeops.mli
+++ b/kernel/typeops.mli
@@ -50,6 +50,11 @@ val abs_rel :
   env -> 'a evar_map -> name -> types -> unsafe_judgment 
     -> unsafe_judgment * constraints
 
+(* s Type of a let in. *)
+val judge_of_letin :
+  env -> 'a evar_map -> name -> unsafe_judgment -> unsafe_judgment 
+    -> unsafe_judgment * constraints
+
 (*s Type of application. *)
 val apply_rel_list : 
   env -> 'a evar_map -> bool -> unsafe_judgment list -> unsafe_judgment
@@ -75,21 +80,22 @@ val type_of_inductive : env -> 'a evar_map -> inductive -> types
 val type_of_constructor : env -> 'a evar_map -> constructor -> types
 
 (*s Type of Cases. *)
-val type_of_case : env -> 'a evar_map -> case_info
+val judge_of_case : env -> 'a evar_map -> case_info
   -> unsafe_judgment -> unsafe_judgment 
-    -> unsafe_judgment array -> unsafe_judgment
+    -> unsafe_judgment array -> unsafe_judgment * constraints
 
 val find_case_dep_nparams :
-  env -> 'a evar_map -> constr * constr -> inductive_family -> constr -> bool
+  env -> 'a evar_map -> constr * constr -> inductive_family -> constr
+    -> bool * constraints
 
 val type_case_branches :
   env -> 'a evar_map -> Inductive.inductive_type -> constr -> types
-    -> constr -> types array * types
+    -> constr -> types array * types * constraints
 
 (*s Type of fixpoints and guard condition. *)
 val check_fix : env -> 'a evar_map -> fixpoint -> unit
 val check_cofix : env -> 'a evar_map -> cofixpoint -> unit
-val type_fixpoint : env -> 'a evar_map -> name list -> types array 
+val type_fixpoint : env -> 'a evar_map -> name array -> types array 
     -> unsafe_judgment array -> constraints
 
 val control_only_guard : env -> 'a evar_map -> constr -> unit
-- 
cgit v1.2.3