Metamath Proof Explorer


Theorem ax5seglem1

Description: Lemma for ax5seg . Rexpress a one congruence sum given betweenness. (Contributed by Scott Fenton, 11-Jun-2013)

Ref Expression
Assertion ax5seglem1 ( ( ๐‘ โˆˆ โ„• โˆง ( ๐ด โˆˆ ( ๐”ผ โ€˜ ๐‘ ) โˆง ๐ถ โˆˆ ( ๐”ผ โ€˜ ๐‘ ) ) โˆง ( ๐‘‡ โˆˆ ( 0 [,] 1 ) โˆง โˆ€ ๐‘– โˆˆ ( 1 ... ๐‘ ) ( ๐ต โ€˜ ๐‘– ) = ( ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘– ) ) + ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘– ) ) ) ) ) โ†’ ฮฃ ๐‘— โˆˆ ( 1 ... ๐‘ ) ( ( ( ๐ด โ€˜ ๐‘— ) โˆ’ ( ๐ต โ€˜ ๐‘— ) ) โ†‘ 2 ) = ( ( ๐‘‡ โ†‘ 2 ) ยท ฮฃ ๐‘— โˆˆ ( 1 ... ๐‘ ) ( ( ( ๐ด โ€˜ ๐‘— ) โˆ’ ( ๐ถ โ€˜ ๐‘— ) ) โ†‘ 2 ) ) )

Proof

