(**************************************************************************)
(*       ___                                                              *)
(*      ||M||                                                             *)
(*      ||A||       A project by Andrea Asperti                           *)
(*      ||T||                                                             *)
(*      ||I||       Developers:                                           *)
(*      ||T||         The HELM team.                                      *)
(*      ||A||         http://helm.cs.unibo.it                             *)
(*      \   /                                                             *)
(*       \ /        This file is distributed under the terms of the       *)
(*        v         GNU General Public License Version 2                  *)
(*                                                                        *)
(**************************************************************************)

(* This file was automatically generated: do not edit *********************)

include "CoRN.ma".

(* $Id: FTAreg.v,v 1.4 2004/04/23 10:00:57 lcf Exp $ *)

include "fta/KneserLemma.ma".

include "fta/CPoly_Shift.ma".

include "fta/CPoly_Contin1.ma".

(*#* * FTA for regular polynomials
** The Kneser sequence
%\begin{convention}% Let [n] be a positive natural number.
%\end{convention}%
*)

(* UNEXPORTED
Section Seq_Exists
*)

alias id "n" = "cic:/CoRN/fta/FTAreg/Seq_Exists/n.var".

alias id "lt0n" = "cic:/CoRN/fta/FTAreg/Seq_Exists/lt0n.var".

(*#*
%\begin{convention}% Let [qK] be a real between 0 and 1, with
[[
forall (p : CCX), (monic n p) -> forall (c : IR), ((AbsCC (p!Zero)) [<] c) ->
 {z:CC | ((AbsCC z) [^]n [<] c) | ((AbsCC (p!z)) [<] qK[*]c)}.
]]
Let [p] be a monic polynomial over the complex numbers with degree 
[n], and let [c0] be such that [(AbsCC (p!Zero)) [<] c0].
%\end{convention}%
*)

(* UNEXPORTED
Section Kneser_Sequence
*)

alias id "qK" = "cic:/CoRN/fta/FTAreg/Seq_Exists/Kneser_Sequence/qK.var".

alias id "zltq" = "cic:/CoRN/fta/FTAreg/Seq_Exists/Kneser_Sequence/zltq.var".

alias id "qlt1" = "cic:/CoRN/fta/FTAreg/Seq_Exists/Kneser_Sequence/qlt1.var".

alias id "q_prop" = "cic:/CoRN/fta/FTAreg/Seq_Exists/Kneser_Sequence/q_prop.var".

alias id "p" = "cic:/CoRN/fta/FTAreg/Seq_Exists/Kneser_Sequence/p.var".

alias id "mp" = "cic:/CoRN/fta/FTAreg/Seq_Exists/Kneser_Sequence/mp.var".

alias id "c0" = "cic:/CoRN/fta/FTAreg/Seq_Exists/Kneser_Sequence/c0.var".

alias id "p0ltc0" = "cic:/CoRN/fta/FTAreg/Seq_Exists/Kneser_Sequence/p0ltc0.var".

inline procedural "cic:/CoRN/fta/FTAreg/Knes_tup.ind".

(* COERCION
cic:/matita/CoRN-Procedural/fta/FTAreg/z_el.con
*)

inline procedural "cic:/CoRN/fta/FTAreg/Knes_tupp.ind".

(* COERCION
cic:/matita/CoRN-Procedural/fta/FTAreg/Kntup.con
*)

inline procedural "cic:/CoRN/fta/FTAreg/Knes_fun.con".

inline procedural "cic:/CoRN/fta/FTAreg/Knes_fun_it.con".

inline procedural "cic:/CoRN/fta/FTAreg/sK.con".

inline procedural "cic:/CoRN/fta/FTAreg/sK_c.con".

inline procedural "cic:/CoRN/fta/FTAreg/sK_c0.con".

inline procedural "cic:/CoRN/fta/FTAreg/sK_prop1.con".

inline procedural "cic:/CoRN/fta/FTAreg/sK_it.con".

inline procedural "cic:/CoRN/fta/FTAreg/sK_prop2.con".

(* UNEXPORTED
End Kneser_Sequence
*)

(* UNEXPORTED
Section Seq_Exists_Main
*)

(*#* **Main results
*)

inline procedural "cic:/CoRN/fta/FTAreg/seq_exists.con".

(* UNEXPORTED
End Seq_Exists_Main
*)

(* UNEXPORTED
End Seq_Exists
*)

(* UNEXPORTED
Section N_Exists
*)

alias id "n" = "cic:/CoRN/fta/FTAreg/N_Exists/n.var".

alias id "lt0n" = "cic:/CoRN/fta/FTAreg/N_Exists/lt0n.var".

alias id "q" = "cic:/CoRN/fta/FTAreg/N_Exists/q.var".

alias id "zleq" = "cic:/CoRN/fta/FTAreg/N_Exists/zleq.var".

alias id "qlt1" = "cic:/CoRN/fta/FTAreg/N_Exists/qlt1.var".

alias id "c" = "cic:/CoRN/fta/FTAreg/N_Exists/c.var".

alias id "zltc" = "cic:/CoRN/fta/FTAreg/N_Exists/zltc.var".

(* begin hide *)

inline procedural "cic:/CoRN/fta/FTAreg/N_Exists/q_.con" "N_Exists__".

(* end hide *)

alias id "e" = "cic:/CoRN/fta/FTAreg/N_Exists/e.var".

alias id "zlte" = "cic:/CoRN/fta/FTAreg/N_Exists/zlte.var".

inline procedural "cic:/CoRN/fta/FTAreg/N_exists.con".

(* UNEXPORTED
End N_Exists
*)

(* UNEXPORTED
Section Seq_is_CC_CAuchy
*)

(*#* ** The Kneser sequence is Cauchy in [CC] *)

alias id "n" = "cic:/CoRN/fta/FTAreg/Seq_is_CC_CAuchy/n.var".

alias id "lt0n" = "cic:/CoRN/fta/FTAreg/Seq_is_CC_CAuchy/lt0n.var".

alias id "q" = "cic:/CoRN/fta/FTAreg/Seq_is_CC_CAuchy/q.var".

alias id "zleq" = "cic:/CoRN/fta/FTAreg/Seq_is_CC_CAuchy/zleq.var".

alias id "qlt1" = "cic:/CoRN/fta/FTAreg/Seq_is_CC_CAuchy/qlt1.var".

alias id "c" = "cic:/CoRN/fta/FTAreg/Seq_is_CC_CAuchy/c.var".

alias id "zltc" = "cic:/CoRN/fta/FTAreg/Seq_is_CC_CAuchy/zltc.var".

(*#* %\begin{convention}% Let:
 - [q_] prove [q[-]One [#] Zero]
 - [nrtq := NRoot q n]
 - [nrtc := Nroot c n]
 - [nrtqlt1] prove [nrtq [<] One]
 - [nrtq_] prove [nrtq[-]One [#] Zero]

%\end{convention}% *)

(* begin hide *)

inline procedural "cic:/CoRN/fta/FTAreg/Seq_is_CC_CAuchy/q_.con" "Seq_is_CC_CAuchy__".

inline procedural "cic:/CoRN/fta/FTAreg/Seq_is_CC_CAuchy/nrtq.con" "Seq_is_CC_CAuchy__".

inline procedural "cic:/CoRN/fta/FTAreg/Seq_is_CC_CAuchy/nrtc.con" "Seq_is_CC_CAuchy__".

inline procedural "cic:/CoRN/fta/FTAreg/Seq_is_CC_CAuchy/nrtqlt1.con" "Seq_is_CC_CAuchy__".

inline procedural "cic:/CoRN/fta/FTAreg/Seq_is_CC_CAuchy/nrtq_.con" "Seq_is_CC_CAuchy__".

(* end hide *)

inline procedural "cic:/CoRN/fta/FTAreg/zlt_nrtq.con".

inline procedural "cic:/CoRN/fta/FTAreg/zlt_nrtc.con".

inline procedural "cic:/CoRN/fta/FTAreg/nrt_pow.con".

inline procedural "cic:/CoRN/fta/FTAreg/abs_pow_ltRe.con".

inline procedural "cic:/CoRN/fta/FTAreg/abs_pow_ltIm.con".

inline procedural "cic:/CoRN/fta/FTAreg/SublemmaRe.con".

inline procedural "cic:/CoRN/fta/FTAreg/SublemmaIm.con".

inline procedural "cic:/CoRN/fta/FTAreg/seq_is_CC_Cauchy.con".

(* UNEXPORTED
End Seq_is_CC_CAuchy
*)

inline procedural "cic:/CoRN/fta/FTAreg/FTA_monic.con".

inline procedural "cic:/CoRN/fta/FTAreg/FTA_reg.con".