From b3a1bc5cfe7ce75a62655396d5c6e4baf89e0a15 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 7 Mar 2000 17:05:06 +0000
Subject: Export mis_typed_arity

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

(limited to 'kernel')

diff --git a/kernel/instantiate.ml b/kernel/instantiate.ml
index e2afdb2a72..bf31357904 100644
--- a/kernel/instantiate.ml
+++ b/kernel/instantiate.ml
@@ -53,6 +53,7 @@ let constant_value env k =
   else 
     failwith "opaque"
 
+
 let mis_lc mis =
   instantiate_constr (ids_of_sign mis.mis_mib.mind_hyps) mis.mis_mip.mind_lc
     (Array.to_list mis.mis_args)
@@ -109,13 +110,12 @@ let const_abst_opt_value env sigma c =
 	if evaluable_abst env c then Some (abst_value env c) else None
     | _ -> invalid_arg "const_abst_opt_value"
 
-let mis_arity' mis =
+let mis_typed_arity mis =
   let idhyps = ids_of_sign mis.mis_mib.mind_hyps 
-  and largs = Array.to_list mis.mis_args in 
-  { body = instantiate_constr idhyps mis.mis_mip.mind_arity.body largs;
-    typ = mis.mis_mip.mind_arity.typ }
+  and largs = Array.to_list mis.mis_args in
+  instantiate_type idhyps mis.mis_mip.mind_arity largs
 
 let mis_arity mispec =
-  let { body = b; typ = t } = mis_arity' mispec in
+  let { body = b; typ = t } = mis_typed_arity mispec in
   DOP2 (Cast, b, DOP0 (Sort t))
 
diff --git a/kernel/instantiate.mli b/kernel/instantiate.mli
index 10d62cb85c..9f5b02e92d 100644
--- a/kernel/instantiate.mli
+++ b/kernel/instantiate.mli
@@ -24,6 +24,7 @@ val existential_type : 'a evar_map -> constr -> constr
 
 val const_abst_opt_value : env -> 'a evar_map -> constr -> constr option
 
+val mis_typed_arity : mind_specif -> typed_type
 val mis_arity : mind_specif -> constr
 
 val mis_lc : mind_specif -> constr
-- 
cgit v1.2.3