From eb6d5b6acaca83d13063f0d7fc414b4dbee6572e Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 27 Apr 2000 15:01:09 +0000
Subject: Retrait fullmind de inductive_summary pour simplicité

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@376 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/inductive.ml  | 1 -
 kernel/inductive.mli | 5 ++---
 kernel/reduction.ml  | 3 +--
 3 files changed, 3 insertions(+), 6 deletions(-)

(limited to 'kernel')

diff --git a/kernel/inductive.ml b/kernel/inductive.ml
index 9a59a889b4..16c6b6c773 100644
--- a/kernel/inductive.ml
+++ b/kernel/inductive.ml
@@ -64,7 +64,6 @@ type constructor_summary = {
 (* A light version of mind_specif_of_mind with pre-splitted args *)
 (* and a receipt to build a summary of constructors *)
 type inductive_summary = {
-  fullmind : constr;
   mind : inductive;
   params : constr list;
   realargs : constr list;
diff --git a/kernel/inductive.mli b/kernel/inductive.mli
index c5520cf493..8c431c319f 100644
--- a/kernel/inductive.mli
+++ b/kernel/inductive.mli
@@ -89,14 +89,13 @@ type constructor_summary = {
 
 (*s A variant of [mind_specif_of_mind] with pre-splitted args
 
-   Invariant: We have \par
-   [Hnf (fullmind)] = [DOPN(AppL,[|MutInd mind;..params..;..realargs..|])] \par
+   We recover the inductive type as \par
+   [DOPN(AppL,[|MutInd mind;..params..;..realargs..|])] \par
    with [mind]  = [((sp,i),localvars)] for some [sp, i, localvars].
 
  *)
 
 type inductive_summary = {
-  fullmind : constr;
   mind : inductive;
   params : constr list;
   realargs : constr list;
diff --git a/kernel/reduction.ml b/kernel/reduction.ml
index caf667dae6..eb84a2a0f3 100644
--- a/kernel/reduction.ml
+++ b/kernel/reduction.ml
@@ -1159,8 +1159,7 @@ let try_mutind_of env sigma ty =
   let (params,realargs) = list_chop nparams largs in
   let nconstr = mis_nconstr mispec in
   let hyps = mispec.mis_mib.mind_hyps in
-  { fullmind = ty;
-    mind     = mind;
+  { mind     = mind;
     params   = params;
     realargs = realargs;
     nparams  = nparams;
-- 
cgit v1.2.3