From e7c20952e90d4f70ae84ab60b6aab62691c18aa0 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 29 Mar 2006 21:21:52 +0000
Subject: Inductifs avec polymorphisme de sorte (version initiale)

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

(limited to 'kernel/inductive.mli')

diff --git a/kernel/inductive.mli b/kernel/inductive.mli
index f419bc3fab..a0ff0cefba 100644
--- a/kernel/inductive.mli
+++ b/kernel/inductive.mli
@@ -69,3 +69,17 @@ val scrape_mind : env -> mutual_inductive -> mutual_inductive
 (*s Guard conditions for fix and cofix-points. *)
 val check_fix : env -> fixpoint -> unit
 val check_cofix : env -> cofixpoint -> unit
+
+(*s Support for sort-polymorphic inductive types *)
+
+val constructor_instances : env -> mind_specif -> inductive -> 
+  constr array -> env * types array array * universe array
+
+val set_inductive_level : env -> sorts -> types -> types
+
+val find_inductive_level : env -> mind_specif -> inductive -> 
+  universe array -> universe array -> sorts
+
+val is_small_inductive : mind_specif -> bool
+
+val max_inductive_sort : sorts array -> universe
-- 
cgit v1.2.3