helm/software/matita/contribs/CoRN-Procedural/fta/FTAreg.mma

   1 (**************************************************************************)
   2 (*       ___                                                              *)
   3 (*      ||M||                                                             *)
   4 (*      ||A||       A project by Andrea Asperti                           *)
   5 (*      ||T||                                                             *)
   6 (*      ||I||       Developers:                                           *)
   7 (*      ||T||         The HELM team.                                      *)
   8 (*      ||A||         http://helm.cs.unibo.it                             *)
   9 (*      \   /                                                             *)
  10 (*       \ /        This file is distributed under the terms of the       *)
  11 (*        v         GNU General Public License Version 2                  *)
  12 (*                                                                        *)
  13 (**************************************************************************)
  14
  15 (* This file was automatically generated: do not edit *********************)
  16
  17 include "CoRN.ma".
  18
  19 (* $Id: FTAreg.v,v 1.4 2004/04/23 10:00:57 lcf Exp $ *)
  20
  21 include "fta/KneserLemma.ma".
  22
  23 include "fta/CPoly_Shift.ma".
  24
  25 include "fta/CPoly_Contin1.ma".
  26
  27 (*#* * FTA for regular polynomials
  28 ** The Kneser sequence
  29 %\begin{convention}% Let [n] be a positive natural number.
  30 %\end{convention}%
  31 *)
  32
  33 (* UNEXPORTED
  34 Section Seq_Exists
  35 *)
  36
  37 alias id "n" = "cic:/CoRN/fta/FTAreg/Seq_Exists/n.var".
  38
  39 alias id "lt0n" = "cic:/CoRN/fta/FTAreg/Seq_Exists/lt0n.var".
  40
  41 (*#*
  42 %\begin{convention}% Let [qK] be a real between 0 and 1, with
  43 [[
  44 forall (p : CCX), (monic n p) -> forall (c : IR), ((AbsCC (p!Zero)) [<] c) ->
  45  {z:CC | ((AbsCC z) [^]n [<] c) | ((AbsCC (p!z)) [<] qK[*]c)}.
  46 ]]
  47 Let [p] be a monic polynomial over the complex numbers with degree
  48 [n], and let [c0] be such that [(AbsCC (p!Zero)) [<] c0].
  49 %\end{convention}%
  50 *)
  51
  52 (* UNEXPORTED
  53 Section Kneser_Sequence
  54 *)
  55
  56 alias id "qK" = "cic:/CoRN/fta/FTAreg/Seq_Exists/Kneser_Sequence/qK.var".
  57
  58 alias id "zltq" = "cic:/CoRN/fta/FTAreg/Seq_Exists/Kneser_Sequence/zltq.var".
  59
  60 alias id "qlt1" = "cic:/CoRN/fta/FTAreg/Seq_Exists/Kneser_Sequence/qlt1.var".
  61
  62 alias id "q_prop" = "cic:/CoRN/fta/FTAreg/Seq_Exists/Kneser_Sequence/q_prop.var".
  63
  64 alias id "p" = "cic:/CoRN/fta/FTAreg/Seq_Exists/Kneser_Sequence/p.var".
  65
  66 alias id "mp" = "cic:/CoRN/fta/FTAreg/Seq_Exists/Kneser_Sequence/mp.var".
  67
  68 alias id "c0" = "cic:/CoRN/fta/FTAreg/Seq_Exists/Kneser_Sequence/c0.var".
  69
  70 alias id "p0ltc0" = "cic:/CoRN/fta/FTAreg/Seq_Exists/Kneser_Sequence/p0ltc0.var".
  71
  72 inline procedural "cic:/CoRN/fta/FTAreg/Knes_tup.ind".
  73
  74 (* COERCION
  75 cic:/matita/CoRN-Procedural/fta/FTAreg/z_el.con
  76 *)
  77
  78 inline procedural "cic:/CoRN/fta/FTAreg/Knes_tupp.ind".
  79
  80 (* COERCION
  81 cic:/matita/CoRN-Procedural/fta/FTAreg/Kntup.con
  82 *)
  83
  84 inline procedural "cic:/CoRN/fta/FTAreg/Knes_fun.con".
  85
  86 inline procedural "cic:/CoRN/fta/FTAreg/Knes_fun_it.con".
  87
  88 inline procedural "cic:/CoRN/fta/FTAreg/sK.con".
  89
  90 inline procedural "cic:/CoRN/fta/FTAreg/sK_c.con".
  91
  92 inline procedural "cic:/CoRN/fta/FTAreg/sK_c0.con".
  93
  94 inline procedural "cic:/CoRN/fta/FTAreg/sK_prop1.con".
  95
  96 inline procedural "cic:/CoRN/fta/FTAreg/sK_it.con".
  97
  98 inline procedural "cic:/CoRN/fta/FTAreg/sK_prop2.con".
  99
 100 (* UNEXPORTED
 101 End Kneser_Sequence
 102 *)
 103
 104 (* UNEXPORTED
 105 Section Seq_Exists_Main
 106 *)
 107
 108 (*#* **Main results
 109 *)
 110
 111 inline procedural "cic:/CoRN/fta/FTAreg/seq_exists.con".
 112
 113 (* UNEXPORTED
 114 End Seq_Exists_Main
 115 *)
 116
 117 (* UNEXPORTED
 118 End Seq_Exists
 119 *)
 120
 121 (* UNEXPORTED
 122 Section N_Exists
 123 *)
 124
 125 alias id "n" = "cic:/CoRN/fta/FTAreg/N_Exists/n.var".
 126
 127 alias id "lt0n" = "cic:/CoRN/fta/FTAreg/N_Exists/lt0n.var".
 128
 129 alias id "q" = "cic:/CoRN/fta/FTAreg/N_Exists/q.var".
 130
 131 alias id "zleq" = "cic:/CoRN/fta/FTAreg/N_Exists/zleq.var".
 132
 133 alias id "qlt1" = "cic:/CoRN/fta/FTAreg/N_Exists/qlt1.var".
 134
 135 alias id "c" = "cic:/CoRN/fta/FTAreg/N_Exists/c.var".
 136
 137 alias id "zltc" = "cic:/CoRN/fta/FTAreg/N_Exists/zltc.var".
 138
 139 (* begin hide *)
 140
 141 inline procedural "cic:/CoRN/fta/FTAreg/N_Exists/q_.con" "N_Exists__".
 142
 143 (* end hide *)
 144
 145 alias id "e" = "cic:/CoRN/fta/FTAreg/N_Exists/e.var".
 146
 147 alias id "zlte" = "cic:/CoRN/fta/FTAreg/N_Exists/zlte.var".
 148
 149 inline procedural "cic:/CoRN/fta/FTAreg/N_exists.con".
 150
 151 (* UNEXPORTED
 152 End N_Exists
 153 *)
 154
 155 (* UNEXPORTED
 156 Section Seq_is_CC_CAuchy
 157 *)
 158
 159 (*#* ** The Kneser sequence is Cauchy in [CC] *)
 160
 161 alias id "n" = "cic:/CoRN/fta/FTAreg/Seq_is_CC_CAuchy/n.var".
 162
 163 alias id "lt0n" = "cic:/CoRN/fta/FTAreg/Seq_is_CC_CAuchy/lt0n.var".
 164
 165 alias id "q" = "cic:/CoRN/fta/FTAreg/Seq_is_CC_CAuchy/q.var".
 166
 167 alias id "zleq" = "cic:/CoRN/fta/FTAreg/Seq_is_CC_CAuchy/zleq.var".
 168
 169 alias id "qlt1" = "cic:/CoRN/fta/FTAreg/Seq_is_CC_CAuchy/qlt1.var".
 170
 171 alias id "c" = "cic:/CoRN/fta/FTAreg/Seq_is_CC_CAuchy/c.var".
 172
 173 alias id "zltc" = "cic:/CoRN/fta/FTAreg/Seq_is_CC_CAuchy/zltc.var".
 174
 175 (*#* %\begin{convention}% Let:
 176  - [q_] prove [q[-]One [#] Zero]
 177  - [nrtq := NRoot q n]
 178  - [nrtc := Nroot c n]
 179  - [nrtqlt1] prove [nrtq [<] One]
 180  - [nrtq_] prove [nrtq[-]One [#] Zero]
 181
 182 %\end{convention}% *)
 183
 184 (* begin hide *)
 185
 186 inline procedural "cic:/CoRN/fta/FTAreg/Seq_is_CC_CAuchy/q_.con" "Seq_is_CC_CAuchy__".
 187
 188 inline procedural "cic:/CoRN/fta/FTAreg/Seq_is_CC_CAuchy/nrtq.con" "Seq_is_CC_CAuchy__".
 189
 190 inline procedural "cic:/CoRN/fta/FTAreg/Seq_is_CC_CAuchy/nrtc.con" "Seq_is_CC_CAuchy__".
 191
 192 inline procedural "cic:/CoRN/fta/FTAreg/Seq_is_CC_CAuchy/nrtqlt1.con" "Seq_is_CC_CAuchy__".
 193
 194 inline procedural "cic:/CoRN/fta/FTAreg/Seq_is_CC_CAuchy/nrtq_.con" "Seq_is_CC_CAuchy__".
 195
 196 (* end hide *)
 197
 198 inline procedural "cic:/CoRN/fta/FTAreg/zlt_nrtq.con".
 199
 200 inline procedural "cic:/CoRN/fta/FTAreg/zlt_nrtc.con".
 201
 202 inline procedural "cic:/CoRN/fta/FTAreg/nrt_pow.con".
 203
 204 inline procedural "cic:/CoRN/fta/FTAreg/abs_pow_ltRe.con".
 205
 206 inline procedural "cic:/CoRN/fta/FTAreg/abs_pow_ltIm.con".
 207
 208 inline procedural "cic:/CoRN/fta/FTAreg/SublemmaRe.con".
 209
 210 inline procedural "cic:/CoRN/fta/FTAreg/SublemmaIm.con".
 211
 212 inline procedural "cic:/CoRN/fta/FTAreg/seq_is_CC_Cauchy.con".
 213
 214 (* UNEXPORTED
 215 End Seq_is_CC_CAuchy
 216 *)
 217
 218 inline procedural "cic:/CoRN/fta/FTAreg/FTA_monic.con".
 219
 220 inline procedural "cic:/CoRN/fta/FTAreg/FTA_reg.con".
 221