X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcontribs%2FCoRN-Decl%2Ffta%2FFTA.ma;h=5b97159c0afc4324c201b704d547c04bfc9930a3;hb=a3f4c0a8b4328cb9a9fe3b4c2e577be2a258675c;hp=8f8bd91b522e4f386409415581c86e5fc9a91207;hpb=94873bb61a663b4fca3dc6d07b7bb9f42122003e;p=helm.git

diff --git a/matita/contribs/CoRN-Decl/fta/FTA.ma b/matita/contribs/CoRN-Decl/fta/FTA.ma
index 8f8bd91b5..5b97159c0 100644
--- a/matita/contribs/CoRN-Decl/fta/FTA.ma
+++ b/matita/contribs/CoRN-Decl/fta/FTA.ma
@@ -16,7 +16,7 @@
 
 set "baseuri" "cic:/matita/CoRN-Decl/fta/FTA".
 
-include "CoRN_notation.ma".
+include "CoRN.ma".
 
 (* $Id: FTA.v,v 1.6 2004/04/23 10:00:57 lcf Exp $ *)
 
@@ -31,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".
 
 (* UNEXPORTED
-End FTA_reg'.
+End FTA_reg'
 *)
 
 (*#*
@@ -54,22 +54,22 @@ 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/g.con".
+inline "cic:/CoRN/fta/FTA/FTA_1/g.con" "FTA_1__".
 
 inline "cic:/CoRN/fta/FTA/FTA_1b.con".
 
@@ -78,11 +78,11 @@ 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".
@@ -92,6 +92,6 @@ inline "cic:/CoRN/fta/FTA/FTA.con".
 inline "cic:/CoRN/fta/FTA/FTA_a_la_Henk.con".
 
 (* UNEXPORTED
-End Fund_Thm_Alg.
+End Fund_Thm_Alg
 *)