let n be Nat; :: thesis: for K being commutative Ring
for p2 being Element of Permutations (n + 2)
for X being Element of Fin (2Set (Seg (n + 2))) st ( for x being object st x in X holds
(Part_sgn (p2,K)) . x = 1_ K ) holds
the multF of K $$ (X,(Part_sgn (p2,K))) = 1_ K

let K be commutative Ring; :: thesis: for p2 being Element of Permutations (n + 2)
for X being Element of Fin (2Set (Seg (n + 2))) st ( for x being object st x in X holds
(Part_sgn (p2,K)) . x = 1_ K ) holds
the multF of K $$ (X,(Part_sgn (p2,K))) = 1_ K

let p2 be Element of Permutations (n + 2); :: thesis: for X being Element of Fin (2Set (Seg (n + 2))) st ( for x being object st x in X holds
(Part_sgn (p2,K)) . x = 1_ K ) holds
the multF of K $$ (X,(Part_sgn (p2,K))) = 1_ K

let X be Element of Fin (2Set (Seg (n + 2))); :: thesis: ( ( for x being object st x in X holds
(Part_sgn (p2,K)) . x = 1_ K ) implies the multF of K $$ (X,(Part_sgn (p2,K))) = 1_ K )

assume A1: for x being object st x in X holds
(Part_sgn (p2,K)) . x = 1_ K ; :: thesis: the multF of K $$ (X,(Part_sgn (p2,K))) = 1_ K
set Path = Part_sgn (p2,K);
set 2S = 2Set (Seg (n + 2));
set KK = the carrier of K;
set mm = the multF of K;
consider G being Function of (Fin (2Set (Seg (n + 2)))), the carrier of K such that
A2: the multF of K $$ (X,(Part_sgn (p2,K))) = G . X and
A3: for e being Element of the carrier of K st e is_a_unity_wrt the multF of K holds
G . {} = e and
A4: for x being Element of 2Set (Seg (n + 2)) holds G . {x} = (Part_sgn (p2,K)) . x and
A5: for B being Element of Fin (2Set (Seg (n + 2))) st B c= X & B <> {} holds
for x being Element of 2Set (Seg (n + 2)) st x in X \ B holds
G . (B \/ {x}) = the multF of K . ((G . B),((Part_sgn (p2,K)) . x)) by SETWISEO:def 3;
defpred S1[ Nat] means for B being Element of Fin (2Set (Seg (n + 2))) st card B = $1 & B c= X holds
G . B = 1_ K;
A6: for k being Nat st S1[k] holds
S1[k + 1]
proof
let k be Nat; :: thesis: ( S1[k] implies S1[k + 1] )
assume A7: S1[k] ; :: thesis: S1[k + 1]
set k1 = k + 1;
let B be Element of Fin (2Set (Seg (n + 2))); :: thesis: ( card B = k + 1 & B c= X implies G . B = 1_ K )
assume that
A8: card B = k + 1 and
A9: B c= X ; :: thesis: G . B = 1_ K
now :: thesis: ( ( k = 0 & G . B = 1_ K ) or ( k > 0 & G . B = 1_ K ) )
per cases ( k = 0 or k > 0 ) ;
case k = 0 ; :: thesis: G . B = 1_ K
then consider x being object such that
A10: B = {x} by A8, CARD_2:42;
A11: x in B by A10, TARSKI:def 1;
B c= 2Set (Seg (n + 2)) by FINSUB_1:def 5;
then reconsider x = x as Element of 2Set (Seg (n + 2)) by A11;
G . B = (Part_sgn (p2,K)) . x by A4, A10;
hence G . B = 1_ K by A1, A9, A11; :: thesis: verum
end;
case A12: k > 0 ; :: thesis: G . B = 1_ K
consider x being object such that
A13: x in B by A8, CARD_1:27, XBOOLE_0:def 1;
B c= 2Set (Seg (n + 2)) by FINSUB_1:def 5;
then reconsider x = x as Element of 2Set (Seg (n + 2)) by A13;
A14: (Part_sgn (p2,K)) . x = 1_ K by A1, A9, A13;
B c= 2Set (Seg (n + 2)) by FINSUB_1:def 5;
then B \ {x} c= 2Set (Seg (n + 2)) ;
then reconsider B9 = B \ {x} as Element of Fin (2Set (Seg (n + 2))) by FINSUB_1:def 5;
A15: not x in B9 by ZFMISC_1:56;
then A16: x in X \ B9 by A9, A13, XBOOLE_0:def 5;
A17: {x} \/ B9 = B by A13, ZFMISC_1:116;
then A18: k + 1 = (card B9) + 1 by A8, A15, CARD_2:41;
then G . B9 = 1_ K by A7, A9, XBOOLE_1:1;
then G . B = (1_ K) * (1_ K) by A5, A9, A12, A17, A18, A16, A14, CARD_1:27, XBOOLE_1:1;
hence G . B = 1_ K ; :: thesis: verum
end;
end;
end;
hence G . B = 1_ K ; :: thesis: verum
end;
A19: S1[ 0 ]
proof
let B be Element of Fin (2Set (Seg (n + 2))); :: thesis: ( card B = 0 & B c= X implies G . B = 1_ K )
assume that
A20: card B = 0 and
B c= X ; :: thesis: G . B = 1_ K
B = {} by A20;
hence G . B = 1_ K by A3, FVSUM_1:4; :: thesis: verum
end;
for k being Nat holds S1[k] from NAT_1:sch 2(A19, A6);
then S1[ card X] ;
hence the multF of K $$ (X,(Part_sgn (p2,K))) = 1_ K by A2; :: thesis: verum