let F, G be Field; :: thesis: for V being VectSp of F
for W being VectSp of G
for f1, f2 being Function of V,W
for x, h being Element of V
for n being Nat holds ((bdif ((f1 + f2),h)) . (n + 1)) /. x = (((bdif (f1,h)) . (n + 1)) /. x) + (((bdif (f2,h)) . (n + 1)) /. x)

let V be VectSp of F; :: thesis: for W being VectSp of G
for f1, f2 being Function of V,W
for x, h being Element of V
for n being Nat holds ((bdif ((f1 + f2),h)) . (n + 1)) /. x = (((bdif (f1,h)) . (n + 1)) /. x) + (((bdif (f2,h)) . (n + 1)) /. x)

let W be VectSp of G; :: thesis: for f1, f2 being Function of V,W
for x, h being Element of V
for n being Nat holds ((bdif ((f1 + f2),h)) . (n + 1)) /. x = (((bdif (f1,h)) . (n + 1)) /. x) + (((bdif (f2,h)) . (n + 1)) /. x)

let f1, f2 be Function of V,W; :: thesis: for x, h being Element of V
for n being Nat holds ((bdif ((f1 + f2),h)) . (n + 1)) /. x = (((bdif (f1,h)) . (n + 1)) /. x) + (((bdif (f2,h)) . (n + 1)) /. x)

