let I, j be set ; :: thesis: for f, g being Function of I, NAT
for J, K being finite Subset of st J = {j} holds
Sum ((multnat * [:f,g:]) | [:J,K:]) = (f . j) * (Sum (g | K))
let f, g be Function of I, NAT ; :: thesis: for J, K being finite Subset of st J = {j} holds
Sum ((multnat * [:f,g:]) | [:J,K:]) = (f . j) * (Sum (g | K))
let J, K be finite Subset of ; :: thesis: ( J = {j} implies Sum ((multnat * [:f,g:]) | [:J,K:]) = (f . j) * (Sum (g | K)) )
defpred S₁[ Nat] means for I, j being set
for f, g being Function of I, NAT
for J, K being finite Subset of st J = {j} & $1 = card K holds
Sum ((multnat * [:f,g:]) | [:J,K:]) = (f . j) * (Sum (g | K));
A1: for k being Nat st ( for n being Nat st n < k holds
S₁[n] ) holds
S₁[k]

proof

let k be Nat; :: thesis: ( ( for n being Nat st n < k holds
S₁[n] ) implies S₁[k] )
assume A2: for n being Nat st n < k holds
S₁[n] ; :: thesis: S₁[k]
thus S₁[k] :: thesis: verum

proof

( k = 0 or k + 1 > 0 + 1 ) by XREAL_1:10;
then A3: ( k = 0 or k >= 1 ) by NAT_1:13;
let I, j be set ; :: thesis: for f, g being Function of I, NAT
for J, K being finite Subset of st J = {j} & k = card K holds
Sum ((multnat * [:f,g:]) | [:J,K:]) = (f . j) * (Sum (g | K))
let f, g be Function of I, NAT ; :: thesis: for J, K being finite Subset of st J = {j} & k = card K holds
Sum ((multnat * [:f,g:]) | [:J,K:]) = (f . j) * (Sum (g | K))
let J, K be finite Subset of ; :: thesis: ( J = {j} & k = card K implies Sum ((multnat * [:f,g:]) | [:J,K:]) = (f . j) * (Sum (g | K)) )
assume A4: J = {j} ; :: thesis: ( not k = card K or Sum ((multnat * [:f,g:]) | [:J,K:]) = (f . j) * (Sum (g | K)) )
assume A5: k = card K ; :: thesis: Sum ((multnat * [:f,g:]) | [:J,K:]) = (f . j) * (Sum (g | K))

per cases ( k = 0 or k = 1 or k > 1 ) by A3, XXREAL_0:1;

suppose A6: k = 0 ; :: thesis: Sum ((multnat * [:f,g:]) | [:J,K:]) = (f . j) * (Sum (g | K))

set b = EmptyBag {} ;
A7: EmptyBag {} = {} --> 0 by PRE_POLY:def 13
.= {} ;
A8: Sum (EmptyBag {} ) = 0 by UPROOTS:13;
A9: K = {} by A5, A6;
then ( g | K = {} & [:J,K:] = {} ) ;
hence Sum ((multnat * [:f,g:]) | [:J,K:]) = (f . j) * (Sum (g | K)) by A9, A7, A8; :: thesis: verum

end;

suppose A10: k = 1 ; :: thesis: Sum ((multnat * [:f,g:]) | [:J,K:]) = (f . j) * (Sum (g | K))

