diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-01-24 16:20:11 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-01-24 16:20:11 +0000 |
commit | 0b96cc38f52d67c657ab68ba1006f77bf5c2a0b6 (patch) | |
tree | a223fbac50c38e06341fe8c37483691a9119e012 /kernel/declarations.mli | |
parent | 49d89ef0a7d3baaa28d76e66ce4658d8cc6155b6 (diff) |
Doc
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1267 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/declarations.mli')
-rw-r--r-- | kernel/declarations.mli | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/kernel/declarations.mli b/kernel/declarations.mli index e24ac3bdd..aca660567 100644 --- a/kernel/declarations.mli +++ b/kernel/declarations.mli @@ -80,6 +80,17 @@ val mind_arities_context : mutual_inductive_body -> rel_declaration list (*s Declaration of inductive types. *) +(* Assume the following definition in concrete syntax: +\begin{verbatim} +Inductive I1 [x1:X1;...;xn:Xn] : A1 := c11 : T11 | ... | c1n1 : T1n1 +... +with Ip [x1:X1;...;xn:Xn] : Ap := cp1 : Tp1 | ... | cpnp : Tpnp. +\end{verbatim} +then, in $i^{th}$ block, [mind_entry_params] is [[xn:Xn;...;x1:X1]]; +[mind_entry_arity] is [Ai], defined in context [[[x1:X1;...;xn:Xn]]; +[mind_entry_lc] is [Ti1;...;Tini], defined in context [[A'1;...;A'p;x1:X1;...;xn:Xn]] where [A'i] is [Ai] generalized over [[x1:X1;...;xn:Xn]]. +*) + type one_inductive_entry = { mind_entry_nparams : int; mind_entry_params : (identifier * local_entry) list; |