let x, h be Element of V; :: thesis: for n being Nat holds ((bdif ((f1 + f2),h)) . (n + 1)) /. x = (((bdif (f1,h)) . (n + 1)) /. x) + (((bdif (f2,h)) . (n + 1)) /. x)
let n be Nat; :: thesis: ((bdif ((f1 + f2),h)) . (n + 1)) /. x = (((bdif (f1,h)) . (n + 1)) /. x) + (((bdif (f2,h)) . (n + 1)) /. x)
defpred S1[ Nat] means for x being Element of V holds ((bdif ((f1 + f2),h)) . ($1 + 1)) /. x = (((bdif (f1,h)) . ($1 + 1)) /. x) + (((bdif (f2,h)) . ($1 + 1)) /. x);
A1: for k being Nat st S1[k] holds
S1[k + 1]
proof
let k be Nat; :: thesis: ( S1[k] implies S1[k + 1] )
assume A2: for x being Element of V holds ((bdif ((f1 + f2),h)) . (k + 1)) /. x = (((bdif (f1,h)) . (k + 1)) /. x) + (((bdif (f2,h)) . (k + 1)) /. x) ; :: thesis: S1[k + 1]
let x be Element of V; :: thesis: ((bdif ((f1 + f2),h)) . ((k + 1) + 1)) /. x = (((bdif (f1,h)) . ((k + 1) + 1)) /. x) + (((bdif (f2,h)) . ((k + 1) + 1)) /. x)
A3: ( ((bdif ((f1 + f2),h)) . (k + 1)) /. x = (((bdif (f1,h)) . (k + 1)) /. x) + (((bdif (f2,h)) . (k + 1)) /. x) & ((bdif ((f1 + f2),h)) . (k + 1)) /. (x - h) = (((bdif (f1,h)) . (k + 1)) /. (x - h)) + (((bdif (f2,h)) . (k + 1)) /. (x - h)) ) by A2;
A4: (bdif ((f1 + f2),h)) . (k + 1) is Function of V,W by Th12;
A5: (bdif (f2,h)) . (k + 1) is Function of V,W by Th12;
A6: (bdif (f1,h)) . (k + 1) is Function of V,W by Th12;
((bdif ((f1 + f2),h)) . ((k + 1) + 1)) /. x = (bD (((bdif ((f1 + f2),h)) . (k + 1)),h)) /. x by Def7
.= (((bdif ((f1 + f2),h)) . (k + 1)) /. x) - (((bdif ((f1 + f2),h)) . (k + 1)) /. (x - h)) by A4, Th4
.= (((((bdif (f2,h)) . (k + 1)) /. x) + (((bdif (f1,h)) . (k + 1)) /. x)) - (((bdif (f1,h)) . (k + 1)) /. (x - h))) - (((bdif (f2,h)) . (k + 1)) /. (x - h)) by RLVECT_1:27, A3
.= ((((bdif (f2,h)) . (k + 1)) /. x) + ((((bdif (f1,h)) . (k + 1)) /. x) - (((bdif (f1,h)) . (k + 1)) /. (x - h)))) - (((bdif (f2,h)) . (k + 1)) /. (x - h)) by RLVECT_1:28
.= ((((bdif (f1,h)) . (k + 1)) /. x) - (((bdif (f1,h)) . (k + 1)) /. (x - h))) + ((((bdif (f2,h)) . (k + 1)) /. x) - (((bdif (f2,h)) . (k + 1)) /. (x - h))) by RLVECT_1:28
.= ((bD (((bdif (f1,h)) . (k + 1)),h)) /. x) + ((((bdif (f2,h)) . (k + 1)) /. x) - (((bdif (f2,h)) . (k + 1)) /. (x - h))) by A6, Th4
.= ((bD (((bdif (f1,h)) . (k + 1)),h)) /. x) + ((bD (((bdif (f2,h)) . (k + 1)),h)) /. x) by A5, Th4
.= (((bdif (f1,h)) . ((k + 1) + 1)) /. x) + ((bD (((bdif (f2,h)) . (k + 1)),h)) /. x) by Def7
.= (((bdif (f1,h)) . ((k + 1) + 1)) /. x) + (((bdif (f2,h)) . ((k + 1) + 1)) /. x) by Def7 ;
hence ((bdif ((f1 + f2),h)) . ((k + 1) + 1)) /. x = (((bdif (f1,h)) . ((k + 1) + 1)) /. x) + (((bdif (f2,h)) . ((k + 1) + 1)) /. x) ; :: thesis: verum
end;
A7: S1[ 0 ]
proof
let x be Element of V; :: thesis: ((bdif ((f1 + f2),h)) . (0 + 1)) /. x = (((bdif (f1,h)) . (0 + 1)) /. x) + (((bdif (f2,h)) . (0 + 1)) /. x)
reconsider xx = x, h = h as Element of V ;
B0: dom (f1 + f2) = (dom f1) /\ (dom f2) by VFUNCT_1:def 1
.= the carrier of V /\ (dom f2) by FUNCT_2:def 1
.= the carrier of V /\ the carrier of V by FUNCT_2:def 1
.= the carrier of V ;
((bdif ((f1 + f2),h)) . (0 + 1)) /. x = (bD (((bdif ((f1 + f2),h)) . 0),h)) /. x by Def7
.= (bD ((f1 + f2),h)) /. x by Def7
.= ((f1 + f2) /. x) - ((f1 + f2) /. (x - h)) by Th4
.= ((f1 /. xx) + (f2 /. xx)) - ((f1 + f2) /. (xx - h)) by B0, VFUNCT_1:def 1
.= ((f1 /. x) + (f2 /. x)) - ((f1 /. (x - h)) + (f2 /. (x - h))) by B0, VFUNCT_1:def 1
.= (((f1 /. x) + (f2 /. x)) - (f1 /. (x - h))) - (f2 /. (x - h)) by RLVECT_1:27
.= ((f2 /. x) + ((f1 /. x) - (f1 /. (x - h)))) - (f2 /. (x - h)) by RLVECT_1:28
.= ((f1 /. x) - (f1 /. (x - h))) + ((f2 /. x) - (f2 /. (x - h))) by RLVECT_1:28
.= ((bD (f1,h)) /. x) + ((f2 /. x) - (f2 /. (x - h))) by Th4
.= ((bD (f1,h)) /. x) + ((bD (f2,h)) /. x) by Th4
.= ((bD (((bdif (f1,h)) . 0),h)) /. x) + ((bD (f2,h)) /. x) by Def7
.= ((bD (((bdif (f1,h)) . 0),h)) /. x) + ((bD (((bdif (f2,h)) . 0),h)) /. x) by Def7
.= (((bdif (f1,h)) . (0 + 1)) /. x) + ((bD (((bdif (f2,h)) . 0),h)) /. x) by Def7
.= (((bdif (f1,h)) . (0 + 1)) /. x) + (((bdif (f2,h)) . (0 + 1)) /. x) by Def7 ;
hence ((bdif ((f1 + f2),h)) . (0 + 1)) /. x = (((bdif (f1,h)) . (0 + 1)) /. x) + (((bdif (f2,h)) . (0 + 1)) /. x) ; :: thesis: verum
end;
for n being Nat holds S1[n] from NAT_1:sch 2(A7, A1);
hence ((bdif ((f1 + f2),h)) . (n + 1)) /. x = (((bdif (f1,h)) . (n + 1)) /. x) + (((bdif (f2,h)) . (n + 1)) /. x) ; :: thesis: verum