X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcontribs%2FCoRN-Decl%2Ffta%2FFTA.ma;h=5b97159c0afc4324c201b704d547c04bfc9930a3;hb=0a9ed4329c069d2e06902934b6d1d58d3690959c;hp=3060032a79dda5d853018b59a468c18ec76e6bf2;hpb=0e0d5c57eb154bf20d101f09e560401434156c1d;p=helm.git

diff --git a/matita/contribs/CoRN-Decl/fta/FTA.ma b/matita/contribs/CoRN-Decl/fta/FTA.ma
index 3060032a7..5b97159c0 100644
--- a/matita/contribs/CoRN-Decl/fta/FTA.ma
+++ b/matita/contribs/CoRN-Decl/fta/FTA.ma
@@ -16,15 +16,13 @@
 
 set "baseuri" "cic:/matita/CoRN-Decl/fta/FTA".
 
+include "CoRN.ma".
+
 (* $Id: FTA.v,v 1.6 2004/04/23 10:00:57 lcf Exp $ *)
 
-(* INCLUDE
-CPoly_Rev
-*)
+include "fta/CPoly_Rev.ma".
 
-(* INCLUDE
-FTAreg
-*)
+include "fta/FTAreg.ma".
 
 (*#* * Fundamental Theorem of Algebra
 %\begin{convention}% Let [n:nat] and [f] be a complex polynomial of
@@ -33,19 +31,19 @@ degree [(S n)].
 *)
 
 (* UNEXPORTED
-Section FTA_reg'.
+Section FTA_reg'
 *)
 
-inline cic:/CoRN/fta/FTA/f.var.
+alias id "f" = "cic:/CoRN/fta/FTA/FTA_reg'/f.var".
 
-inline cic:/CoRN/fta/FTA/n.var.
+alias id "n" = "cic:/CoRN/fta/FTA/FTA_reg'/n.var".
 
-inline cic:/CoRN/fta/FTA/f_degree.var.
+alias id "f_degree" = "cic:/CoRN/fta/FTA/FTA_reg'/f_degree.var".
 
-inline cic:/CoRN/fta/FTA/FTA_reg'.con.
+inline "cic:/CoRN/fta/FTA/FTA_reg'.con".
 
 (* UNEXPORTED
-End FTA_reg'.
+End FTA_reg'
 *)
 
 (*#*
@@ -56,44 +54,44 @@ less than or equal to [(S n)] and [c] be a complex number such that
 *)
 
 (* UNEXPORTED
-Section FTA_1.
+Section FTA_1
 *)
 
-inline cic:/CoRN/fta/FTA/f.var.
+alias id "f" = "cic:/CoRN/fta/FTA/FTA_1/f.var".
 
-inline cic:/CoRN/fta/FTA/n.var.
+alias id "n" = "cic:/CoRN/fta/FTA/FTA_1/n.var".
 
-inline cic:/CoRN/fta/FTA/f_degree.var.
+alias id "f_degree" = "cic:/CoRN/fta/FTA/FTA_1/f_degree.var".
 
-inline cic:/CoRN/fta/FTA/c.var.
+alias id "c" = "cic:/CoRN/fta/FTA/FTA_1/c.var".
 
-inline cic:/CoRN/fta/FTA/f_c.var.
+alias id "f_c" = "cic:/CoRN/fta/FTA/FTA_1/f_c.var".
 
-inline cic:/CoRN/fta/FTA/FTA_1a.con.
+inline "cic:/CoRN/fta/FTA/FTA_1a.con".
 
-inline cic:/CoRN/fta/FTA/g.con.
+inline "cic:/CoRN/fta/FTA/FTA_1/g.con" "FTA_1__".
 
-inline cic:/CoRN/fta/FTA/FTA_1b.con.
+inline "cic:/CoRN/fta/FTA/FTA_1b.con".
 
-inline cic:/CoRN/fta/FTA/FTA_1.con.
+inline "cic:/CoRN/fta/FTA/FTA_1.con".
 
-inline cic:/CoRN/fta/FTA/FTA_1'.con.
+inline "cic:/CoRN/fta/FTA/FTA_1'.con".
 
 (* UNEXPORTED
-End FTA_1.
+End FTA_1
 *)
 
 (* UNEXPORTED
-Section Fund_Thm_Alg.
+Section Fund_Thm_Alg
 *)
 
-inline cic:/CoRN/fta/FTA/FTA'.con.
+inline "cic:/CoRN/fta/FTA/FTA'.con".
 
-inline cic:/CoRN/fta/FTA/FTA.con.
+inline "cic:/CoRN/fta/FTA/FTA.con".
 
-inline cic:/CoRN/fta/FTA/FTA_a_la_Henk.con.
+inline "cic:/CoRN/fta/FTA/FTA_a_la_Henk.con".
 
 (* UNEXPORTED
-End Fund_Thm_Alg.
+End Fund_Thm_Alg
 *)