let n be Ordinal; :: thesis: for T being connected TermOrder of n
for L being non trivial right_complementable almost_left_invertible well-unital distributive add-associative right_zeroed associative commutative doubleLoopStr
for P being Subset of (Polynom-Ring (n,L))
for R being RedSequence of PolyRedRel (P,T)
for i being Element of NAT st 1 <= i & i <= len R & len R > 1 holds
R . i is Polynomial of n,L

let T be connected TermOrder of n; :: thesis: for L being non trivial right_complementable almost_left_invertible well-unital distributive add-associative right_zeroed associative commutative doubleLoopStr
for P being Subset of (Polynom-Ring (n,L))
for R being RedSequence of PolyRedRel (P,T)
for i being Element of NAT st 1 <= i & i <= len R & len R > 1 holds
R . i is Polynomial of n,L

let L be non trivial right_complementable almost_left_invertible well-unital distributive add-associative right_zeroed associative commutative doubleLoopStr ; :: thesis: for P being Subset of (Polynom-Ring (n,L))
for R being RedSequence of PolyRedRel (P,T)
for i being Element of NAT st 1 <= i & i <= len R & len R > 1 holds
R . i is Polynomial of n,L

let P be Subset of (Polynom-Ring (n,L)); :: thesis: for R being RedSequence of PolyRedRel (P,T)
for i being Element of NAT st 1 <= i & i <= len R & len R > 1 holds
R . i is Polynomial of n,L

let R be RedSequence of PolyRedRel (P,T); :: thesis: for i being Element of NAT st 1 <= i & i <= len R & len R > 1 holds
R . i is Polynomial of n,L

let i be Element of NAT ; :: thesis: ( 1 <= i & i <= len R & len R > 1 implies R . i is Polynomial of n,L )
assume that
A1: 1 <= i and
A2: i <= len R and
A3: 1 < len R ; :: thesis: R . i is Polynomial of n,L
A4: i in dom R by ;
now :: thesis: ( ( i <> len R & R . i is Polynomial of n,L ) or ( i = len R & R . i is Polynomial of n,L ) )
per cases ( i <> len R or i = len R ) ;
case i <> len R ; :: thesis: R . i is Polynomial of n,L
then i < len R by ;
then ( 1 <= i + 1 & i + 1 <= len R ) by ;
then i + 1 in dom R by FINSEQ_3:25;
then [(R . i),(R . (i + 1))] in PolyRedRel (P,T) by ;
then R . i in dom (PolyRedRel (P,T)) by XTUPLE_0:def 12;
then R . i in the carrier of (Polynom-Ring (n,L)) by XBOOLE_0:def 5;
hence R . i is Polynomial of n,L by POLYNOM1:def 11; :: thesis: verum
end;
case A5: i = len R ; :: thesis: R . i is Polynomial of n,L
A6: i - 1 is Element of NAT by ;
1 + (- 1) < i + (- 1) by ;
then A7: 1 <= i - 1 by ;
A8: i = (i - 1) + 1 ;
i - 1 <= len R by ;
then i - 1 in dom R by ;
then [(R . (i - 1)),(R . i)] in PolyRedRel (P,T) by ;
then R . i in rng (PolyRedRel (P,T)) by XTUPLE_0:def 13;
hence R . i is Polynomial of n,L by POLYNOM1:def 11; :: thesis: verum
end;
end;
end;
hence R . i is Polynomial of n,L ; :: thesis: verum