diff options
author | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-12-04 12:57:12 +0000 |
---|---|---|
committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-12-04 12:57:12 +0000 |
commit | 0929adb7a1bb4918123609db38b2e30cb1dcb19e (patch) | |
tree | 8e3cd25571853b8417428cdac865912eebf5dbe0 /kernel/declarations.ml | |
parent | 161bf6d64ebcaf53ee1a15f07f33a6ffc93854ef (diff) |
suppression du champ mind_singl inutilisé dans mutual_inductive_body
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3373 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/declarations.ml')
-rw-r--r-- | kernel/declarations.ml | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/kernel/declarations.ml b/kernel/declarations.ml index e6dd40c8a..ae45c932c 100644 --- a/kernel/declarations.ml +++ b/kernel/declarations.ml @@ -105,7 +105,6 @@ type mutual_inductive_body = { mind_hyps : section_context; mind_packets : one_inductive_body array; mind_constraints : constraints; - mind_singl : constr option; mind_equiv : kernel_name option } @@ -141,7 +140,6 @@ let subst_mind sub mib = mind_hyps = (assert (mib.mind_hyps=[]); []) ; mind_packets = array_smartmap (subst_mind_packet sub) mib.mind_packets ; mind_constraints = mib.mind_constraints ; - mind_singl = option_app (Term.subst_mps sub) mib.mind_singl; mind_equiv = option_app (subst_kn sub) mib.mind_equiv; } |