consider x being set ;
card {x} = card K by A5, A10, CARD_1:50;
then consider k' being set such that
A11: K = {k'} by CARD_1:49;
set b = (multnat * [:f,g:]) | [:J,K:];
consider f' being FinSequence of REAL such that
A12: Sum ((multnat * [:f,g:]) | [:J,K:]) = Sum f' and
A13: f' = ((multnat * [:f,g:]) | [:J,K:]) * (canFS (support ((multnat * [:f,g:]) | [:J,K:]))) by UPROOTS:def 3;
A14: [:J,K:] = {[j,k']} by A4, A11, ZFMISC_1:35;
then A15: [j,k'] in [:J,K:] by TARSKI:def 1;
then [j,k'] in [:I,I:] ;
then A16: [j,k'] in dom (multnat * [:f,g:]) by FUNCT_2:def 1;
then [:J,K:] c= dom (multnat * [:f,g:]) by A14, ZFMISC_1:37;
then A17: dom ((multnat * [:f,g:]) | [:J,K:]) = [:J,K:] by RELAT_1:91;
then A18: support ((multnat * [:f,g:]) | [:J,K:]) c= [:J,K:] by PRE_POLY:37;
Sum ((multnat * [:f,g:]) | [:J,K:]) = (f . j) * (g . k')

proof

reconsider I' = I as non empty set by A4;
reconsider j'' = j, k'' = k' as Element of I' by A4, A11, ZFMISC_1:37;
set n1 = f . j;
set n2 = g . k';
A19: (f . j) * (g . k') = multnat . (f . j),(g . k') by BINOP_2:def 24
.= multnat . [(f . j''),(g . k'')] by BINOP_1:def 1
.= multnat . ([:f,g:] . j'',k'') by FUNCT_3:96
.= multnat . ([:f,g:] . [j,k']) by BINOP_1:def 1
.= (multnat * [:f,g:]) . [j,k'] by A16, FUNCT_1:22
.= ((multnat * [:f,g:]) | [:J,K:]) . [j,k'] by A15, FUNCT_1:72 ;

per cases ( support ((multnat * [:f,g:]) | [:J,K:]) = {} or support ((multnat * [:f,g:]) | [:J,K:]) = {[j,k']} ) by A14, A18, ZFMISC_1:39;

suppose A20: support ((multnat * [:f,g:]) | [:J,K:]) = {} ; :: thesis: Sum ((multnat * [:f,g:]) | [:J,K:]) = (f . j) * (g . k')

then (f . j) * (g . k') = 0 by A19, PRE_POLY:def 7;
hence Sum ((multnat * [:f,g:]) | [:J,K:]) = (f . j) * (g . k') by A12, A13, A20, RVSUM_1:102; :: thesis: verum

end;

suppose support ((multnat * [:f,g:]) | [:J,K:]) = {[j,k']} ; :: thesis: Sum ((multnat * [:f,g:]) | [:J,K:]) = (f . j) * (g . k')

then canFS (support ((multnat * [:f,g:]) | [:J,K:])) = <*[j,k']*> by UPROOTS:6;
then f' = <*(((multnat * [:f,g:]) | [:J,K:]) . [j,k'])*> by A13, A15, A17, BAGORDER:3;
hence Sum ((multnat * [:f,g:]) | [:J,K:]) = (f . j) * (g . k') by A12, A19, RVSUM_1:103; :: thesis: verum

end;

end;

end;

hence Sum ((multnat * [:f,g:]) | [:J,K:]) = (f . j) * (Sum (g | K)) by A11, Th27; :: thesis: verum

end;

suppose A21: k > 1 ; :: thesis: Sum ((multnat * [:f,g:]) | [:J,K:]) = (f . j) * (Sum (g | K))

then K <> {} by A5;
then consider k' being set such that
A22: k' in K by XBOOLE_0:def 1;
set K0 = {k'};
set K1 = K \ {k'};
reconsider K0 = {k'} as finite Subset of by A22, ZFMISC_1:37;
card K0 < k by A21, CARD_1:50;
then A23: ( (- 1) + k < 0 + k & Sum ((multnat * [:f,g:]) | [:J,K0:]) = (f . j) * (Sum (g | K0)) ) by A2, A4, XREAL_1:10;
K \ {k'} misses K0 by XBOOLE_1:79;
then A24: [:J,(K \ {k'}):] misses [:J,K0:] by ZFMISC_1:127;
k' in K0 by TARSKI:def 1;
then not k' in K \ {k'} by XBOOLE_0:def 5;
then A25: card ((K \ {k'}) \/ K0) = (card (K \ {k'})) + 1 by CARD_2:54;
A26: (K \ {k'}) \/ K0 = K \/ {k'} by XBOOLE_1:39
.= K by A22, ZFMISC_1:46 ;
then [:J,K:] = [:J,(K \ {k'}):] \/ [:J,K0:] by ZFMISC_1:120;
hence Sum ((multnat * [:f,g:]) | [:J,K:]) = (Sum ((multnat * [:f,g:]) | [:J,(K \ {k'}):])) + (Sum ((multnat * [:f,g:]) | [:J,K0:])) by A24, Th26
.= ((f . j) * (Sum (g | (K \ {k'})))) + ((f . j) * (Sum (g | K0))) by A2, A4, A5, A25, A26, A23
.= (f . j) * ((Sum (g | (K \ {k'}))) + (Sum (g | K0)))
.= (f . j) * (Sum (g | K)) by A26, Th26, XBOOLE_1:79 ;
:: thesis: verum

end;

end;

end;

end;

for k being Nat holds S₁[k] from NAT_1:sch 4(A1);
then S₁[ card K] ;
hence ( J = {j} implies Sum ((multnat * [:f,g:]) | [:J,K:]) = (f . j) * (Sum (g | K)) ) ; :: thesis: verum