X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FCoRN-Decl%2Ffta%2FFTA.ma;h=5b97159c0afc4324c201b704d547c04bfc9930a3;hb=601baed778a190b580982b588ebe49ba3f762b30;hp=ba69c7ec61aafe7d1aea19d0e4f86df9e0ac9cd5;hpb=876f16ec4e9080bad4e39bd9c203d6529dcf4f56;p=helm.git

diff --git a/helm/software/matita/contribs/CoRN-Decl/fta/FTA.ma b/helm/software/matita/contribs/CoRN-Decl/fta/FTA.ma
index ba69c7ec6..5b97159c0 100644
--- a/helm/software/matita/contribs/CoRN-Decl/fta/FTA.ma
+++ b/helm/software/matita/contribs/CoRN-Decl/fta/FTA.ma
@@ -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
 *)