From 22e4ceb13d18c8b941f6a27cc83f547dd90104b8 Mon Sep 17 00:00:00 2001
From: filliatr
Date: Thu, 14 Oct 1999 13:33:49 +0000
Subject: module Logic

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

(limited to 'kernel/typeops.mli')

diff --git a/kernel/typeops.mli b/kernel/typeops.mli
index a95b54b66e..0a4419a608 100644
--- a/kernel/typeops.mli
+++ b/kernel/typeops.mli
@@ -33,6 +33,10 @@ val type_of_constructor : unsafe_env -> constr -> constr
 val type_of_case : unsafe_env -> unsafe_judgment -> unsafe_judgment 
   -> unsafe_judgment array -> unsafe_judgment
 
+val type_case_branches :
+  unsafe_env -> constr -> constr -> constr -> constr 
+    -> constr * constr array * constr 
+
 val type_of_prop_or_set : contents -> unsafe_judgment
 
 val type_of_type : universe -> unsafe_judgment * constraints
-- 
cgit v1.2.3