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
*)
(* 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'
*)
(*#*
*)
(* 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
*)