From 0b96cc38f52d67c657ab68ba1006f77bf5c2a0b6 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 24 Jan 2001 16:20:11 +0000
Subject: Doc

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1267 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/declarations.mli | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'kernel')

diff --git a/kernel/declarations.mli b/kernel/declarations.mli
index e24ac3bdd1..aca6605672 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;
-- 
cgit v1.2.3