Step Hyp Ref Expression
1 simpl2l โŠข ( ( ( ๐‘ โˆˆ โ„• โˆง ( ๐ด โˆˆ ( ๐”ผ โ€˜ ๐‘ ) โˆง ๐ถ โˆˆ ( ๐”ผ โ€˜ ๐‘ ) ) โˆง ( ๐‘‡ โˆˆ ( 0 [,] 1 ) โˆง โˆ€ ๐‘– โˆˆ ( 1 ... ๐‘ ) ( ๐ต โ€˜ ๐‘– ) = ( ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘– ) ) + ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘– ) ) ) ) ) โˆง ๐‘— โˆˆ ( 1 ... ๐‘ ) ) โ†’ ๐ด โˆˆ ( ๐”ผ โ€˜ ๐‘ ) )
2 fveecn โŠข ( ( ๐ด โˆˆ ( ๐”ผ โ€˜ ๐‘ ) โˆง ๐‘— โˆˆ ( 1 ... ๐‘ ) ) โ†’ ( ๐ด โ€˜ ๐‘— ) โˆˆ โ„‚ )
3 1 2 sylancom โŠข ( ( ( ๐‘ โˆˆ โ„• โˆง ( ๐ด โˆˆ ( ๐”ผ โ€˜ ๐‘ ) โˆง ๐ถ โˆˆ ( ๐”ผ โ€˜ ๐‘ ) ) โˆง ( ๐‘‡ โˆˆ ( 0 [,] 1 ) โˆง โˆ€ ๐‘– โˆˆ ( 1 ... ๐‘ ) ( ๐ต โ€˜ ๐‘– ) = ( ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘– ) ) + ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘– ) ) ) ) ) โˆง ๐‘— โˆˆ ( 1 ... ๐‘ ) ) โ†’ ( ๐ด โ€˜ ๐‘— ) โˆˆ โ„‚ )
4 simpl2r โŠข ( ( ( ๐‘ โˆˆ โ„• โˆง ( ๐ด โˆˆ ( ๐”ผ โ€˜ ๐‘ ) โˆง ๐ถ โˆˆ ( ๐”ผ โ€˜ ๐‘ ) ) โˆง ( ๐‘‡ โˆˆ ( 0 [,] 1 ) โˆง โˆ€ ๐‘– โˆˆ ( 1 ... ๐‘ ) ( ๐ต โ€˜ ๐‘– ) = ( ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘– ) ) + ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘– ) ) ) ) ) โˆง ๐‘— โˆˆ ( 1 ... ๐‘ ) ) โ†’ ๐ถ โˆˆ ( ๐”ผ โ€˜ ๐‘ ) )
5 fveecn โŠข ( ( ๐ถ โˆˆ ( ๐”ผ โ€˜ ๐‘ ) โˆง ๐‘— โˆˆ ( 1 ... ๐‘ ) ) โ†’ ( ๐ถ โ€˜ ๐‘— ) โˆˆ โ„‚ )
6 4 5 sylancom โŠข ( ( ( ๐‘ โˆˆ โ„• โˆง ( ๐ด โˆˆ ( ๐”ผ โ€˜ ๐‘ ) โˆง ๐ถ โˆˆ ( ๐”ผ โ€˜ ๐‘ ) ) โˆง ( ๐‘‡ โˆˆ ( 0 [,] 1 ) โˆง โˆ€ ๐‘– โˆˆ ( 1 ... ๐‘ ) ( ๐ต โ€˜ ๐‘– ) = ( ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘– ) ) + ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘– ) ) ) ) ) โˆง ๐‘— โˆˆ ( 1 ... ๐‘ ) ) โ†’ ( ๐ถ โ€˜ ๐‘— ) โˆˆ โ„‚ )
7 elicc01 โŠข ( ๐‘‡ โˆˆ ( 0 [,] 1 ) โ†” ( ๐‘‡ โˆˆ โ„ โˆง 0 โ‰ค ๐‘‡ โˆง ๐‘‡ โ‰ค 1 ) )
8 7 simp1bi โŠข ( ๐‘‡ โˆˆ ( 0 [,] 1 ) โ†’ ๐‘‡ โˆˆ โ„ )
9 8 adantr โŠข ( ( ๐‘‡ โˆˆ ( 0 [,] 1 ) โˆง โˆ€ ๐‘– โˆˆ ( 1 ... ๐‘ ) ( ๐ต โ€˜ ๐‘– ) = ( ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘– ) ) + ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘– ) ) ) ) โ†’ ๐‘‡ โˆˆ โ„ )
10 9 3ad2ant3 โŠข ( ( ๐‘ โˆˆ โ„• โˆง ( ๐ด โˆˆ ( ๐”ผ โ€˜ ๐‘ ) โˆง ๐ถ โˆˆ ( ๐”ผ โ€˜ ๐‘ ) ) โˆง ( ๐‘‡ โˆˆ ( 0 [,] 1 ) โˆง โˆ€ ๐‘– โˆˆ ( 1 ... ๐‘ ) ( ๐ต โ€˜ ๐‘– ) = ( ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘– ) ) + ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘– ) ) ) ) ) โ†’ ๐‘‡ โˆˆ โ„ )
11 10 recnd โŠข ( ( ๐‘ โˆˆ โ„• โˆง ( ๐ด โˆˆ ( ๐”ผ โ€˜ ๐‘ ) โˆง ๐ถ โˆˆ ( ๐”ผ โ€˜ ๐‘ ) ) โˆง ( ๐‘‡ โˆˆ ( 0 [,] 1 ) โˆง โˆ€ ๐‘– โˆˆ ( 1 ... ๐‘ ) ( ๐ต โ€˜ ๐‘– ) = ( ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘– ) ) + ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘– ) ) ) ) ) โ†’ ๐‘‡ โˆˆ โ„‚ )
12 11 adantr โŠข ( ( ( ๐‘ โˆˆ โ„• โˆง ( ๐ด โˆˆ ( ๐”ผ โ€˜ ๐‘ ) โˆง ๐ถ โˆˆ ( ๐”ผ โ€˜ ๐‘ ) ) โˆง ( ๐‘‡ โˆˆ ( 0 [,] 1 ) โˆง โˆ€ ๐‘– โˆˆ ( 1 ... ๐‘ ) ( ๐ต โ€˜ ๐‘– ) = ( ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘– ) ) + ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘– ) ) ) ) ) โˆง ๐‘— โˆˆ ( 1 ... ๐‘ ) ) โ†’ ๐‘‡ โˆˆ โ„‚ )
13 fveq2 โŠข ( ๐‘– = ๐‘— โ†’ ( ๐ต โ€˜ ๐‘– ) = ( ๐ต โ€˜ ๐‘— ) )
14 fveq2 โŠข ( ๐‘– = ๐‘— โ†’ ( ๐ด โ€˜ ๐‘– ) = ( ๐ด โ€˜ ๐‘— ) )
15 14 oveq2d โŠข ( ๐‘– = ๐‘— โ†’ ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘– ) ) = ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘— ) ) )
16 fveq2 โŠข ( ๐‘– = ๐‘— โ†’ ( ๐ถ โ€˜ ๐‘– ) = ( ๐ถ โ€˜ ๐‘— ) )
17 16 oveq2d โŠข ( ๐‘– = ๐‘— โ†’ ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘– ) ) = ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘— ) ) )
18 15 17 oveq12d โŠข ( ๐‘– = ๐‘— โ†’ ( ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘– ) ) + ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘– ) ) ) = ( ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘— ) ) + ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘— ) ) ) )
19 13 18 eqeq12d โŠข ( ๐‘– = ๐‘— โ†’ ( ( ๐ต โ€˜ ๐‘– ) = ( ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘– ) ) + ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘– ) ) ) โ†” ( ๐ต โ€˜ ๐‘— ) = ( ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘— ) ) + ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘— ) ) ) ) )
20 19 rspccva โŠข ( ( โˆ€ ๐‘– โˆˆ ( 1 ... ๐‘ ) ( ๐ต โ€˜ ๐‘– ) = ( ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘– ) ) + ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘– ) ) ) โˆง ๐‘— โˆˆ ( 1 ... ๐‘ ) ) โ†’ ( ๐ต โ€˜ ๐‘— ) = ( ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘— ) ) + ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘— ) ) ) )
21 20 adantll โŠข ( ( ( ๐‘‡ โˆˆ ( 0 [,] 1 ) โˆง โˆ€ ๐‘– โˆˆ ( 1 ... ๐‘ ) ( ๐ต โ€˜ ๐‘– ) = ( ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘– ) ) + ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘– ) ) ) ) โˆง ๐‘— โˆˆ ( 1 ... ๐‘ ) ) โ†’ ( ๐ต โ€˜ ๐‘— ) = ( ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘— ) ) + ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘— ) ) ) )
22 21 3ad2antl3 โŠข ( ( ( ๐‘ โˆˆ โ„• โˆง ( ๐ด โˆˆ ( ๐”ผ โ€˜ ๐‘ ) โˆง ๐ถ โˆˆ ( ๐”ผ โ€˜ ๐‘ ) ) โˆง ( ๐‘‡ โˆˆ ( 0 [,] 1 ) โˆง โˆ€ ๐‘– โˆˆ ( 1 ... ๐‘ ) ( ๐ต โ€˜ ๐‘– ) = ( ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘– ) ) + ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘– ) ) ) ) ) โˆง ๐‘— โˆˆ ( 1 ... ๐‘ ) ) โ†’ ( ๐ต โ€˜ ๐‘— ) = ( ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘— ) ) + ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘— ) ) ) )
23 oveq2 โŠข ( ( ๐ต โ€˜ ๐‘— ) = ( ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘— ) ) + ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘— ) ) ) โ†’ ( ( ๐ด โ€˜ ๐‘— ) โˆ’ ( ๐ต โ€˜ ๐‘— ) ) = ( ( ๐ด โ€˜ ๐‘— ) โˆ’ ( ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘— ) ) + ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘— ) ) ) ) )
24 23 oveq1d โŠข ( ( ๐ต โ€˜ ๐‘— ) = ( ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘— ) ) + ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘— ) ) ) โ†’ ( ( ( ๐ด โ€˜ ๐‘— ) โˆ’ ( ๐ต โ€˜ ๐‘— ) ) โ†‘ 2 ) = ( ( ( ๐ด โ€˜ ๐‘— ) โˆ’ ( ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘— ) ) + ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘— ) ) ) ) โ†‘ 2 ) )
25 subdi โŠข ( ( ๐‘‡ โˆˆ โ„‚ โˆง ( ๐ด โ€˜ ๐‘— ) โˆˆ โ„‚ โˆง ( ๐ถ โ€˜ ๐‘— ) โˆˆ โ„‚ ) โ†’ ( ๐‘‡ ยท ( ( ๐ด โ€˜ ๐‘— ) โˆ’ ( ๐ถ โ€˜ ๐‘— ) ) ) = ( ( ๐‘‡ ยท ( ๐ด โ€˜ ๐‘— ) ) โˆ’ ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘— ) ) ) )
26 25 3coml โŠข ( ( ( ๐ด โ€˜ ๐‘— ) โˆˆ โ„‚ โˆง ( ๐ถ โ€˜ ๐‘— ) โˆˆ โ„‚ โˆง ๐‘‡ โˆˆ โ„‚ ) โ†’ ( ๐‘‡ ยท ( ( ๐ด โ€˜ ๐‘— ) โˆ’ ( ๐ถ โ€˜ ๐‘— ) ) ) = ( ( ๐‘‡ ยท ( ๐ด โ€˜ ๐‘— ) ) โˆ’ ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘— ) ) ) )
27 ax-1cn โŠข 1 โˆˆ โ„‚
28 subcl โŠข ( ( 1 โˆˆ โ„‚ โˆง ๐‘‡ โˆˆ โ„‚ ) โ†’ ( 1 โˆ’ ๐‘‡ ) โˆˆ โ„‚ )
29 27 28 mpan โŠข ( ๐‘‡ โˆˆ โ„‚ โ†’ ( 1 โˆ’ ๐‘‡ ) โˆˆ โ„‚ )
30 29 adantl โŠข ( ( ( ๐ด โ€˜ ๐‘— ) โˆˆ โ„‚ โˆง ๐‘‡ โˆˆ โ„‚ ) โ†’ ( 1 โˆ’ ๐‘‡ ) โˆˆ โ„‚ )
31 simpl โŠข ( ( ( ๐ด โ€˜ ๐‘— ) โˆˆ โ„‚ โˆง ๐‘‡ โˆˆ โ„‚ ) โ†’ ( ๐ด โ€˜ ๐‘— ) โˆˆ โ„‚ )
32 subdir โŠข ( ( 1 โˆˆ โ„‚ โˆง ( 1 โˆ’ ๐‘‡ ) โˆˆ โ„‚ โˆง ( ๐ด โ€˜ ๐‘— ) โˆˆ โ„‚ ) โ†’ ( ( 1 โˆ’ ( 1 โˆ’ ๐‘‡ ) ) ยท ( ๐ด โ€˜ ๐‘— ) ) = ( ( 1 ยท ( ๐ด โ€˜ ๐‘— ) ) โˆ’ ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘— ) ) ) )
33 27 30 31 32 mp3an2i โŠข ( ( ( ๐ด โ€˜ ๐‘— ) โˆˆ โ„‚ โˆง ๐‘‡ โˆˆ โ„‚ ) โ†’ ( ( 1 โˆ’ ( 1 โˆ’ ๐‘‡ ) ) ยท ( ๐ด โ€˜ ๐‘— ) ) = ( ( 1 ยท ( ๐ด โ€˜ ๐‘— ) ) โˆ’ ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘— ) ) ) )
34 nncan โŠข ( ( 1 โˆˆ โ„‚ โˆง ๐‘‡ โˆˆ โ„‚ ) โ†’ ( 1 โˆ’ ( 1 โˆ’ ๐‘‡ ) ) = ๐‘‡ )
35 27 34 mpan โŠข ( ๐‘‡ โˆˆ โ„‚ โ†’ ( 1 โˆ’ ( 1 โˆ’ ๐‘‡ ) ) = ๐‘‡ )
36 35 oveq1d โŠข ( ๐‘‡ โˆˆ โ„‚ โ†’ ( ( 1 โˆ’ ( 1 โˆ’ ๐‘‡ ) ) ยท ( ๐ด โ€˜ ๐‘— ) ) = ( ๐‘‡ ยท ( ๐ด โ€˜ ๐‘— ) ) )
37 36 adantl โŠข ( ( ( ๐ด โ€˜ ๐‘— ) โˆˆ โ„‚ โˆง ๐‘‡ โˆˆ โ„‚ ) โ†’ ( ( 1 โˆ’ ( 1 โˆ’ ๐‘‡ ) ) ยท ( ๐ด โ€˜ ๐‘— ) ) = ( ๐‘‡ ยท ( ๐ด โ€˜ ๐‘— ) ) )
38 mullid โŠข ( ( ๐ด โ€˜ ๐‘— ) โˆˆ โ„‚ โ†’ ( 1 ยท ( ๐ด โ€˜ ๐‘— ) ) = ( ๐ด โ€˜ ๐‘— ) )
39 38 oveq1d โŠข ( ( ๐ด โ€˜ ๐‘— ) โˆˆ โ„‚ โ†’ ( ( 1 ยท ( ๐ด โ€˜ ๐‘— ) ) โˆ’ ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘— ) ) ) = ( ( ๐ด โ€˜ ๐‘— ) โˆ’ ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘— ) ) ) )
40 39 adantr โŠข ( ( ( ๐ด โ€˜ ๐‘— ) โˆˆ โ„‚ โˆง ๐‘‡ โˆˆ โ„‚ ) โ†’ ( ( 1 ยท ( ๐ด โ€˜ ๐‘— ) ) โˆ’ ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘— ) ) ) = ( ( ๐ด โ€˜ ๐‘— ) โˆ’ ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘— ) ) ) )
41 33 37 40 3eqtr3rd โŠข ( ( ( ๐ด โ€˜ ๐‘— ) โˆˆ โ„‚ โˆง ๐‘‡ โˆˆ โ„‚ ) โ†’ ( ( ๐ด โ€˜ ๐‘— ) โˆ’ ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘— ) ) ) = ( ๐‘‡ ยท ( ๐ด โ€˜ ๐‘— ) ) )
42 41 oveq1d โŠข ( ( ( ๐ด โ€˜ ๐‘— ) โˆˆ โ„‚ โˆง ๐‘‡ โˆˆ โ„‚ ) โ†’ ( ( ( ๐ด โ€˜ ๐‘— ) โˆ’ ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘— ) ) ) โˆ’ ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘— ) ) ) = ( ( ๐‘‡ ยท ( ๐ด โ€˜ ๐‘— ) ) โˆ’ ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘— ) ) ) )
43 42 3adant2 โŠข ( ( ( ๐ด โ€˜ ๐‘— ) โˆˆ โ„‚ โˆง ( ๐ถ โ€˜ ๐‘— ) โˆˆ โ„‚ โˆง ๐‘‡ โˆˆ โ„‚ ) โ†’ ( ( ( ๐ด โ€˜ ๐‘— ) โˆ’ ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘— ) ) ) โˆ’ ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘— ) ) ) = ( ( ๐‘‡ ยท ( ๐ด โ€˜ ๐‘— ) ) โˆ’ ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘— ) ) ) )
44 simp1 โŠข ( ( ( ๐ด โ€˜ ๐‘— ) โˆˆ โ„‚ โˆง ( ๐ถ โ€˜ ๐‘— ) โˆˆ โ„‚ โˆง ๐‘‡ โˆˆ โ„‚ ) โ†’ ( ๐ด โ€˜ ๐‘— ) โˆˆ โ„‚ )
45 mulcl โŠข ( ( ( 1 โˆ’ ๐‘‡ ) โˆˆ โ„‚ โˆง ( ๐ด โ€˜ ๐‘— ) โˆˆ โ„‚ ) โ†’ ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘— ) ) โˆˆ โ„‚ )
46 29 45 sylan โŠข ( ( ๐‘‡ โˆˆ โ„‚ โˆง ( ๐ด โ€˜ ๐‘— ) โˆˆ โ„‚ ) โ†’ ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘— ) ) โˆˆ โ„‚ )
47 46 ancoms โŠข ( ( ( ๐ด โ€˜ ๐‘— ) โˆˆ โ„‚ โˆง ๐‘‡ โˆˆ โ„‚ ) โ†’ ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘— ) ) โˆˆ โ„‚ )
48 47 3adant2 โŠข ( ( ( ๐ด โ€˜ ๐‘— ) โˆˆ โ„‚ โˆง ( ๐ถ โ€˜ ๐‘— ) โˆˆ โ„‚ โˆง ๐‘‡ โˆˆ โ„‚ ) โ†’ ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘— ) ) โˆˆ โ„‚ )
49 mulcl โŠข ( ( ๐‘‡ โˆˆ โ„‚ โˆง ( ๐ถ โ€˜ ๐‘— ) โˆˆ โ„‚ ) โ†’ ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘— ) ) โˆˆ โ„‚ )
50 49 ancoms โŠข ( ( ( ๐ถ โ€˜ ๐‘— ) โˆˆ โ„‚ โˆง ๐‘‡ โˆˆ โ„‚ ) โ†’ ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘— ) ) โˆˆ โ„‚ )
51 50 3adant1 โŠข ( ( ( ๐ด โ€˜ ๐‘— ) โˆˆ โ„‚ โˆง ( ๐ถ โ€˜ ๐‘— ) โˆˆ โ„‚ โˆง ๐‘‡ โˆˆ โ„‚ ) โ†’ ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘— ) ) โˆˆ โ„‚ )
52 44 48 51 subsub4d โŠข ( ( ( ๐ด โ€˜ ๐‘— ) โˆˆ โ„‚ โˆง ( ๐ถ โ€˜ ๐‘— ) โˆˆ โ„‚ โˆง ๐‘‡ โˆˆ โ„‚ ) โ†’ ( ( ( ๐ด โ€˜ ๐‘— ) โˆ’ ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘— ) ) ) โˆ’ ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘— ) ) ) = ( ( ๐ด โ€˜ ๐‘— ) โˆ’ ( ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘— ) ) + ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘— ) ) ) ) )
53 26 43 52 3eqtr2rd โŠข ( ( ( ๐ด โ€˜ ๐‘— ) โˆˆ โ„‚ โˆง ( ๐ถ โ€˜ ๐‘— ) โˆˆ โ„‚ โˆง ๐‘‡ โˆˆ โ„‚ ) โ†’ ( ( ๐ด โ€˜ ๐‘— ) โˆ’ ( ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘— ) ) + ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘— ) ) ) ) = ( ๐‘‡ ยท ( ( ๐ด โ€˜ ๐‘— ) โˆ’ ( ๐ถ โ€˜ ๐‘— ) ) ) )
54 53 oveq1d โŠข ( ( ( ๐ด โ€˜ ๐‘— ) โˆˆ โ„‚ โˆง ( ๐ถ โ€˜ ๐‘— ) โˆˆ โ„‚ โˆง ๐‘‡ โˆˆ โ„‚ ) โ†’ ( ( ( ๐ด โ€˜ ๐‘— ) โˆ’ ( ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘— ) ) + ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘— ) ) ) ) โ†‘ 2 ) = ( ( ๐‘‡ ยท ( ( ๐ด โ€˜ ๐‘— ) โˆ’ ( ๐ถ โ€˜ ๐‘— ) ) ) โ†‘ 2 ) )
55 simp3 โŠข ( ( ( ๐ด โ€˜ ๐‘— ) โˆˆ โ„‚ โˆง ( ๐ถ โ€˜ ๐‘— ) โˆˆ โ„‚ โˆง ๐‘‡ โˆˆ โ„‚ ) โ†’ ๐‘‡ โˆˆ โ„‚ )
56 subcl โŠข ( ( ( ๐ด โ€˜ ๐‘— ) โˆˆ โ„‚ โˆง ( ๐ถ โ€˜ ๐‘— ) โˆˆ โ„‚ ) โ†’ ( ( ๐ด โ€˜ ๐‘— ) โˆ’ ( ๐ถ โ€˜ ๐‘— ) ) โˆˆ โ„‚ )
57 56 3adant3 โŠข ( ( ( ๐ด โ€˜ ๐‘— ) โˆˆ โ„‚ โˆง ( ๐ถ โ€˜ ๐‘— ) โˆˆ โ„‚ โˆง ๐‘‡ โˆˆ โ„‚ ) โ†’ ( ( ๐ด โ€˜ ๐‘— ) โˆ’ ( ๐ถ โ€˜ ๐‘— ) ) โˆˆ โ„‚ )
58 55 57 sqmuld โŠข ( ( ( ๐ด โ€˜ ๐‘— ) โˆˆ โ„‚ โˆง ( ๐ถ โ€˜ ๐‘— ) โˆˆ โ„‚ โˆง ๐‘‡ โˆˆ โ„‚ ) โ†’ ( ( ๐‘‡ ยท ( ( ๐ด โ€˜ ๐‘— ) โˆ’ ( ๐ถ โ€˜ ๐‘— ) ) ) โ†‘ 2 ) = ( ( ๐‘‡ โ†‘ 2 ) ยท ( ( ( ๐ด โ€˜ ๐‘— ) โˆ’ ( ๐ถ โ€˜ ๐‘— ) ) โ†‘ 2 ) ) )
59 54 58 eqtrd โŠข ( ( ( ๐ด โ€˜ ๐‘— ) โˆˆ โ„‚ โˆง ( ๐ถ โ€˜ ๐‘— ) โˆˆ โ„‚ โˆง ๐‘‡ โˆˆ โ„‚ ) โ†’ ( ( ( ๐ด โ€˜ ๐‘— ) โˆ’ ( ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘— ) ) + ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘— ) ) ) ) โ†‘ 2 ) = ( ( ๐‘‡ โ†‘ 2 ) ยท ( ( ( ๐ด โ€˜ ๐‘— ) โˆ’ ( ๐ถ โ€˜ ๐‘— ) ) โ†‘ 2 ) ) )
60 24 59 sylan9eqr โŠข ( ( ( ( ๐ด โ€˜ ๐‘— ) โˆˆ โ„‚ โˆง ( ๐ถ โ€˜ ๐‘— ) โˆˆ โ„‚ โˆง ๐‘‡ โˆˆ โ„‚ ) โˆง ( ๐ต โ€˜ ๐‘— ) = ( ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘— ) ) + ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘— ) ) ) ) โ†’ ( ( ( ๐ด โ€˜ ๐‘— ) โˆ’ ( ๐ต โ€˜ ๐‘— ) ) โ†‘ 2 ) = ( ( ๐‘‡ โ†‘ 2 ) ยท ( ( ( ๐ด โ€˜ ๐‘— ) โˆ’ ( ๐ถ โ€˜ ๐‘— ) ) โ†‘ 2 ) ) )
61 3 6 12 22 60 syl31anc โŠข ( ( ( ๐‘ โˆˆ โ„• โˆง ( ๐ด โˆˆ ( ๐”ผ โ€˜ ๐‘ ) โˆง ๐ถ โˆˆ ( ๐”ผ โ€˜ ๐‘ ) ) โˆง ( ๐‘‡ โˆˆ ( 0 [,] 1 ) โˆง โˆ€ ๐‘– โˆˆ ( 1 ... ๐‘ ) ( ๐ต โ€˜ ๐‘– ) = ( ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘– ) ) + ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘– ) ) ) ) ) โˆง ๐‘— โˆˆ ( 1 ... ๐‘ ) ) โ†’ ( ( ( ๐ด โ€˜ ๐‘— ) โˆ’ ( ๐ต โ€˜ ๐‘— ) ) โ†‘ 2 ) = ( ( ๐‘‡ โ†‘ 2 ) ยท ( ( ( ๐ด โ€˜ ๐‘— ) โˆ’ ( ๐ถ โ€˜ ๐‘— ) ) โ†‘ 2 ) ) )
62 61 sumeq2dv โŠข ( ( ๐‘ โˆˆ โ„• โˆง ( ๐ด โˆˆ ( ๐”ผ โ€˜ ๐‘ ) โˆง ๐ถ โˆˆ ( ๐”ผ โ€˜ ๐‘ ) ) โˆง ( ๐‘‡ โˆˆ ( 0 [,] 1 ) โˆง โˆ€ ๐‘– โˆˆ ( 1 ... ๐‘ ) ( ๐ต โ€˜ ๐‘– ) = ( ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘– ) ) + ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘– ) ) ) ) ) โ†’ ฮฃ ๐‘— โˆˆ ( 1 ... ๐‘ ) ( ( ( ๐ด โ€˜ ๐‘— ) โˆ’ ( ๐ต โ€˜ ๐‘— ) ) โ†‘ 2 ) = ฮฃ ๐‘— โˆˆ ( 1 ... ๐‘ ) ( ( ๐‘‡ โ†‘ 2 ) ยท ( ( ( ๐ด โ€˜ ๐‘— ) โˆ’ ( ๐ถ โ€˜ ๐‘— ) ) โ†‘ 2 ) ) )
63 fzfid โŠข ( ( ๐‘ โˆˆ โ„• โˆง ( ๐ด โˆˆ ( ๐”ผ โ€˜ ๐‘ ) โˆง ๐ถ โˆˆ ( ๐”ผ โ€˜ ๐‘ ) ) โˆง ( ๐‘‡ โˆˆ ( 0 [,] 1 ) โˆง โˆ€ ๐‘– โˆˆ ( 1 ... ๐‘ ) ( ๐ต โ€˜ ๐‘– ) = ( ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘– ) ) + ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘– ) ) ) ) ) โ†’ ( 1 ... ๐‘ ) โˆˆ Fin )
64 8 resqcld โŠข ( ๐‘‡ โˆˆ ( 0 [,] 1 ) โ†’ ( ๐‘‡ โ†‘ 2 ) โˆˆ โ„ )
65 64 recnd โŠข ( ๐‘‡ โˆˆ ( 0 [,] 1 ) โ†’ ( ๐‘‡ โ†‘ 2 ) โˆˆ โ„‚ )
66 65 adantr โŠข ( ( ๐‘‡ โˆˆ ( 0 [,] 1 ) โˆง โˆ€ ๐‘– โˆˆ ( 1 ... ๐‘ ) ( ๐ต โ€˜ ๐‘– ) = ( ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘– ) ) + ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘– ) ) ) ) โ†’ ( ๐‘‡ โ†‘ 2 ) โˆˆ โ„‚ )
67 66 3ad2ant3 โŠข ( ( ๐‘ โˆˆ โ„• โˆง ( ๐ด โˆˆ ( ๐”ผ โ€˜ ๐‘ ) โˆง ๐ถ โˆˆ ( ๐”ผ โ€˜ ๐‘ ) ) โˆง ( ๐‘‡ โˆˆ ( 0 [,] 1 ) โˆง โˆ€ ๐‘– โˆˆ ( 1 ... ๐‘ ) ( ๐ต โ€˜ ๐‘– ) = ( ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘– ) ) + ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘– ) ) ) ) ) โ†’ ( ๐‘‡ โ†‘ 2 ) โˆˆ โ„‚ )
68 2 3adant1 โŠข ( ( ๐‘ โˆˆ โ„• โˆง ๐ด โˆˆ ( ๐”ผ โ€˜ ๐‘ ) โˆง ๐‘— โˆˆ ( 1 ... ๐‘ ) ) โ†’ ( ๐ด โ€˜ ๐‘— ) โˆˆ โ„‚ )
69 68 3adant2r โŠข ( ( ๐‘ โˆˆ โ„• โˆง ( ๐ด โˆˆ ( ๐”ผ โ€˜ ๐‘ ) โˆง ๐ถ โˆˆ ( ๐”ผ โ€˜ ๐‘ ) ) โˆง ๐‘— โˆˆ ( 1 ... ๐‘ ) ) โ†’ ( ๐ด โ€˜ ๐‘— ) โˆˆ โ„‚ )
70 5 3adant1 โŠข ( ( ๐‘ โˆˆ โ„• โˆง ๐ถ โˆˆ ( ๐”ผ โ€˜ ๐‘ ) โˆง ๐‘— โˆˆ ( 1 ... ๐‘ ) ) โ†’ ( ๐ถ โ€˜ ๐‘— ) โˆˆ โ„‚ )
71 70 3adant2l โŠข ( ( ๐‘ โˆˆ โ„• โˆง ( ๐ด โˆˆ ( ๐”ผ โ€˜ ๐‘ ) โˆง ๐ถ โˆˆ ( ๐”ผ โ€˜ ๐‘ ) ) โˆง ๐‘— โˆˆ ( 1 ... ๐‘ ) ) โ†’ ( ๐ถ โ€˜ ๐‘— ) โˆˆ โ„‚ )
72 69 71 subcld โŠข ( ( ๐‘ โˆˆ โ„• โˆง ( ๐ด โˆˆ ( ๐”ผ โ€˜ ๐‘ ) โˆง ๐ถ โˆˆ ( ๐”ผ โ€˜ ๐‘ ) ) โˆง ๐‘— โˆˆ ( 1 ... ๐‘ ) ) โ†’ ( ( ๐ด โ€˜ ๐‘— ) โˆ’ ( ๐ถ โ€˜ ๐‘— ) ) โˆˆ โ„‚ )
73 72 sqcld โŠข ( ( ๐‘ โˆˆ โ„• โˆง ( ๐ด โˆˆ ( ๐”ผ โ€˜ ๐‘ ) โˆง ๐ถ โˆˆ ( ๐”ผ โ€˜ ๐‘ ) ) โˆง ๐‘— โˆˆ ( 1 ... ๐‘ ) ) โ†’ ( ( ( ๐ด โ€˜ ๐‘— ) โˆ’ ( ๐ถ โ€˜ ๐‘— ) ) โ†‘ 2 ) โˆˆ โ„‚ )
74 73 3expa โŠข ( ( ( ๐‘ โˆˆ โ„• โˆง ( ๐ด โˆˆ ( ๐”ผ โ€˜ ๐‘ ) โˆง ๐ถ โˆˆ ( ๐”ผ โ€˜ ๐‘ ) ) ) โˆง ๐‘— โˆˆ ( 1 ... ๐‘ ) ) โ†’ ( ( ( ๐ด โ€˜ ๐‘— ) โˆ’ ( ๐ถ โ€˜ ๐‘— ) ) โ†‘ 2 ) โˆˆ โ„‚ )
75 74 3adantl3 โŠข ( ( ( ๐‘ โˆˆ โ„• โˆง ( ๐ด โˆˆ ( ๐”ผ โ€˜ ๐‘ ) โˆง ๐ถ โˆˆ ( ๐”ผ โ€˜ ๐‘ ) ) โˆง ( ๐‘‡ โˆˆ ( 0 [,] 1 ) โˆง โˆ€ ๐‘– โˆˆ ( 1 ... ๐‘ ) ( ๐ต โ€˜ ๐‘– ) = ( ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘– ) ) + ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘– ) ) ) ) ) โˆง ๐‘— โˆˆ ( 1 ... ๐‘ ) ) โ†’ ( ( ( ๐ด โ€˜ ๐‘— ) โˆ’ ( ๐ถ โ€˜ ๐‘— ) ) โ†‘ 2 ) โˆˆ โ„‚ )
76 63 67 75 fsummulc2 โŠข ( ( ๐‘ โˆˆ โ„• โˆง ( ๐ด โˆˆ ( ๐”ผ โ€˜ ๐‘ ) โˆง ๐ถ โˆˆ ( ๐”ผ โ€˜ ๐‘ ) ) โˆง ( ๐‘‡ โˆˆ ( 0 [,] 1 ) โˆง โˆ€ ๐‘– โˆˆ ( 1 ... ๐‘ ) ( ๐ต โ€˜ ๐‘– ) = ( ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘– ) ) + ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘– ) ) ) ) ) โ†’ ( ( ๐‘‡ โ†‘ 2 ) ยท ฮฃ ๐‘— โˆˆ ( 1 ... ๐‘ ) ( ( ( ๐ด โ€˜ ๐‘— ) โˆ’ ( ๐ถ โ€˜ ๐‘— ) ) โ†‘ 2 ) ) = ฮฃ ๐‘— โˆˆ ( 1 ... ๐‘ ) ( ( ๐‘‡ โ†‘ 2 ) ยท ( ( ( ๐ด โ€˜ ๐‘— ) โˆ’ ( ๐ถ โ€˜ ๐‘— ) ) โ†‘ 2 ) ) )
77 62 76 eqtr4d โŠข ( ( ๐‘ โˆˆ โ„• โˆง ( ๐ด โˆˆ ( ๐”ผ โ€˜ ๐‘ ) โˆง ๐ถ โˆˆ ( ๐”ผ โ€˜ ๐‘ ) ) โˆง ( ๐‘‡ โˆˆ ( 0 [,] 1 ) โˆง โˆ€ ๐‘– โˆˆ ( 1 ... ๐‘ ) ( ๐ต โ€˜ ๐‘– ) = ( ( ( 1 โˆ’ ๐‘‡ ) ยท ( ๐ด โ€˜ ๐‘– ) ) + ( ๐‘‡ ยท ( ๐ถ โ€˜ ๐‘– ) ) ) ) ) โ†’ ฮฃ ๐‘— โˆˆ ( 1 ... ๐‘ ) ( ( ( ๐ด โ€˜ ๐‘— ) โˆ’ ( ๐ต โ€˜ ๐‘— ) ) โ†‘ 2 ) = ( ( ๐‘‡ โ†‘ 2 ) ยท ฮฃ ๐‘— โˆˆ ( 1 ... ๐‘ ) ( ( ( ๐ด โ€˜ ๐‘— ) โˆ’ ( ๐ถ โ€˜ ๐‘— ) ) โ†‘ 2 ) ) )