diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-03-07 17:05:06 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-03-07 17:05:06 +0000 |
| commit | b3a1bc5cfe7ce75a62655396d5c6e4baf89e0a15 (patch) | |
| tree | cdbca6ec7cf17a9c3724d62d6619a6b75bd685f7 /kernel/instantiate.ml | |
| 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/instantiate.ml')
| -rw-r--r-- | kernel/instantiate.ml | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/kernel/instantiate.ml b/kernel/instantiate.ml index e2afdb2a7..bf3135790 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)) |