1 (**************************************************************************)
4 (* ||A|| A project by Andrea Asperti *)
6 (* ||I|| Developers: *)
7 (* ||T|| The HELM team. *)
8 (* ||A|| http://helm.cs.unibo.it *)
10 (* \ / This file is distributed under the terms of the *)
11 (* v GNU General Public License Version 2 *)
13 (**************************************************************************)
15 (* This file was automatically generated: do not edit *********************)
19 (* $Id: KneserLemma.v,v 1.7 2004/04/23 10:00:57 lcf Exp $ *)
21 (*#* printing Smallest %\ensuremath{\frac13^{2n^2+n}}% *)
23 (*#* printing eta_0 %\ensuremath{\eta_0}% #η<SUB>0</SUB># *)
25 include "complex/NRootCC.ma".
27 include "complex/AbsCC.ma".
29 include "fta/MainLemma.ma".
31 (*#* ** Kneser Lemma *)
38 %\begin{convention}% Let [b : nat->CC], [n : nat] and [c : IR]
39 such that [0 < n], [b_0 := b 0], [b_n := (b n) [=] One] and
44 alias id "b" = "cic:/CoRN/fta/KneserLemma/Kneser_Lemma/b.var".
46 alias id "n" = "cic:/CoRN/fta/KneserLemma/Kneser_Lemma/n.var".
48 alias id "gt_n_0" = "cic:/CoRN/fta/KneserLemma/Kneser_Lemma/gt_n_0.var".
52 inline procedural "cic:/CoRN/fta/KneserLemma/Kneser_Lemma/b_0.con" "Kneser_Lemma__".
54 inline procedural "cic:/CoRN/fta/KneserLemma/Kneser_Lemma/b_n.con" "Kneser_Lemma__".
58 alias id "b_n_1" = "cic:/CoRN/fta/KneserLemma/Kneser_Lemma/b_n_1.var".
60 alias id "c" = "cic:/CoRN/fta/KneserLemma/Kneser_Lemma/c.var".
62 alias id "b_0_lt_c" = "cic:/CoRN/fta/KneserLemma/Kneser_Lemma/b_0_lt_c.var".
65 %\begin{convention}% We define the following local abbreviations:
68 - [Smaller := p3m (two_n * n)]
69 - [Smallest := Small[*]Smaller]
70 - [q := One[-]Smallest]
71 - [a i := AbsCC (b i)]
78 inline procedural "cic:/CoRN/fta/KneserLemma/Kneser_Lemma/two_n.con" "Kneser_Lemma__".
80 inline procedural "cic:/CoRN/fta/KneserLemma/Kneser_Lemma/Small.con" "Kneser_Lemma__".
82 inline procedural "cic:/CoRN/fta/KneserLemma/Kneser_Lemma/Smaller.con" "Kneser_Lemma__".
84 inline procedural "cic:/CoRN/fta/KneserLemma/Kneser_Lemma/Smallest.con" "Kneser_Lemma__".
86 inline procedural "cic:/CoRN/fta/KneserLemma/Kneser_Lemma/q.con" "Kneser_Lemma__".
90 inline procedural "cic:/CoRN/fta/KneserLemma/b_0'_exists.con".
92 inline procedural "cic:/CoRN/fta/KneserLemma/Kneser_Lemma/eta_0.con" "Kneser_Lemma__".
94 inline procedural "cic:/CoRN/fta/KneserLemma/eta_0_pos.con".
96 inline procedural "cic:/CoRN/fta/KneserLemma/eta_exists.con".
98 inline procedural "cic:/CoRN/fta/KneserLemma/eps_exists_1.con".
100 (* less_cotransitive_unfolded on
101 {Zero [<] y[/]x[//]H3[-]Half[*]eps} +
102 {y[/]x[//]H3[-]Half[*]eps [<] Half[*]eps}. *)
104 inline procedural "cic:/CoRN/fta/KneserLemma/eps_exists.con".
108 inline procedural "cic:/CoRN/fta/KneserLemma/Kneser_Lemma/a.con" "Kneser_Lemma__".
112 inline procedural "cic:/CoRN/fta/KneserLemma/z_exists.con".
116 inline procedural "cic:/CoRN/fta/KneserLemma/Kneser_1'.con".
118 inline procedural "cic:/CoRN/fta/KneserLemma/Kneser_1''.con".
120 inline procedural "cic:/CoRN/fta/KneserLemma/Kneser_1.con".
122 inline procedural "cic:/CoRN/fta/KneserLemma/Kneser_2a.con".
124 inline procedural "cic:/CoRN/fta/KneserLemma/Kneser_2b.con".
128 inline procedural "cic:/CoRN/fta/KneserLemma/Kneser_2c.con".
132 inline procedural "cic:/CoRN/fta/KneserLemma/Kneser_2.con".
136 inline procedural "cic:/CoRN/fta/KneserLemma/Kneser_3.con".
142 inline procedural "cic:/CoRN/fta/KneserLemma/Kneser.con".