begin
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem Th5:
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem Th15:
theorem Th16:
theorem Th17:
theorem Th18:
:: deftheorem POLYNOM1:def 1 :
canceled;
:: deftheorem Def2 defines * POLYNOM1:def 2 :
:: deftheorem Def3 defines * POLYNOM1:def 3 :
theorem Th19:
theorem Th20:
theorem Th21:
theorem Th22:
theorem Th23:
theorem Th24:
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem Th28:
theorem Th29:
begin
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem Th34:
:: deftheorem POLYNOM1:def 4 :
canceled;
:: deftheorem POLYNOM1:def 5 :
canceled;
:: deftheorem POLYNOM1:def 6 :
canceled;
:: deftheorem POLYNOM1:def 7 :
canceled;
:: deftheorem POLYNOM1:def 8 :
canceled;
:: deftheorem Def9 defines Support POLYNOM1:def 9 :
:: deftheorem Def10 defines finite-Support POLYNOM1:def 10 :
begin
definition
canceled;canceled;canceled;canceled;canceled;canceled;canceled;canceled;canceled;canceled;let n be
set ;
let L be non
empty addLoopStr ;
let p,
q be
Series of
n,
L;
func p + q -> Series of
n,
L means :
Def21:
for
x being
bag of
n holds
it . x = (p . x) + (q . x);
existence
ex b1 being Series of n,L st
for x being bag of n holds b1 . x = (p . x) + (q . x)
uniqueness
for b1, b2 being Series of n,L st ( for x being bag of n holds b1 . x = (p . x) + (q . x) ) & ( for x being bag of n holds b2 . x = (p . x) + (q . x) ) holds
b1 = b2
end;
:: deftheorem POLYNOM1:def 11 :
canceled;
:: deftheorem POLYNOM1:def 12 :
canceled;
:: deftheorem POLYNOM1:def 13 :
canceled;
:: deftheorem POLYNOM1:def 14 :
canceled;
:: deftheorem POLYNOM1:def 15 :
canceled;
:: deftheorem POLYNOM1:def 16 :
canceled;
:: deftheorem POLYNOM1:def 17 :
canceled;
:: deftheorem POLYNOM1:def 18 :
canceled;
:: deftheorem POLYNOM1:def 19 :
canceled;
:: deftheorem POLYNOM1:def 20 :
canceled;
:: deftheorem Def21 defines + POLYNOM1:def 21 :
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem
canceled;
theorem Th79:
theorem Th80:
:: deftheorem Def22 defines - POLYNOM1:def 22 :
:: deftheorem defines - POLYNOM1:def 23 :
:: deftheorem defines 0_ POLYNOM1:def 24 :
theorem Th81:
theorem Th82:
:: deftheorem defines 1_ POLYNOM1:def 25 :
theorem Th83:
theorem Th84:
definition
let n be
Ordinal;
let L be non
empty right_complementable add-associative right_zeroed doubleLoopStr ;
let p,
q be
Series of
n,
L;
func p *' q -> Series of
n,
L means :
Def26:
for
b being
bag of
n ex
s being
FinSequence of the
carrier of
L st
(
it . b = Sum s &
len s = len (decomp b) & ( for
k being
Element of
NAT st
k in dom s holds
ex
b1,
b2 being
bag of
n st
(
(decomp b) /. k = <*b1,b2*> &
s /. k = (p . b1) * (q . b2) ) ) );
existence
ex b1 being Series of n,L st
for b being bag of n ex s being FinSequence of the carrier of L st
( b1 . b = Sum s & len s = len (decomp b) & ( for k being Element of NAT st k in dom s holds
ex b1, b2 being bag of n st
( (decomp b) /. k = <*b1,b2*> & s /. k = (p . b1) * (q . b2) ) ) )
uniqueness
for b1, b2 being Series of n,L st ( for b being bag of n ex s being FinSequence of the carrier of L st
( b1 . b = Sum s & len s = len (decomp b) & ( for k being Element of NAT st k in dom s holds
ex b1, b2 being bag of n st
( (decomp b) /. k = <*b1,b2*> & s /. k = (p . b1) * (q . b2) ) ) ) ) & ( for b being bag of n ex s being FinSequence of the carrier of L st
( b2 . b = Sum s & len s = len (decomp b) & ( for k being Element of NAT st k in dom s holds
ex b1, b2 being bag of n st
( (decomp b) /. k = <*b1,b2*> & s /. k = (p . b1) * (q . b2) ) ) ) ) holds
b1 = b2
end;
:: deftheorem Def26 defines *' POLYNOM1:def 26 :
theorem Th85:
theorem Th86:
theorem
theorem Th88:
theorem Th89:
begin
begin
definition
let n be
Ordinal;
let L be non
empty non
trivial right_complementable right_unital distributive add-associative right_zeroed doubleLoopStr ;
func Polynom-Ring n,
L -> non
empty strict doubleLoopStr means :
Def27:
( ( for
x being
set holds
(
x in the
carrier of
it iff
x is
Polynomial of
n,
L ) ) & ( for
x,
y being
Element of
it for
p,
q being
Polynomial of
n,
L st
x = p &
y = q holds
x + y = p + q ) & ( for
x,
y being
Element of
it for
p,
q being
Polynomial of
n,
L st
x = p &
y = q holds
x * y = p *' q ) &
0. it = 0_ n,
L &
1. it = 1_ n,
L );
existence
ex b1 being non empty strict doubleLoopStr st
( ( for x being set holds
( x in the carrier of b1 iff x is Polynomial of n,L ) ) & ( for x, y being Element of b1
for p, q being Polynomial of n,L st x = p & y = q holds
x + y = p + q ) & ( for x, y being Element of b1
for p, q being Polynomial of n,L st x = p & y = q holds
x * y = p *' q ) & 0. b1 = 0_ n,L & 1. b1 = 1_ n,L )
uniqueness
for b1, b2 being non empty strict doubleLoopStr st ( for x being set holds
( x in the carrier of b1 iff x is Polynomial of n,L ) ) & ( for x, y being Element of b1
for p, q being Polynomial of n,L st x = p & y = q holds
x + y = p + q ) & ( for x, y being Element of b1
for p, q being Polynomial of n,L st x = p & y = q holds
x * y = p *' q ) & 0. b1 = 0_ n,L & 1. b1 = 1_ n,L & ( for x being set holds
( x in the carrier of b2 iff x is Polynomial of n,L ) ) & ( for x, y being Element of b2
for p, q being Polynomial of n,L st x = p & y = q holds
x + y = p + q ) & ( for x, y being Element of b2
for p, q being Polynomial of n,L st x = p & y = q holds
x * y = p *' q ) & 0. b2 = 0_ n,L & 1. b2 = 1_ n,L holds
b1 = b2
end;
:: deftheorem Def27 defines Polynom-Ring POLYNOM1:def 27 :
for
n being
Ordinal for
L being non
empty non
trivial right_complementable right_unital distributive add-associative right_zeroed doubleLoopStr for
b3 being non
empty strict doubleLoopStr holds
(
b3 = Polynom-Ring n,
L iff ( ( for
x being
set holds
(
x in the
carrier of
b3 iff
x is
Polynomial of
n,
L ) ) & ( for
x,
y being
Element of
b3 for
p,
q being
Polynomial of
n,
L st
x = p &
y = q holds
x + y = p + q ) & ( for
x,
y being
Element of
b3 for
p,
q being
Polynomial of
n,
L st
x = p &
y = q holds
x * y = p *' q ) &
0. b3 = 0_ n,
L &
1. b3 = 1_ n,
L ) );
Lm5:
now
let n be
Ordinal;
for L being non empty non trivial right_complementable associative well-unital distributive Abelian add-associative right_zeroed doubleLoopStr
for x, e being Element of (Polynom-Ring n,L) st e = 1. (Polynom-Ring n,L) holds
( x * e = x & e * x = x )let L be non
empty non
trivial right_complementable associative well-unital distributive Abelian add-associative right_zeroed doubleLoopStr ;
for x, e being Element of (Polynom-Ring n,L) st e = 1. (Polynom-Ring n,L) holds
( x * e = x & e * x = x )set Pm =
Polynom-Ring n,
L;
let x,
e be
Element of
(Polynom-Ring n,L);
( e = 1. (Polynom-Ring n,L) implies ( x * e = x & e * x = x ) )reconsider p =
x as
Polynomial of
n,
L by Def27;
assume A1:
e = 1. (Polynom-Ring n,L)
;
( x * e = x & e * x = x )A2:
1. (Polynom-Ring n,L) = 1_ n,
L
by Def27;
hence x * e =
p *' (1_ n,L)
by A1, Def27
.=
x
by Th88
;
e * x = xthus e * x =
(1_ n,L) *' p
by A1, A2, Def27
.=
x
by Th89
;
verum
end;
theorem