From 23ffde4d7ad2c27f0131e173bf9f4823a39b3fa8 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 18 Oct 2000 11:06:01 +0000
Subject: Correction pb de globalisation dans print_mutual

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

(limited to 'kernel')

diff --git a/kernel/inductive.ml b/kernel/inductive.ml
index 1f1312887e..72058f62c7 100644
--- a/kernel/inductive.ml
+++ b/kernel/inductive.ml
@@ -39,6 +39,7 @@ let mis_typepath mis =
   make_path (dirpath mis.mis_sp) mis.mis_mip.mind_typename CCI
 let mis_consnames mis = mis.mis_mip.mind_consnames
 let mis_inductive mis = ((mis.mis_sp,mis.mis_tyi),mis.mis_args)
+let mis_finite mis = mis.mis_mip.mind_finite
 
 let mis_typed_nf_lc mis =
   let sign = mis.mis_mib.mind_hyps in
diff --git a/kernel/inductive.mli b/kernel/inductive.mli
index 45542ddc3c..e2d89cdefc 100644
--- a/kernel/inductive.mli
+++ b/kernel/inductive.mli
@@ -48,6 +48,7 @@ val mis_user_arity : inductive_instance -> typed_type
 val mis_params_ctxt : inductive_instance -> rel_context
 val mis_sort : inductive_instance -> sorts
 val mis_type_mconstruct : int -> inductive_instance -> typed_type
+val mis_finite : inductive_instance -> bool 
 
 (* The ccl of constructor is pre-normalised in the following functions *)
 val mis_nf_lc : inductive_instance -> constr array
-- 
cgit v1.2.3