let K be non empty non degenerated right_complementable almost_left_invertible associative commutative well-unital distributive Abelian add-associative right_zeroed doubleLoopStr ; :: thesis:
let p be FinSequence of the carrier of K; :: thesis:
defpred S₁[ Nat] means for p being FinSequence of the carrier of K st len p = $1 holds
( ex k being Nat st
( k in Seg $1 & p . k = 0. K ) iff Product p = 0. K );
A1: for i being Nat st S₁[i] holds
S₁[i + 1]

let i be Nat; :: thesis:
assume A2: for p being FinSequence of the carrier of K st len p = i holds
( ex k being Nat st
( k in Seg i & p . k = 0. K ) iff Product p = 0. K ) ; :: thesis:
let p be FinSequence of the carrier of K; :: thesis:
assume A3: len p = i + 1 ; :: thesis:
then consider p9 being FinSequence of the carrier of K, a being Element of K such that
A4: p = p9 ^ <*a*> by FINSEQ_2:19;
A5: i + 1 = (len p9) + 1 by A3, A4, FINSEQ_2:16;
then A6: i = len p9 by XCMPLX_1:2;
A7: Product p = (Product p9) * a by A4, GROUP_4:6;
thus ( ex k being Nat st
( k in Seg (i + 1) & p . k = 0. K ) implies Product p = 0. K ) :: thesis:

given k being Nat such that A8: k in Seg (i + 1) and
A9: p . k = 0. K ; :: thesis:

per cases by A8, FINSEQ_2:7;

suppose A10: k in Seg i ; :: thesis:

then k in dom p9 by A6, FINSEQ_1:def 3;
then p9 . k = p . k by A4, FINSEQ_1:def 7;
then Product p9 = 0. K by A2, A6, A9, A10;
hence Product p = 0. K by A7; :: thesis:

end;

suppose k = i + 1 ; :: thesis:

then a = 0. K by A4, A5, A9, FINSEQ_1:42;
hence Product p = 0. K by A7; :: thesis:

end;

end;

end;

hence Product p = 0. K ; :: thesis:

end;

assume A11: Product p = 0. K ; :: thesis:

per cases by A7, A11, VECTSP_1:12;

suppose Product p9 = 0. K ; :: thesis:

then consider k being Nat such that
A12: k in Seg i and
A13: p9 . k = 0. K by A2, A6;
k in dom p9 by A6, A12, FINSEQ_1:def 3;
then p . k = 0. K by A4, A13, FINSEQ_1:def 7;
hence ex k being Nat st
( k in Seg (i + 1) & p . k = 0. K ) by A12, FINSEQ_2:8; :: thesis:

end;

suppose a = 0. K ; :: thesis:

then p . (i + 1) = 0. K by A4, A5, FINSEQ_1:42;
hence ex k being Nat st
( k in Seg (i + 1) & p . k = 0. K ) by FINSEQ_1:4; :: thesis:

end;

end;

end;

A14: Seg (len p) = dom p by FINSEQ_1:def 3;
A15: S₁[ 0 ]

let p be FinSequence of the carrier of K; :: thesis:
assume len p = 0 ; :: thesis:
then p = <*> the carrier of K ;
then A16: Product p = 1. K by Lm6;
thus ( ex k being Nat st
( k in Seg 0 & p . k = 0. K ) implies Product p = 0. K ) ; :: thesis:
assume Product p = 0. K ; :: thesis:
hence ex k being Nat st
( k in Seg 0 & p . k = 0. K ) by A16; :: thesis:

end;

for i being Nat holds S₁[i] from NAT_1:sch 2(A15, A1);
hence ( ex k being Nat st
( k in dom p & p . k = 0. K ) iff Product p = 0. K ) by A14; :: thesis: