Metamath Proof Explorer


Theorem lcmineqlem1

Description: Part of lcm inequality lemma, this part eventually shows that F times the least common multiple of 1 to n is an integer. (Contributed by metakunt, 29-Apr-2024)

Ref Expression
Hypotheses lcmineqlem1.1 โŠข ๐น = โˆซ ( 0 [,] 1 ) ( ( ๐‘ฅ โ†‘ ( ๐‘€ โˆ’ 1 ) ) ยท ( ( 1 โˆ’ ๐‘ฅ ) โ†‘ ( ๐‘ โˆ’ ๐‘€ ) ) ) d ๐‘ฅ
lcmineqlem1.2 โŠข ( ๐œ‘ โ†’ ๐‘ โˆˆ โ„• )
lcmineqlem1.3 โŠข ( ๐œ‘ โ†’ ๐‘€ โˆˆ โ„• )
lcmineqlem1.4 โŠข ( ๐œ‘ โ†’ ๐‘€ โ‰ค ๐‘ )
Assertion lcmineqlem1 ( ๐œ‘ โ†’ ๐น = โˆซ ( 0 [,] 1 ) ( ( ๐‘ฅ โ†‘ ( ๐‘€ โˆ’ 1 ) ) ยท ฮฃ ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) ( ( ( - 1 โ†‘ ๐‘˜ ) ยท ( ( ๐‘ โˆ’ ๐‘€ ) C ๐‘˜ ) ) ยท ( ๐‘ฅ โ†‘ ๐‘˜ ) ) ) d ๐‘ฅ )

Proof

