X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcontribs%2FCoRN-Decl%2Ffta%2FKneserLemma.ma;h=66d4a7500b6a4448294f88e9ccfad7e6ae33e5b0;hb=0a9ed4329c069d2e06902934b6d1d58d3690959c;hp=84cd55eb612aea89b00fb09f02efc108e09275c2;hpb=0e0d5c57eb154bf20d101f09e560401434156c1d;p=helm.git

diff --git a/matita/contribs/CoRN-Decl/fta/KneserLemma.ma b/matita/contribs/CoRN-Decl/fta/KneserLemma.ma
index 84cd55eb6..66d4a7500 100644
--- a/matita/contribs/CoRN-Decl/fta/KneserLemma.ma
+++ b/matita/contribs/CoRN-Decl/fta/KneserLemma.ma
@@ -16,28 +16,24 @@
 
 set "baseuri" "cic:/matita/CoRN-Decl/fta/KneserLemma".
 
+include "CoRN.ma".
+
 (* $Id: KneserLemma.v,v 1.7 2004/04/23 10:00:57 lcf Exp $ *)
 
 (*#* printing Smallest %\ensuremath{\frac13^{2n^2+n}}% *)
 
 (*#* printing eta_0 %\ensuremath{\eta_0}% #&eta;<SUB>0</SUB># *)
 
-(* INCLUDE
-NRootCC
-*)
+include "complex/NRootCC.ma".
 
-(* INCLUDE
-AbsCC
-*)
+include "complex/AbsCC.ma".
 
-(* INCLUDE
-MainLemma
-*)
+include "fta/MainLemma.ma".
 
 (*#* ** Kneser Lemma *)
 
 (* UNEXPORTED
-Section Kneser_Lemma.
+Section Kneser_Lemma
 *)
 
 (*#*
@@ -47,25 +43,25 @@ such that [0 < n], [b_0 := b 0], [b_n := (b n) [=] One] and
 %\end{convention}%
 *)
 
-inline cic:/CoRN/fta/KneserLemma/b.var.
+alias id "b" = "cic:/CoRN/fta/KneserLemma/Kneser_Lemma/b.var".
 
-inline cic:/CoRN/fta/KneserLemma/n.var.
+alias id "n" = "cic:/CoRN/fta/KneserLemma/Kneser_Lemma/n.var".
 
-inline cic:/CoRN/fta/KneserLemma/gt_n_0.var.
+alias id "gt_n_0" = "cic:/CoRN/fta/KneserLemma/Kneser_Lemma/gt_n_0.var".
 
 (* begin hide *)
 
-inline cic:/CoRN/fta/KneserLemma/b_0.con.
+inline "cic:/CoRN/fta/KneserLemma/Kneser_Lemma/b_0.con" "Kneser_Lemma__".
 
-inline cic:/CoRN/fta/KneserLemma/b_n.con.
+inline "cic:/CoRN/fta/KneserLemma/Kneser_Lemma/b_n.con" "Kneser_Lemma__".
 
 (* end hide *)
 
-inline cic:/CoRN/fta/KneserLemma/b_n_1.var.
+alias id "b_n_1" = "cic:/CoRN/fta/KneserLemma/Kneser_Lemma/b_n_1.var".
 
-inline cic:/CoRN/fta/KneserLemma/c.var.
+alias id "c" = "cic:/CoRN/fta/KneserLemma/Kneser_Lemma/c.var".
 
-inline cic:/CoRN/fta/KneserLemma/b_0_lt_c.var.
+alias id "b_0_lt_c" = "cic:/CoRN/fta/KneserLemma/Kneser_Lemma/b_0_lt_c.var".
 
 (*#* 
 %\begin{convention}% We define the following local abbreviations:
@@ -81,69 +77,69 @@ inline cic:/CoRN/fta/KneserLemma/b_0_lt_c.var.
 
 (* begin hide *)
 
-inline cic:/CoRN/fta/KneserLemma/two_n.con.
+inline "cic:/CoRN/fta/KneserLemma/Kneser_Lemma/two_n.con" "Kneser_Lemma__".
 
-inline cic:/CoRN/fta/KneserLemma/Small.con.
+inline "cic:/CoRN/fta/KneserLemma/Kneser_Lemma/Small.con" "Kneser_Lemma__".
 
-inline cic:/CoRN/fta/KneserLemma/Smaller.con.
+inline "cic:/CoRN/fta/KneserLemma/Kneser_Lemma/Smaller.con" "Kneser_Lemma__".
 
-inline cic:/CoRN/fta/KneserLemma/Smallest.con.
+inline "cic:/CoRN/fta/KneserLemma/Kneser_Lemma/Smallest.con" "Kneser_Lemma__".
 
-inline cic:/CoRN/fta/KneserLemma/q.con.
+inline "cic:/CoRN/fta/KneserLemma/Kneser_Lemma/q.con" "Kneser_Lemma__".
 
 (* end hide *)
 
-inline cic:/CoRN/fta/KneserLemma/b_0'_exists.con.
+inline "cic:/CoRN/fta/KneserLemma/b_0'_exists.con".
 
-inline cic:/CoRN/fta/KneserLemma/eta_0.con.
+inline "cic:/CoRN/fta/KneserLemma/Kneser_Lemma/eta_0.con" "Kneser_Lemma__".
 
-inline cic:/CoRN/fta/KneserLemma/eta_0_pos.con.
+inline "cic:/CoRN/fta/KneserLemma/eta_0_pos.con".
 
-inline cic:/CoRN/fta/KneserLemma/eta_exists.con.
+inline "cic:/CoRN/fta/KneserLemma/eta_exists.con".
 
-inline cic:/CoRN/fta/KneserLemma/eps_exists_1.con.
+inline "cic:/CoRN/fta/KneserLemma/eps_exists_1.con".
 
 (* less_cotransitive_unfolded on 
   {Zero  [<]  y[/]x[//]H3[-]Half[*]eps} + 
   {y[/]x[//]H3[-]Half[*]eps  [<]  Half[*]eps}. *)
 
-inline cic:/CoRN/fta/KneserLemma/eps_exists.con.
+inline "cic:/CoRN/fta/KneserLemma/eps_exists.con".
 
 (* begin hide *)
 
-inline cic:/CoRN/fta/KneserLemma/a.con.
+inline "cic:/CoRN/fta/KneserLemma/Kneser_Lemma/a.con" "Kneser_Lemma__".
 
 (* end hide *)
 
-inline cic:/CoRN/fta/KneserLemma/z_exists.con.
+inline "cic:/CoRN/fta/KneserLemma/z_exists.con".
 
 (* end hide *)
 
-inline cic:/CoRN/fta/KneserLemma/Kneser_1'.con.
+inline "cic:/CoRN/fta/KneserLemma/Kneser_1'.con".
 
-inline cic:/CoRN/fta/KneserLemma/Kneser_1''.con.
+inline "cic:/CoRN/fta/KneserLemma/Kneser_1''.con".
 
-inline cic:/CoRN/fta/KneserLemma/Kneser_1.con.
+inline "cic:/CoRN/fta/KneserLemma/Kneser_1.con".
 
-inline cic:/CoRN/fta/KneserLemma/Kneser_2a.con.
+inline "cic:/CoRN/fta/KneserLemma/Kneser_2a.con".
 
-inline cic:/CoRN/fta/KneserLemma/Kneser_2b.con.
+inline "cic:/CoRN/fta/KneserLemma/Kneser_2b.con".
 
 (* end hide *)
 
-inline cic:/CoRN/fta/KneserLemma/Kneser_2c.con.
+inline "cic:/CoRN/fta/KneserLemma/Kneser_2c.con".
 
 (* end hide *)
 
-inline cic:/CoRN/fta/KneserLemma/Kneser_2.con.
+inline "cic:/CoRN/fta/KneserLemma/Kneser_2.con".
 
 (* end hide *)
 
-inline cic:/CoRN/fta/KneserLemma/Kneser_3.con.
+inline "cic:/CoRN/fta/KneserLemma/Kneser_3.con".
 
 (* UNEXPORTED
-End Kneser_Lemma.
+End Kneser_Lemma
 *)
 
-inline cic:/CoRN/fta/KneserLemma/Kneser.con.
+inline "cic:/CoRN/fta/KneserLemma/Kneser.con".