diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-09-15 16:44:52 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-09-15 16:44:52 +0000 |
| commit | f7da904e8702bd144f25fa3a80307a994a39f1d6 (patch) | |
| tree | 57dffffc91f349ebc974b745d277c70d4830b83f /kernel/reduction.mli | |
| parent | ccc5d85d36898c283a41230d0269b6ce701930cd (diff) | |
On laisse les LetIn dans les types des constructeurs et des éliminations
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@612 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/reduction.mli')
| -rw-r--r-- | kernel/reduction.mli | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/kernel/reduction.mli b/kernel/reduction.mli index d1a092ae7..7bb43b055 100644 --- a/kernel/reduction.mli +++ b/kernel/reduction.mli @@ -115,6 +115,8 @@ val splay_arity : env -> 'a evar_map -> constr -> (name * constr) list * sorts val sort_of_arity : env -> constr -> sorts val decomp_n_prod : env -> 'a evar_map -> int -> constr -> Sign.rel_context * constr +val splay_prod_assum : + env -> 'a evar_map -> constr -> Sign.rel_context * constr type 'a miota_args = { mP : constr; (* the result type *) |