Step Hyp Ref Expression
1 lcmineqlem1.1 โŠข ๐น = โˆซ ( 0 [,] 1 ) ( ( ๐‘ฅ โ†‘ ( ๐‘€ โˆ’ 1 ) ) ยท ( ( 1 โˆ’ ๐‘ฅ ) โ†‘ ( ๐‘ โˆ’ ๐‘€ ) ) ) d ๐‘ฅ
2 lcmineqlem1.2 โŠข ( ๐œ‘ โ†’ ๐‘ โˆˆ โ„• )
3 lcmineqlem1.3 โŠข ( ๐œ‘ โ†’ ๐‘€ โˆˆ โ„• )
4 lcmineqlem1.4 โŠข ( ๐œ‘ โ†’ ๐‘€ โ‰ค ๐‘ )
5 elunitcn โŠข ( ๐‘ฅ โˆˆ ( 0 [,] 1 ) โ†’ ๐‘ฅ โˆˆ โ„‚ )
6 ax-1cn โŠข 1 โˆˆ โ„‚
7 negsub โŠข ( ( 1 โˆˆ โ„‚ โˆง ๐‘ฅ โˆˆ โ„‚ ) โ†’ ( 1 + - ๐‘ฅ ) = ( 1 โˆ’ ๐‘ฅ ) )
8 6 7 mpan โŠข ( ๐‘ฅ โˆˆ โ„‚ โ†’ ( 1 + - ๐‘ฅ ) = ( 1 โˆ’ ๐‘ฅ ) )
9 8 oveq1d โŠข ( ๐‘ฅ โˆˆ โ„‚ โ†’ ( ( 1 + - ๐‘ฅ ) โ†‘ ( ๐‘ โˆ’ ๐‘€ ) ) = ( ( 1 โˆ’ ๐‘ฅ ) โ†‘ ( ๐‘ โˆ’ ๐‘€ ) ) )
10 9 adantl โŠข ( ( ๐œ‘ โˆง ๐‘ฅ โˆˆ โ„‚ ) โ†’ ( ( 1 + - ๐‘ฅ ) โ†‘ ( ๐‘ โˆ’ ๐‘€ ) ) = ( ( 1 โˆ’ ๐‘ฅ ) โ†‘ ( ๐‘ โˆ’ ๐‘€ ) ) )
11 negcl โŠข ( ๐‘ฅ โˆˆ โ„‚ โ†’ - ๐‘ฅ โˆˆ โ„‚ )
12 1cnd โŠข ( ๐œ‘ โ†’ 1 โˆˆ โ„‚ )
13 3 nnnn0d โŠข ( ๐œ‘ โ†’ ๐‘€ โˆˆ โ„•0 )
14 2 nnnn0d โŠข ( ๐œ‘ โ†’ ๐‘ โˆˆ โ„•0 )
15 nn0sub โŠข ( ( ๐‘€ โˆˆ โ„•0 โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( ๐‘€ โ‰ค ๐‘ โ†” ( ๐‘ โˆ’ ๐‘€ ) โˆˆ โ„•0 ) )
16 13 14 15 syl2anc โŠข ( ๐œ‘ โ†’ ( ๐‘€ โ‰ค ๐‘ โ†” ( ๐‘ โˆ’ ๐‘€ ) โˆˆ โ„•0 ) )
17 4 16 mpbid โŠข ( ๐œ‘ โ†’ ( ๐‘ โˆ’ ๐‘€ ) โˆˆ โ„•0 )
18 binom โŠข ( ( 1 โˆˆ โ„‚ โˆง - ๐‘ฅ โˆˆ โ„‚ โˆง ( ๐‘ โˆ’ ๐‘€ ) โˆˆ โ„•0 ) โ†’ ( ( 1 + - ๐‘ฅ ) โ†‘ ( ๐‘ โˆ’ ๐‘€ ) ) = ฮฃ ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) ( ( ( ๐‘ โˆ’ ๐‘€ ) C ๐‘˜ ) ยท ( ( 1 โ†‘ ( ( ๐‘ โˆ’ ๐‘€ ) โˆ’ ๐‘˜ ) ) ยท ( - ๐‘ฅ โ†‘ ๐‘˜ ) ) ) )
19 18 3com23 โŠข ( ( 1 โˆˆ โ„‚ โˆง ( ๐‘ โˆ’ ๐‘€ ) โˆˆ โ„•0 โˆง - ๐‘ฅ โˆˆ โ„‚ ) โ†’ ( ( 1 + - ๐‘ฅ ) โ†‘ ( ๐‘ โˆ’ ๐‘€ ) ) = ฮฃ ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) ( ( ( ๐‘ โˆ’ ๐‘€ ) C ๐‘˜ ) ยท ( ( 1 โ†‘ ( ( ๐‘ โˆ’ ๐‘€ ) โˆ’ ๐‘˜ ) ) ยท ( - ๐‘ฅ โ†‘ ๐‘˜ ) ) ) )
20 19 3expia โŠข ( ( 1 โˆˆ โ„‚ โˆง ( ๐‘ โˆ’ ๐‘€ ) โˆˆ โ„•0 ) โ†’ ( - ๐‘ฅ โˆˆ โ„‚ โ†’ ( ( 1 + - ๐‘ฅ ) โ†‘ ( ๐‘ โˆ’ ๐‘€ ) ) = ฮฃ ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) ( ( ( ๐‘ โˆ’ ๐‘€ ) C ๐‘˜ ) ยท ( ( 1 โ†‘ ( ( ๐‘ โˆ’ ๐‘€ ) โˆ’ ๐‘˜ ) ) ยท ( - ๐‘ฅ โ†‘ ๐‘˜ ) ) ) ) )
21 12 17 20 syl2anc โŠข ( ๐œ‘ โ†’ ( - ๐‘ฅ โˆˆ โ„‚ โ†’ ( ( 1 + - ๐‘ฅ ) โ†‘ ( ๐‘ โˆ’ ๐‘€ ) ) = ฮฃ ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) ( ( ( ๐‘ โˆ’ ๐‘€ ) C ๐‘˜ ) ยท ( ( 1 โ†‘ ( ( ๐‘ โˆ’ ๐‘€ ) โˆ’ ๐‘˜ ) ) ยท ( - ๐‘ฅ โ†‘ ๐‘˜ ) ) ) ) )
22 11 21 syl5 โŠข ( ๐œ‘ โ†’ ( ๐‘ฅ โˆˆ โ„‚ โ†’ ( ( 1 + - ๐‘ฅ ) โ†‘ ( ๐‘ โˆ’ ๐‘€ ) ) = ฮฃ ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) ( ( ( ๐‘ โˆ’ ๐‘€ ) C ๐‘˜ ) ยท ( ( 1 โ†‘ ( ( ๐‘ โˆ’ ๐‘€ ) โˆ’ ๐‘˜ ) ) ยท ( - ๐‘ฅ โ†‘ ๐‘˜ ) ) ) ) )
23 22 imp โŠข ( ( ๐œ‘ โˆง ๐‘ฅ โˆˆ โ„‚ ) โ†’ ( ( 1 + - ๐‘ฅ ) โ†‘ ( ๐‘ โˆ’ ๐‘€ ) ) = ฮฃ ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) ( ( ( ๐‘ โˆ’ ๐‘€ ) C ๐‘˜ ) ยท ( ( 1 โ†‘ ( ( ๐‘ โˆ’ ๐‘€ ) โˆ’ ๐‘˜ ) ) ยท ( - ๐‘ฅ โ†‘ ๐‘˜ ) ) ) )
24 10 23 eqtr3d โŠข ( ( ๐œ‘ โˆง ๐‘ฅ โˆˆ โ„‚ ) โ†’ ( ( 1 โˆ’ ๐‘ฅ ) โ†‘ ( ๐‘ โˆ’ ๐‘€ ) ) = ฮฃ ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) ( ( ( ๐‘ โˆ’ ๐‘€ ) C ๐‘˜ ) ยท ( ( 1 โ†‘ ( ( ๐‘ โˆ’ ๐‘€ ) โˆ’ ๐‘˜ ) ) ยท ( - ๐‘ฅ โ†‘ ๐‘˜ ) ) ) )
25 elfzelz โŠข ( ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) โ†’ ๐‘˜ โˆˆ โ„ค )
26 2 nnzd โŠข ( ๐œ‘ โ†’ ๐‘ โˆˆ โ„ค )
27 3 nnzd โŠข ( ๐œ‘ โ†’ ๐‘€ โˆˆ โ„ค )
28 zsubcl โŠข ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค ) โ†’ ( ๐‘ โˆ’ ๐‘€ ) โˆˆ โ„ค )
29 26 27 28 syl2anc โŠข ( ๐œ‘ โ†’ ( ๐‘ โˆ’ ๐‘€ ) โˆˆ โ„ค )
30 zsubcl โŠข ( ( ( ๐‘ โˆ’ ๐‘€ ) โˆˆ โ„ค โˆง ๐‘˜ โˆˆ โ„ค ) โ†’ ( ( ๐‘ โˆ’ ๐‘€ ) โˆ’ ๐‘˜ ) โˆˆ โ„ค )
31 29 30 sylan โŠข ( ( ๐œ‘ โˆง ๐‘˜ โˆˆ โ„ค ) โ†’ ( ( ๐‘ โˆ’ ๐‘€ ) โˆ’ ๐‘˜ ) โˆˆ โ„ค )
32 25 31 sylan2 โŠข ( ( ๐œ‘ โˆง ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) ) โ†’ ( ( ๐‘ โˆ’ ๐‘€ ) โˆ’ ๐‘˜ ) โˆˆ โ„ค )
33 1exp โŠข ( ( ( ๐‘ โˆ’ ๐‘€ ) โˆ’ ๐‘˜ ) โˆˆ โ„ค โ†’ ( 1 โ†‘ ( ( ๐‘ โˆ’ ๐‘€ ) โˆ’ ๐‘˜ ) ) = 1 )
34 32 33 syl โŠข ( ( ๐œ‘ โˆง ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) ) โ†’ ( 1 โ†‘ ( ( ๐‘ โˆ’ ๐‘€ ) โˆ’ ๐‘˜ ) ) = 1 )
35 34 3adant2 โŠข ( ( ๐œ‘ โˆง ๐‘ฅ โˆˆ โ„‚ โˆง ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) ) โ†’ ( 1 โ†‘ ( ( ๐‘ โˆ’ ๐‘€ ) โˆ’ ๐‘˜ ) ) = 1 )
36 35 oveq1d โŠข ( ( ๐œ‘ โˆง ๐‘ฅ โˆˆ โ„‚ โˆง ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) ) โ†’ ( ( 1 โ†‘ ( ( ๐‘ โˆ’ ๐‘€ ) โˆ’ ๐‘˜ ) ) ยท ( - ๐‘ฅ โ†‘ ๐‘˜ ) ) = ( 1 ยท ( - ๐‘ฅ โ†‘ ๐‘˜ ) ) )
37 11 3ad2ant2 โŠข ( ( ๐œ‘ โˆง ๐‘ฅ โˆˆ โ„‚ โˆง ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) ) โ†’ - ๐‘ฅ โˆˆ โ„‚ )
38 elfznn0 โŠข ( ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) โ†’ ๐‘˜ โˆˆ โ„•0 )
39 38 3ad2ant3 โŠข ( ( ๐œ‘ โˆง ๐‘ฅ โˆˆ โ„‚ โˆง ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) ) โ†’ ๐‘˜ โˆˆ โ„•0 )
40 expcl โŠข ( ( - ๐‘ฅ โˆˆ โ„‚ โˆง ๐‘˜ โˆˆ โ„•0 ) โ†’ ( - ๐‘ฅ โ†‘ ๐‘˜ ) โˆˆ โ„‚ )
41 37 39 40 syl2anc โŠข ( ( ๐œ‘ โˆง ๐‘ฅ โˆˆ โ„‚ โˆง ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) ) โ†’ ( - ๐‘ฅ โ†‘ ๐‘˜ ) โˆˆ โ„‚ )
42 41 mullidd โŠข ( ( ๐œ‘ โˆง ๐‘ฅ โˆˆ โ„‚ โˆง ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) ) โ†’ ( 1 ยท ( - ๐‘ฅ โ†‘ ๐‘˜ ) ) = ( - ๐‘ฅ โ†‘ ๐‘˜ ) )
43 36 42 eqtrd โŠข ( ( ๐œ‘ โˆง ๐‘ฅ โˆˆ โ„‚ โˆง ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) ) โ†’ ( ( 1 โ†‘ ( ( ๐‘ โˆ’ ๐‘€ ) โˆ’ ๐‘˜ ) ) ยท ( - ๐‘ฅ โ†‘ ๐‘˜ ) ) = ( - ๐‘ฅ โ†‘ ๐‘˜ ) )
44 mulm1 โŠข ( ๐‘ฅ โˆˆ โ„‚ โ†’ ( - 1 ยท ๐‘ฅ ) = - ๐‘ฅ )
45 44 oveq1d โŠข ( ๐‘ฅ โˆˆ โ„‚ โ†’ ( ( - 1 ยท ๐‘ฅ ) โ†‘ ๐‘˜ ) = ( - ๐‘ฅ โ†‘ ๐‘˜ ) )
46 45 3ad2ant2 โŠข ( ( ๐œ‘ โˆง ๐‘ฅ โˆˆ โ„‚ โˆง ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) ) โ†’ ( ( - 1 ยท ๐‘ฅ ) โ†‘ ๐‘˜ ) = ( - ๐‘ฅ โ†‘ ๐‘˜ ) )
47 43 46 eqtr4d โŠข ( ( ๐œ‘ โˆง ๐‘ฅ โˆˆ โ„‚ โˆง ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) ) โ†’ ( ( 1 โ†‘ ( ( ๐‘ โˆ’ ๐‘€ ) โˆ’ ๐‘˜ ) ) ยท ( - ๐‘ฅ โ†‘ ๐‘˜ ) ) = ( ( - 1 ยท ๐‘ฅ ) โ†‘ ๐‘˜ ) )
48 neg1cn โŠข - 1 โˆˆ โ„‚
49 mulexp โŠข ( ( - 1 โˆˆ โ„‚ โˆง ๐‘ฅ โˆˆ โ„‚ โˆง ๐‘˜ โˆˆ โ„•0 ) โ†’ ( ( - 1 ยท ๐‘ฅ ) โ†‘ ๐‘˜ ) = ( ( - 1 โ†‘ ๐‘˜ ) ยท ( ๐‘ฅ โ†‘ ๐‘˜ ) ) )
50 48 49 mp3an1 โŠข ( ( ๐‘ฅ โˆˆ โ„‚ โˆง ๐‘˜ โˆˆ โ„•0 ) โ†’ ( ( - 1 ยท ๐‘ฅ ) โ†‘ ๐‘˜ ) = ( ( - 1 โ†‘ ๐‘˜ ) ยท ( ๐‘ฅ โ†‘ ๐‘˜ ) ) )
51 38 50 sylan2 โŠข ( ( ๐‘ฅ โˆˆ โ„‚ โˆง ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) ) โ†’ ( ( - 1 ยท ๐‘ฅ ) โ†‘ ๐‘˜ ) = ( ( - 1 โ†‘ ๐‘˜ ) ยท ( ๐‘ฅ โ†‘ ๐‘˜ ) ) )
52 51 3adant1 โŠข ( ( ๐œ‘ โˆง ๐‘ฅ โˆˆ โ„‚ โˆง ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) ) โ†’ ( ( - 1 ยท ๐‘ฅ ) โ†‘ ๐‘˜ ) = ( ( - 1 โ†‘ ๐‘˜ ) ยท ( ๐‘ฅ โ†‘ ๐‘˜ ) ) )
53 47 52 eqtrd โŠข ( ( ๐œ‘ โˆง ๐‘ฅ โˆˆ โ„‚ โˆง ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) ) โ†’ ( ( 1 โ†‘ ( ( ๐‘ โˆ’ ๐‘€ ) โˆ’ ๐‘˜ ) ) ยท ( - ๐‘ฅ โ†‘ ๐‘˜ ) ) = ( ( - 1 โ†‘ ๐‘˜ ) ยท ( ๐‘ฅ โ†‘ ๐‘˜ ) ) )
54 53 oveq2d โŠข ( ( ๐œ‘ โˆง ๐‘ฅ โˆˆ โ„‚ โˆง ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) ) โ†’ ( ( ( ๐‘ โˆ’ ๐‘€ ) C ๐‘˜ ) ยท ( ( 1 โ†‘ ( ( ๐‘ โˆ’ ๐‘€ ) โˆ’ ๐‘˜ ) ) ยท ( - ๐‘ฅ โ†‘ ๐‘˜ ) ) ) = ( ( ( ๐‘ โˆ’ ๐‘€ ) C ๐‘˜ ) ยท ( ( - 1 โ†‘ ๐‘˜ ) ยท ( ๐‘ฅ โ†‘ ๐‘˜ ) ) ) )
55 bccl โŠข ( ( ( ๐‘ โˆ’ ๐‘€ ) โˆˆ โ„•0 โˆง ๐‘˜ โˆˆ โ„ค ) โ†’ ( ( ๐‘ โˆ’ ๐‘€ ) C ๐‘˜ ) โˆˆ โ„•0 )
56 17 25 55 syl2an โŠข ( ( ๐œ‘ โˆง ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) ) โ†’ ( ( ๐‘ โˆ’ ๐‘€ ) C ๐‘˜ ) โˆˆ โ„•0 )
57 56 3adant2 โŠข ( ( ๐œ‘ โˆง ๐‘ฅ โˆˆ โ„‚ โˆง ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) ) โ†’ ( ( ๐‘ โˆ’ ๐‘€ ) C ๐‘˜ ) โˆˆ โ„•0 )
58 57 nn0cnd โŠข ( ( ๐œ‘ โˆง ๐‘ฅ โˆˆ โ„‚ โˆง ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) ) โ†’ ( ( ๐‘ โˆ’ ๐‘€ ) C ๐‘˜ ) โˆˆ โ„‚ )
59 expcl โŠข ( ( - 1 โˆˆ โ„‚ โˆง ๐‘˜ โˆˆ โ„•0 ) โ†’ ( - 1 โ†‘ ๐‘˜ ) โˆˆ โ„‚ )
60 48 39 59 sylancr โŠข ( ( ๐œ‘ โˆง ๐‘ฅ โˆˆ โ„‚ โˆง ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) ) โ†’ ( - 1 โ†‘ ๐‘˜ ) โˆˆ โ„‚ )
61 expcl โŠข ( ( ๐‘ฅ โˆˆ โ„‚ โˆง ๐‘˜ โˆˆ โ„•0 ) โ†’ ( ๐‘ฅ โ†‘ ๐‘˜ ) โˆˆ โ„‚ )
62 38 61 sylan2 โŠข ( ( ๐‘ฅ โˆˆ โ„‚ โˆง ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) ) โ†’ ( ๐‘ฅ โ†‘ ๐‘˜ ) โˆˆ โ„‚ )
63 62 3adant1 โŠข ( ( ๐œ‘ โˆง ๐‘ฅ โˆˆ โ„‚ โˆง ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) ) โ†’ ( ๐‘ฅ โ†‘ ๐‘˜ ) โˆˆ โ„‚ )
64 58 60 63 mulassd โŠข ( ( ๐œ‘ โˆง ๐‘ฅ โˆˆ โ„‚ โˆง ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) ) โ†’ ( ( ( ( ๐‘ โˆ’ ๐‘€ ) C ๐‘˜ ) ยท ( - 1 โ†‘ ๐‘˜ ) ) ยท ( ๐‘ฅ โ†‘ ๐‘˜ ) ) = ( ( ( ๐‘ โˆ’ ๐‘€ ) C ๐‘˜ ) ยท ( ( - 1 โ†‘ ๐‘˜ ) ยท ( ๐‘ฅ โ†‘ ๐‘˜ ) ) ) )
65 54 64 eqtr4d โŠข ( ( ๐œ‘ โˆง ๐‘ฅ โˆˆ โ„‚ โˆง ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) ) โ†’ ( ( ( ๐‘ โˆ’ ๐‘€ ) C ๐‘˜ ) ยท ( ( 1 โ†‘ ( ( ๐‘ โˆ’ ๐‘€ ) โˆ’ ๐‘˜ ) ) ยท ( - ๐‘ฅ โ†‘ ๐‘˜ ) ) ) = ( ( ( ( ๐‘ โˆ’ ๐‘€ ) C ๐‘˜ ) ยท ( - 1 โ†‘ ๐‘˜ ) ) ยท ( ๐‘ฅ โ†‘ ๐‘˜ ) ) )
66 58 60 mulcomd โŠข ( ( ๐œ‘ โˆง ๐‘ฅ โˆˆ โ„‚ โˆง ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) ) โ†’ ( ( ( ๐‘ โˆ’ ๐‘€ ) C ๐‘˜ ) ยท ( - 1 โ†‘ ๐‘˜ ) ) = ( ( - 1 โ†‘ ๐‘˜ ) ยท ( ( ๐‘ โˆ’ ๐‘€ ) C ๐‘˜ ) ) )
67 66 oveq1d โŠข ( ( ๐œ‘ โˆง ๐‘ฅ โˆˆ โ„‚ โˆง ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) ) โ†’ ( ( ( ( ๐‘ โˆ’ ๐‘€ ) C ๐‘˜ ) ยท ( - 1 โ†‘ ๐‘˜ ) ) ยท ( ๐‘ฅ โ†‘ ๐‘˜ ) ) = ( ( ( - 1 โ†‘ ๐‘˜ ) ยท ( ( ๐‘ โˆ’ ๐‘€ ) C ๐‘˜ ) ) ยท ( ๐‘ฅ โ†‘ ๐‘˜ ) ) )
68 65 67 eqtrd โŠข ( ( ๐œ‘ โˆง ๐‘ฅ โˆˆ โ„‚ โˆง ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) ) โ†’ ( ( ( ๐‘ โˆ’ ๐‘€ ) C ๐‘˜ ) ยท ( ( 1 โ†‘ ( ( ๐‘ โˆ’ ๐‘€ ) โˆ’ ๐‘˜ ) ) ยท ( - ๐‘ฅ โ†‘ ๐‘˜ ) ) ) = ( ( ( - 1 โ†‘ ๐‘˜ ) ยท ( ( ๐‘ โˆ’ ๐‘€ ) C ๐‘˜ ) ) ยท ( ๐‘ฅ โ†‘ ๐‘˜ ) ) )
69 68 3expa โŠข ( ( ( ๐œ‘ โˆง ๐‘ฅ โˆˆ โ„‚ ) โˆง ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) ) โ†’ ( ( ( ๐‘ โˆ’ ๐‘€ ) C ๐‘˜ ) ยท ( ( 1 โ†‘ ( ( ๐‘ โˆ’ ๐‘€ ) โˆ’ ๐‘˜ ) ) ยท ( - ๐‘ฅ โ†‘ ๐‘˜ ) ) ) = ( ( ( - 1 โ†‘ ๐‘˜ ) ยท ( ( ๐‘ โˆ’ ๐‘€ ) C ๐‘˜ ) ) ยท ( ๐‘ฅ โ†‘ ๐‘˜ ) ) )
70 69 sumeq2dv โŠข ( ( ๐œ‘ โˆง ๐‘ฅ โˆˆ โ„‚ ) โ†’ ฮฃ ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) ( ( ( ๐‘ โˆ’ ๐‘€ ) C ๐‘˜ ) ยท ( ( 1 โ†‘ ( ( ๐‘ โˆ’ ๐‘€ ) โˆ’ ๐‘˜ ) ) ยท ( - ๐‘ฅ โ†‘ ๐‘˜ ) ) ) = ฮฃ ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) ( ( ( - 1 โ†‘ ๐‘˜ ) ยท ( ( ๐‘ โˆ’ ๐‘€ ) C ๐‘˜ ) ) ยท ( ๐‘ฅ โ†‘ ๐‘˜ ) ) )
71 24 70 eqtrd โŠข ( ( ๐œ‘ โˆง ๐‘ฅ โˆˆ โ„‚ ) โ†’ ( ( 1 โˆ’ ๐‘ฅ ) โ†‘ ( ๐‘ โˆ’ ๐‘€ ) ) = ฮฃ ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) ( ( ( - 1 โ†‘ ๐‘˜ ) ยท ( ( ๐‘ โˆ’ ๐‘€ ) C ๐‘˜ ) ) ยท ( ๐‘ฅ โ†‘ ๐‘˜ ) ) )
72 5 71 sylan2 โŠข ( ( ๐œ‘ โˆง ๐‘ฅ โˆˆ ( 0 [,] 1 ) ) โ†’ ( ( 1 โˆ’ ๐‘ฅ ) โ†‘ ( ๐‘ โˆ’ ๐‘€ ) ) = ฮฃ ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) ( ( ( - 1 โ†‘ ๐‘˜ ) ยท ( ( ๐‘ โˆ’ ๐‘€ ) C ๐‘˜ ) ) ยท ( ๐‘ฅ โ†‘ ๐‘˜ ) ) )
73 72 oveq2d โŠข ( ( ๐œ‘ โˆง ๐‘ฅ โˆˆ ( 0 [,] 1 ) ) โ†’ ( ( ๐‘ฅ โ†‘ ( ๐‘€ โˆ’ 1 ) ) ยท ( ( 1 โˆ’ ๐‘ฅ ) โ†‘ ( ๐‘ โˆ’ ๐‘€ ) ) ) = ( ( ๐‘ฅ โ†‘ ( ๐‘€ โˆ’ 1 ) ) ยท ฮฃ ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) ( ( ( - 1 โ†‘ ๐‘˜ ) ยท ( ( ๐‘ โˆ’ ๐‘€ ) C ๐‘˜ ) ) ยท ( ๐‘ฅ โ†‘ ๐‘˜ ) ) ) )
74 73 itgeq2dv โŠข ( ๐œ‘ โ†’ โˆซ ( 0 [,] 1 ) ( ( ๐‘ฅ โ†‘ ( ๐‘€ โˆ’ 1 ) ) ยท ( ( 1 โˆ’ ๐‘ฅ ) โ†‘ ( ๐‘ โˆ’ ๐‘€ ) ) ) d ๐‘ฅ = โˆซ ( 0 [,] 1 ) ( ( ๐‘ฅ โ†‘ ( ๐‘€ โˆ’ 1 ) ) ยท ฮฃ ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) ( ( ( - 1 โ†‘ ๐‘˜ ) ยท ( ( ๐‘ โˆ’ ๐‘€ ) C ๐‘˜ ) ) ยท ( ๐‘ฅ โ†‘ ๐‘˜ ) ) ) d ๐‘ฅ )
75 1 74 eqtrid โŠข ( ๐œ‘ โ†’ ๐น = โˆซ ( 0 [,] 1 ) ( ( ๐‘ฅ โ†‘ ( ๐‘€ โˆ’ 1 ) ) ยท ฮฃ ๐‘˜ โˆˆ ( 0 ... ( ๐‘ โˆ’ ๐‘€ ) ) ( ( ( - 1 โ†‘ ๐‘˜ ) ยท ( ( ๐‘ โˆ’ ๐‘€ ) C ๐‘˜ ) ) ยท ( ๐‘ฅ โ†‘ ๐‘˜ ) ) ) d ๐‘ฅ )