diff options
| author | herbelin | 2000-03-07 17:05:06 +0000 |
|---|---|---|
| committer | herbelin | 2000-03-07 17:05:06 +0000 |
| commit | b3a1bc5cfe7ce75a62655396d5c6e4baf89e0a15 (patch) | |
| tree | cdbca6ec7cf17a9c3724d62d6619a6b75bd685f7 /kernel | |
| parent | d6dd162bf9f55dea839ce1fdceb7c9ca56ebcf7b (diff) | |
Export mis_typed_arity
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@296 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/instantiate.ml | 10 | ||||
| -rw-r--r-- | kernel/instantiate.mli | 1 |
2 files changed, 6 insertions, 5 deletions
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 |