Metamath Proof Explorer


Theorem ballotlemfcc

Description: F takes value 0 between positive and negative values. (Contributed by Thierry Arnoux, 2-Apr-2017)

Ref Expression
Hypotheses ballotth.m ⊒ 𝑀 ∈ β„•
ballotth.n ⊒ 𝑁 ∈ β„•
ballotth.o ⊒ 𝑂 = { 𝑐 ∈ 𝒫 ( 1 ... ( 𝑀 + 𝑁 ) ) ∣ ( β™― β€˜ 𝑐 ) = 𝑀 }
ballotth.p ⊒ 𝑃 = ( π‘₯ ∈ 𝒫 𝑂 ↦ ( ( β™― β€˜ π‘₯ ) / ( β™― β€˜ 𝑂 ) ) )
ballotth.f ⊒ 𝐹 = ( 𝑐 ∈ 𝑂 ↦ ( 𝑖 ∈ β„€ ↦ ( ( β™― β€˜ ( ( 1 ... 𝑖 ) ∩ 𝑐 ) ) βˆ’ ( β™― β€˜ ( ( 1 ... 𝑖 ) βˆ– 𝑐 ) ) ) ) )
ballotlemfcc.c ⊒ ( πœ‘ β†’ 𝐢 ∈ 𝑂 )
ballotlemfcc.j ⊒ ( πœ‘ β†’ 𝐽 ∈ β„• )
ballotlemfcc.3 ⊒ ( πœ‘ β†’ βˆƒ 𝑖 ∈ ( 1 ... 𝐽 ) 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) )
ballotlemfcc.4 ⊒ ( πœ‘ β†’ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝐽 ) < 0 )
Assertion ballotlemfcc ( πœ‘ β†’ βˆƒ π‘˜ ∈ ( 1 ... 𝐽 ) ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) = 0 )

Proof

Step Hyp Ref Expression
1 ballotth.m ⊒ 𝑀 ∈ β„•
2 ballotth.n ⊒ 𝑁 ∈ β„•
3 ballotth.o ⊒ 𝑂 = { 𝑐 ∈ 𝒫 ( 1 ... ( 𝑀 + 𝑁 ) ) ∣ ( β™― β€˜ 𝑐 ) = 𝑀 }
4 ballotth.p ⊒ 𝑃 = ( π‘₯ ∈ 𝒫 𝑂 ↦ ( ( β™― β€˜ π‘₯ ) / ( β™― β€˜ 𝑂 ) ) )
5 ballotth.f ⊒ 𝐹 = ( 𝑐 ∈ 𝑂 ↦ ( 𝑖 ∈ β„€ ↦ ( ( β™― β€˜ ( ( 1 ... 𝑖 ) ∩ 𝑐 ) ) βˆ’ ( β™― β€˜ ( ( 1 ... 𝑖 ) βˆ– 𝑐 ) ) ) ) )
6 ballotlemfcc.c ⊒ ( πœ‘ β†’ 𝐢 ∈ 𝑂 )
7 ballotlemfcc.j ⊒ ( πœ‘ β†’ 𝐽 ∈ β„• )
8 ballotlemfcc.3 ⊒ ( πœ‘ β†’ βˆƒ 𝑖 ∈ ( 1 ... 𝐽 ) 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) )
9 ballotlemfcc.4 ⊒ ( πœ‘ β†’ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝐽 ) < 0 )
10 fveq2 ⊒ ( 𝑖 = π‘˜ β†’ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) = ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) )
11 10 breq2d ⊒ ( 𝑖 = π‘˜ β†’ ( 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) ↔ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) )
12 11 elrab ⊒ ( π‘˜ ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } ↔ ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) )
13 12 anbi1i ⊒ ( ( π‘˜ ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } ∧ βˆ€ 𝑗 ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } 𝑗 ≀ π‘˜ ) ↔ ( ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ∧ βˆ€ 𝑗 ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } 𝑗 ≀ π‘˜ ) )
14 simprl ⊒ ( ( πœ‘ ∧ ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ) β†’ π‘˜ ∈ ( 1 ... 𝐽 ) )
15 14 adantrr ⊒ ( ( πœ‘ ∧ ( ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ∧ βˆ€ 𝑗 ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } 𝑗 ≀ π‘˜ ) ) β†’ π‘˜ ∈ ( 1 ... 𝐽 ) )
16 fzssuz ⊒ ( 1 ... 𝐽 ) βŠ† ( β„€β‰₯ β€˜ 1 )
17 uzssz ⊒ ( β„€β‰₯ β€˜ 1 ) βŠ† β„€
18 16 17 sstri ⊒ ( 1 ... 𝐽 ) βŠ† β„€
19 zssre ⊒ β„€ βŠ† ℝ
20 18 19 sstri ⊒ ( 1 ... 𝐽 ) βŠ† ℝ
21 20 sseli ⊒ ( π‘˜ ∈ ( 1 ... 𝐽 ) β†’ π‘˜ ∈ ℝ )
22 21 ltp1d ⊒ ( π‘˜ ∈ ( 1 ... 𝐽 ) β†’ π‘˜ < ( π‘˜ + 1 ) )
23 1red ⊒ ( π‘˜ ∈ ( 1 ... 𝐽 ) β†’ 1 ∈ ℝ )
24 21 23 readdcld ⊒ ( π‘˜ ∈ ( 1 ... 𝐽 ) β†’ ( π‘˜ + 1 ) ∈ ℝ )
25 21 24 ltnled ⊒ ( π‘˜ ∈ ( 1 ... 𝐽 ) β†’ ( π‘˜ < ( π‘˜ + 1 ) ↔ Β¬ ( π‘˜ + 1 ) ≀ π‘˜ ) )
26 22 25 mpbid ⊒ ( π‘˜ ∈ ( 1 ... 𝐽 ) β†’ Β¬ ( π‘˜ + 1 ) ≀ π‘˜ )
27 15 26 syl ⊒ ( ( πœ‘ ∧ ( ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ∧ βˆ€ 𝑗 ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } 𝑗 ≀ π‘˜ ) ) β†’ Β¬ ( π‘˜ + 1 ) ≀ π‘˜ )
28 simprr ⊒ ( ( πœ‘ ∧ ( ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ∧ βˆ€ 𝑗 ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } 𝑗 ≀ π‘˜ ) ) β†’ βˆ€ 𝑗 ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } 𝑗 ≀ π‘˜ )
29 9 adantr ⊒ ( ( πœ‘ ∧ π‘˜ = 𝐽 ) β†’ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝐽 ) < 0 )
30 simpr ⊒ ( ( πœ‘ ∧ π‘˜ = 𝐽 ) β†’ π‘˜ = 𝐽 )
31 30 fveq2d ⊒ ( ( πœ‘ ∧ π‘˜ = 𝐽 ) β†’ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) = ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝐽 ) )
32 31 breq1d ⊒ ( ( πœ‘ ∧ π‘˜ = 𝐽 ) β†’ ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) < 0 ↔ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝐽 ) < 0 ) )
33 elnnuz ⊒ ( 𝐽 ∈ β„• ↔ 𝐽 ∈ ( β„€β‰₯ β€˜ 1 ) )
34 7 33 sylib ⊒ ( πœ‘ β†’ 𝐽 ∈ ( β„€β‰₯ β€˜ 1 ) )
35 eluzfz2 ⊒ ( 𝐽 ∈ ( β„€β‰₯ β€˜ 1 ) β†’ 𝐽 ∈ ( 1 ... 𝐽 ) )
36 34 35 syl ⊒ ( πœ‘ β†’ 𝐽 ∈ ( 1 ... 𝐽 ) )
37 eleq1 ⊒ ( π‘˜ = 𝐽 β†’ ( π‘˜ ∈ ( 1 ... 𝐽 ) ↔ 𝐽 ∈ ( 1 ... 𝐽 ) ) )
38 36 37 syl5ibrcom ⊒ ( πœ‘ β†’ ( π‘˜ = 𝐽 β†’ π‘˜ ∈ ( 1 ... 𝐽 ) ) )
39 38 anc2li ⊒ ( πœ‘ β†’ ( π‘˜ = 𝐽 β†’ ( πœ‘ ∧ π‘˜ ∈ ( 1 ... 𝐽 ) ) ) )
40 1eluzge0 ⊒ 1 ∈ ( β„€β‰₯ β€˜ 0 )
41 fzss1 ⊒ ( 1 ∈ ( β„€β‰₯ β€˜ 0 ) β†’ ( 1 ... 𝐽 ) βŠ† ( 0 ... 𝐽 ) )
42 41 sseld ⊒ ( 1 ∈ ( β„€β‰₯ β€˜ 0 ) β†’ ( π‘˜ ∈ ( 1 ... 𝐽 ) β†’ π‘˜ ∈ ( 0 ... 𝐽 ) ) )
43 40 42 ax-mp ⊒ ( π‘˜ ∈ ( 1 ... 𝐽 ) β†’ π‘˜ ∈ ( 0 ... 𝐽 ) )
44 6 adantr ⊒ ( ( πœ‘ ∧ π‘˜ ∈ ( 0 ... 𝐽 ) ) β†’ 𝐢 ∈ 𝑂 )
45 elfzelz ⊒ ( π‘˜ ∈ ( 0 ... 𝐽 ) β†’ π‘˜ ∈ β„€ )
46 45 adantl ⊒ ( ( πœ‘ ∧ π‘˜ ∈ ( 0 ... 𝐽 ) ) β†’ π‘˜ ∈ β„€ )
47 1 2 3 4 5 44 46 ballotlemfelz ⊒ ( ( πœ‘ ∧ π‘˜ ∈ ( 0 ... 𝐽 ) ) β†’ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ∈ β„€ )
48 47 zred ⊒ ( ( πœ‘ ∧ π‘˜ ∈ ( 0 ... 𝐽 ) ) β†’ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ∈ ℝ )
49 0red ⊒ ( ( πœ‘ ∧ π‘˜ ∈ ( 0 ... 𝐽 ) ) β†’ 0 ∈ ℝ )
50 48 49 ltnled ⊒ ( ( πœ‘ ∧ π‘˜ ∈ ( 0 ... 𝐽 ) ) β†’ ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) < 0 ↔ Β¬ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) )
51 43 50 sylan2 ⊒ ( ( πœ‘ ∧ π‘˜ ∈ ( 1 ... 𝐽 ) ) β†’ ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) < 0 ↔ Β¬ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) )
52 39 51 syl6 ⊒ ( πœ‘ β†’ ( π‘˜ = 𝐽 β†’ ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) < 0 ↔ Β¬ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ) )
53 52 imp ⊒ ( ( πœ‘ ∧ π‘˜ = 𝐽 ) β†’ ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) < 0 ↔ Β¬ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) )
54 32 53 bitr3d ⊒ ( ( πœ‘ ∧ π‘˜ = 𝐽 ) β†’ ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝐽 ) < 0 ↔ Β¬ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) )
55 29 54 mpbid ⊒ ( ( πœ‘ ∧ π‘˜ = 𝐽 ) β†’ Β¬ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) )
56 55 ex ⊒ ( πœ‘ β†’ ( π‘˜ = 𝐽 β†’ Β¬ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) )
57 56 con2d ⊒ ( πœ‘ β†’ ( 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) β†’ Β¬ π‘˜ = 𝐽 ) )
58 nn1m1nn ⊒ ( 𝐽 ∈ β„• β†’ ( 𝐽 = 1 ∨ ( 𝐽 βˆ’ 1 ) ∈ β„• ) )
59 7 58 syl ⊒ ( πœ‘ β†’ ( 𝐽 = 1 ∨ ( 𝐽 βˆ’ 1 ) ∈ β„• ) )
60 8 adantr ⊒ ( ( πœ‘ ∧ 𝐽 = 1 ) β†’ βˆƒ 𝑖 ∈ ( 1 ... 𝐽 ) 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) )
61 oveq1 ⊒ ( 𝐽 = 1 β†’ ( 𝐽 ... 𝐽 ) = ( 1 ... 𝐽 ) )
62 61 adantl ⊒ ( ( πœ‘ ∧ 𝐽 = 1 ) β†’ ( 𝐽 ... 𝐽 ) = ( 1 ... 𝐽 ) )
63 7 nnzd ⊒ ( πœ‘ β†’ 𝐽 ∈ β„€ )
64 fzsn ⊒ ( 𝐽 ∈ β„€ β†’ ( 𝐽 ... 𝐽 ) = { 𝐽 } )
65 63 64 syl ⊒ ( πœ‘ β†’ ( 𝐽 ... 𝐽 ) = { 𝐽 } )
66 65 adantr ⊒ ( ( πœ‘ ∧ 𝐽 = 1 ) β†’ ( 𝐽 ... 𝐽 ) = { 𝐽 } )
67 62 66 eqtr3d ⊒ ( ( πœ‘ ∧ 𝐽 = 1 ) β†’ ( 1 ... 𝐽 ) = { 𝐽 } )
68 67 rexeqdv ⊒ ( ( πœ‘ ∧ 𝐽 = 1 ) β†’ ( βˆƒ 𝑖 ∈ ( 1 ... 𝐽 ) 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) ↔ βˆƒ 𝑖 ∈ { 𝐽 } 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) ) )
69 60 68 mpbid ⊒ ( ( πœ‘ ∧ 𝐽 = 1 ) β†’ βˆƒ 𝑖 ∈ { 𝐽 } 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) )
70 fveq2 ⊒ ( 𝑖 = 𝐽 β†’ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) = ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝐽 ) )
71 70 breq2d ⊒ ( 𝑖 = 𝐽 β†’ ( 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) ↔ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝐽 ) ) )
72 71 rexsng ⊒ ( 𝐽 ∈ β„• β†’ ( βˆƒ 𝑖 ∈ { 𝐽 } 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) ↔ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝐽 ) ) )
73 7 72 syl ⊒ ( πœ‘ β†’ ( βˆƒ 𝑖 ∈ { 𝐽 } 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) ↔ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝐽 ) ) )
74 73 adantr ⊒ ( ( πœ‘ ∧ 𝐽 = 1 ) β†’ ( βˆƒ 𝑖 ∈ { 𝐽 } 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) ↔ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝐽 ) ) )
75 69 74 mpbid ⊒ ( ( πœ‘ ∧ 𝐽 = 1 ) β†’ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝐽 ) )
76 9 adantr ⊒ ( ( πœ‘ ∧ 𝐽 = 1 ) β†’ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝐽 ) < 0 )
77 1 2 3 4 5 6 63 ballotlemfelz ⊒ ( πœ‘ β†’ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝐽 ) ∈ β„€ )
78 77 zred ⊒ ( πœ‘ β†’ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝐽 ) ∈ ℝ )
79 0red ⊒ ( πœ‘ β†’ 0 ∈ ℝ )
80 78 79 ltnled ⊒ ( πœ‘ β†’ ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝐽 ) < 0 ↔ Β¬ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝐽 ) ) )
81 80 adantr ⊒ ( ( πœ‘ ∧ 𝐽 = 1 ) β†’ ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝐽 ) < 0 ↔ Β¬ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝐽 ) ) )
82 76 81 mpbid ⊒ ( ( πœ‘ ∧ 𝐽 = 1 ) β†’ Β¬ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝐽 ) )
83 75 82 pm2.65da ⊒ ( πœ‘ β†’ Β¬ 𝐽 = 1 )
84 biortn ⊒ ( Β¬ 𝐽 = 1 β†’ ( ( 𝐽 βˆ’ 1 ) ∈ β„• ↔ ( Β¬ Β¬ 𝐽 = 1 ∨ ( 𝐽 βˆ’ 1 ) ∈ β„• ) ) )
85 83 84 syl ⊒ ( πœ‘ β†’ ( ( 𝐽 βˆ’ 1 ) ∈ β„• ↔ ( Β¬ Β¬ 𝐽 = 1 ∨ ( 𝐽 βˆ’ 1 ) ∈ β„• ) ) )
86 notnotb ⊒ ( 𝐽 = 1 ↔ Β¬ Β¬ 𝐽 = 1 )
87 86 orbi1i ⊒ ( ( 𝐽 = 1 ∨ ( 𝐽 βˆ’ 1 ) ∈ β„• ) ↔ ( Β¬ Β¬ 𝐽 = 1 ∨ ( 𝐽 βˆ’ 1 ) ∈ β„• ) )
88 85 87 bitr4di ⊒ ( πœ‘ β†’ ( ( 𝐽 βˆ’ 1 ) ∈ β„• ↔ ( 𝐽 = 1 ∨ ( 𝐽 βˆ’ 1 ) ∈ β„• ) ) )
89 59 88 mpbird ⊒ ( πœ‘ β†’ ( 𝐽 βˆ’ 1 ) ∈ β„• )
90 elnnuz ⊒ ( ( 𝐽 βˆ’ 1 ) ∈ β„• ↔ ( 𝐽 βˆ’ 1 ) ∈ ( β„€β‰₯ β€˜ 1 ) )
91 89 90 sylib ⊒ ( πœ‘ β†’ ( 𝐽 βˆ’ 1 ) ∈ ( β„€β‰₯ β€˜ 1 ) )
92 elfzp1 ⊒ ( ( 𝐽 βˆ’ 1 ) ∈ ( β„€β‰₯ β€˜ 1 ) β†’ ( π‘˜ ∈ ( 1 ... ( ( 𝐽 βˆ’ 1 ) + 1 ) ) ↔ ( π‘˜ ∈ ( 1 ... ( 𝐽 βˆ’ 1 ) ) ∨ π‘˜ = ( ( 𝐽 βˆ’ 1 ) + 1 ) ) ) )
93 91 92 syl ⊒ ( πœ‘ β†’ ( π‘˜ ∈ ( 1 ... ( ( 𝐽 βˆ’ 1 ) + 1 ) ) ↔ ( π‘˜ ∈ ( 1 ... ( 𝐽 βˆ’ 1 ) ) ∨ π‘˜ = ( ( 𝐽 βˆ’ 1 ) + 1 ) ) ) )
94 7 nncnd ⊒ ( πœ‘ β†’ 𝐽 ∈ β„‚ )
95 1cnd ⊒ ( πœ‘ β†’ 1 ∈ β„‚ )
96 94 95 npcand ⊒ ( πœ‘ β†’ ( ( 𝐽 βˆ’ 1 ) + 1 ) = 𝐽 )
97 96 oveq2d ⊒ ( πœ‘ β†’ ( 1 ... ( ( 𝐽 βˆ’ 1 ) + 1 ) ) = ( 1 ... 𝐽 ) )
98 97 eleq2d ⊒ ( πœ‘ β†’ ( π‘˜ ∈ ( 1 ... ( ( 𝐽 βˆ’ 1 ) + 1 ) ) ↔ π‘˜ ∈ ( 1 ... 𝐽 ) ) )
99 96 eqeq2d ⊒ ( πœ‘ β†’ ( π‘˜ = ( ( 𝐽 βˆ’ 1 ) + 1 ) ↔ π‘˜ = 𝐽 ) )
100 99 orbi2d ⊒ ( πœ‘ β†’ ( ( π‘˜ ∈ ( 1 ... ( 𝐽 βˆ’ 1 ) ) ∨ π‘˜ = ( ( 𝐽 βˆ’ 1 ) + 1 ) ) ↔ ( π‘˜ ∈ ( 1 ... ( 𝐽 βˆ’ 1 ) ) ∨ π‘˜ = 𝐽 ) ) )
101 93 98 100 3bitr3d ⊒ ( πœ‘ β†’ ( π‘˜ ∈ ( 1 ... 𝐽 ) ↔ ( π‘˜ ∈ ( 1 ... ( 𝐽 βˆ’ 1 ) ) ∨ π‘˜ = 𝐽 ) ) )
102 orcom ⊒ ( ( π‘˜ ∈ ( 1 ... ( 𝐽 βˆ’ 1 ) ) ∨ π‘˜ = 𝐽 ) ↔ ( π‘˜ = 𝐽 ∨ π‘˜ ∈ ( 1 ... ( 𝐽 βˆ’ 1 ) ) ) )
103 101 102 bitrdi ⊒ ( πœ‘ β†’ ( π‘˜ ∈ ( 1 ... 𝐽 ) ↔ ( π‘˜ = 𝐽 ∨ π‘˜ ∈ ( 1 ... ( 𝐽 βˆ’ 1 ) ) ) ) )
104 103 biimpd ⊒ ( πœ‘ β†’ ( π‘˜ ∈ ( 1 ... 𝐽 ) β†’ ( π‘˜ = 𝐽 ∨ π‘˜ ∈ ( 1 ... ( 𝐽 βˆ’ 1 ) ) ) ) )
105 pm5.6 ⊒ ( ( ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ Β¬ π‘˜ = 𝐽 ) β†’ π‘˜ ∈ ( 1 ... ( 𝐽 βˆ’ 1 ) ) ) ↔ ( π‘˜ ∈ ( 1 ... 𝐽 ) β†’ ( π‘˜ = 𝐽 ∨ π‘˜ ∈ ( 1 ... ( 𝐽 βˆ’ 1 ) ) ) ) )
106 104 105 sylibr ⊒ ( πœ‘ β†’ ( ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ Β¬ π‘˜ = 𝐽 ) β†’ π‘˜ ∈ ( 1 ... ( 𝐽 βˆ’ 1 ) ) ) )
107 89 nnzd ⊒ ( πœ‘ β†’ ( 𝐽 βˆ’ 1 ) ∈ β„€ )
108 1z ⊒ 1 ∈ β„€
109 107 108 jctil ⊒ ( πœ‘ β†’ ( 1 ∈ β„€ ∧ ( 𝐽 βˆ’ 1 ) ∈ β„€ ) )
110 elfzelz ⊒ ( π‘˜ ∈ ( 1 ... ( 𝐽 βˆ’ 1 ) ) β†’ π‘˜ ∈ β„€ )
111 110 108 jctir ⊒ ( π‘˜ ∈ ( 1 ... ( 𝐽 βˆ’ 1 ) ) β†’ ( π‘˜ ∈ β„€ ∧ 1 ∈ β„€ ) )
112 fzaddel ⊒ ( ( ( 1 ∈ β„€ ∧ ( 𝐽 βˆ’ 1 ) ∈ β„€ ) ∧ ( π‘˜ ∈ β„€ ∧ 1 ∈ β„€ ) ) β†’ ( π‘˜ ∈ ( 1 ... ( 𝐽 βˆ’ 1 ) ) ↔ ( π‘˜ + 1 ) ∈ ( ( 1 + 1 ) ... ( ( 𝐽 βˆ’ 1 ) + 1 ) ) ) )
113 109 111 112 syl2an ⊒ ( ( πœ‘ ∧ π‘˜ ∈ ( 1 ... ( 𝐽 βˆ’ 1 ) ) ) β†’ ( π‘˜ ∈ ( 1 ... ( 𝐽 βˆ’ 1 ) ) ↔ ( π‘˜ + 1 ) ∈ ( ( 1 + 1 ) ... ( ( 𝐽 βˆ’ 1 ) + 1 ) ) ) )
114 113 biimp3a ⊒ ( ( πœ‘ ∧ π‘˜ ∈ ( 1 ... ( 𝐽 βˆ’ 1 ) ) ∧ π‘˜ ∈ ( 1 ... ( 𝐽 βˆ’ 1 ) ) ) β†’ ( π‘˜ + 1 ) ∈ ( ( 1 + 1 ) ... ( ( 𝐽 βˆ’ 1 ) + 1 ) ) )
115 114 3anidm23 ⊒ ( ( πœ‘ ∧ π‘˜ ∈ ( 1 ... ( 𝐽 βˆ’ 1 ) ) ) β†’ ( π‘˜ + 1 ) ∈ ( ( 1 + 1 ) ... ( ( 𝐽 βˆ’ 1 ) + 1 ) ) )
116 1p1e2 ⊒ ( 1 + 1 ) = 2
117 116 a1i ⊒ ( πœ‘ β†’ ( 1 + 1 ) = 2 )
118 117 96 oveq12d ⊒ ( πœ‘ β†’ ( ( 1 + 1 ) ... ( ( 𝐽 βˆ’ 1 ) + 1 ) ) = ( 2 ... 𝐽 ) )
119 118 eleq2d ⊒ ( πœ‘ β†’ ( ( π‘˜ + 1 ) ∈ ( ( 1 + 1 ) ... ( ( 𝐽 βˆ’ 1 ) + 1 ) ) ↔ ( π‘˜ + 1 ) ∈ ( 2 ... 𝐽 ) ) )
120 2eluzge1 ⊒ 2 ∈ ( β„€β‰₯ β€˜ 1 )
121 fzss1 ⊒ ( 2 ∈ ( β„€β‰₯ β€˜ 1 ) β†’ ( 2 ... 𝐽 ) βŠ† ( 1 ... 𝐽 ) )
122 120 121 ax-mp ⊒ ( 2 ... 𝐽 ) βŠ† ( 1 ... 𝐽 )
123 122 sseli ⊒ ( ( π‘˜ + 1 ) ∈ ( 2 ... 𝐽 ) β†’ ( π‘˜ + 1 ) ∈ ( 1 ... 𝐽 ) )
124 119 123 syl6bi ⊒ ( πœ‘ β†’ ( ( π‘˜ + 1 ) ∈ ( ( 1 + 1 ) ... ( ( 𝐽 βˆ’ 1 ) + 1 ) ) β†’ ( π‘˜ + 1 ) ∈ ( 1 ... 𝐽 ) ) )
125 124 adantr ⊒ ( ( πœ‘ ∧ π‘˜ ∈ ( 1 ... ( 𝐽 βˆ’ 1 ) ) ) β†’ ( ( π‘˜ + 1 ) ∈ ( ( 1 + 1 ) ... ( ( 𝐽 βˆ’ 1 ) + 1 ) ) β†’ ( π‘˜ + 1 ) ∈ ( 1 ... 𝐽 ) ) )
126 115 125 mpd ⊒ ( ( πœ‘ ∧ π‘˜ ∈ ( 1 ... ( 𝐽 βˆ’ 1 ) ) ) β†’ ( π‘˜ + 1 ) ∈ ( 1 ... 𝐽 ) )
127 126 ex ⊒ ( πœ‘ β†’ ( π‘˜ ∈ ( 1 ... ( 𝐽 βˆ’ 1 ) ) β†’ ( π‘˜ + 1 ) ∈ ( 1 ... 𝐽 ) ) )
128 106 127 syld ⊒ ( πœ‘ β†’ ( ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ Β¬ π‘˜ = 𝐽 ) β†’ ( π‘˜ + 1 ) ∈ ( 1 ... 𝐽 ) ) )
129 57 128 sylan2d ⊒ ( πœ‘ β†’ ( ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) β†’ ( π‘˜ + 1 ) ∈ ( 1 ... 𝐽 ) ) )
130 129 imp ⊒ ( ( πœ‘ ∧ ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ) β†’ ( π‘˜ + 1 ) ∈ ( 1 ... 𝐽 ) )
131 130 adantrr ⊒ ( ( πœ‘ ∧ ( ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ∧ βˆ€ 𝑗 ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } 𝑗 ≀ π‘˜ ) ) β†’ ( π‘˜ + 1 ) ∈ ( 1 ... 𝐽 ) )
132 fveq2 ⊒ ( 𝑖 = ( π‘˜ + 1 ) β†’ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) = ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) )
133 132 breq2d ⊒ ( 𝑖 = ( π‘˜ + 1 ) β†’ ( 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) ↔ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) ) )
134 133 elrab ⊒ ( ( π‘˜ + 1 ) ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } ↔ ( ( π‘˜ + 1 ) ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) ) )
135 breq1 ⊒ ( 𝑗 = ( π‘˜ + 1 ) β†’ ( 𝑗 ≀ π‘˜ ↔ ( π‘˜ + 1 ) ≀ π‘˜ ) )
136 135 rspccva ⊒ ( ( βˆ€ 𝑗 ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } 𝑗 ≀ π‘˜ ∧ ( π‘˜ + 1 ) ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } ) β†’ ( π‘˜ + 1 ) ≀ π‘˜ )
137 134 136 sylan2br ⊒ ( ( βˆ€ 𝑗 ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } 𝑗 ≀ π‘˜ ∧ ( ( π‘˜ + 1 ) ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) ) ) β†’ ( π‘˜ + 1 ) ≀ π‘˜ )
138 137 expr ⊒ ( ( βˆ€ 𝑗 ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } 𝑗 ≀ π‘˜ ∧ ( π‘˜ + 1 ) ∈ ( 1 ... 𝐽 ) ) β†’ ( 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) β†’ ( π‘˜ + 1 ) ≀ π‘˜ ) )
139 138 con3d ⊒ ( ( βˆ€ 𝑗 ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } 𝑗 ≀ π‘˜ ∧ ( π‘˜ + 1 ) ∈ ( 1 ... 𝐽 ) ) β†’ ( Β¬ ( π‘˜ + 1 ) ≀ π‘˜ β†’ Β¬ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) ) )
140 28 131 139 syl2anc ⊒ ( ( πœ‘ ∧ ( ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ∧ βˆ€ 𝑗 ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } 𝑗 ≀ π‘˜ ) ) β†’ ( Β¬ ( π‘˜ + 1 ) ≀ π‘˜ β†’ Β¬ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) ) )
141 27 140 mpd ⊒ ( ( πœ‘ ∧ ( ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ∧ βˆ€ 𝑗 ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } 𝑗 ≀ π‘˜ ) ) β†’ Β¬ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) )
142 simplrr ⊒ ( ( ( πœ‘ ∧ ( ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ∧ βˆ€ 𝑗 ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } 𝑗 ≀ π‘˜ ) ) ∧ ( π‘˜ + 1 ) ∈ 𝐢 ) β†’ βˆ€ 𝑗 ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } 𝑗 ≀ π‘˜ )
143 131 adantr ⊒ ( ( ( πœ‘ ∧ ( ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ∧ βˆ€ 𝑗 ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } 𝑗 ≀ π‘˜ ) ) ∧ ( π‘˜ + 1 ) ∈ 𝐢 ) β†’ ( π‘˜ + 1 ) ∈ ( 1 ... 𝐽 ) )
144 0red ⊒ ( ( ( πœ‘ ∧ ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ) ∧ ( π‘˜ + 1 ) ∈ 𝐢 ) β†’ 0 ∈ ℝ )
145 simpll ⊒ ( ( ( πœ‘ ∧ ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ) ∧ ( π‘˜ + 1 ) ∈ 𝐢 ) β†’ πœ‘ )
146 130 adantr ⊒ ( ( ( πœ‘ ∧ ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ) ∧ ( π‘˜ + 1 ) ∈ 𝐢 ) β†’ ( π‘˜ + 1 ) ∈ ( 1 ... 𝐽 ) )
147 41 sseld ⊒ ( 1 ∈ ( β„€β‰₯ β€˜ 0 ) β†’ ( ( π‘˜ + 1 ) ∈ ( 1 ... 𝐽 ) β†’ ( π‘˜ + 1 ) ∈ ( 0 ... 𝐽 ) ) )
148 40 146 147 mpsyl ⊒ ( ( ( πœ‘ ∧ ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ) ∧ ( π‘˜ + 1 ) ∈ 𝐢 ) β†’ ( π‘˜ + 1 ) ∈ ( 0 ... 𝐽 ) )
149 6 adantr ⊒ ( ( πœ‘ ∧ ( π‘˜ + 1 ) ∈ ( 0 ... 𝐽 ) ) β†’ 𝐢 ∈ 𝑂 )
150 elfzelz ⊒ ( ( π‘˜ + 1 ) ∈ ( 0 ... 𝐽 ) β†’ ( π‘˜ + 1 ) ∈ β„€ )
151 150 adantl ⊒ ( ( πœ‘ ∧ ( π‘˜ + 1 ) ∈ ( 0 ... 𝐽 ) ) β†’ ( π‘˜ + 1 ) ∈ β„€ )
152 1 2 3 4 5 149 151 ballotlemfelz ⊒ ( ( πœ‘ ∧ ( π‘˜ + 1 ) ∈ ( 0 ... 𝐽 ) ) β†’ ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) ∈ β„€ )
153 152 zred ⊒ ( ( πœ‘ ∧ ( π‘˜ + 1 ) ∈ ( 0 ... 𝐽 ) ) β†’ ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) ∈ ℝ )
154 145 148 153 syl2anc ⊒ ( ( ( πœ‘ ∧ ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ) ∧ ( π‘˜ + 1 ) ∈ 𝐢 ) β†’ ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) ∈ ℝ )
155 simplrr ⊒ ( ( ( πœ‘ ∧ ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ) ∧ ( π‘˜ + 1 ) ∈ 𝐢 ) β†’ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) )
156 14 adantr ⊒ ( ( ( πœ‘ ∧ ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ) ∧ ( π‘˜ + 1 ) ∈ 𝐢 ) β†’ π‘˜ ∈ ( 1 ... 𝐽 ) )
157 156 43 syl ⊒ ( ( ( πœ‘ ∧ ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ) ∧ ( π‘˜ + 1 ) ∈ 𝐢 ) β†’ π‘˜ ∈ ( 0 ... 𝐽 ) )
158 129 imdistani ⊒ ( ( πœ‘ ∧ ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ) β†’ ( πœ‘ ∧ ( π‘˜ + 1 ) ∈ ( 1 ... 𝐽 ) ) )
159 6 adantr ⊒ ( ( πœ‘ ∧ ( π‘˜ + 1 ) ∈ ( 1 ... 𝐽 ) ) β†’ 𝐢 ∈ 𝑂 )
160 elfznn ⊒ ( ( π‘˜ + 1 ) ∈ ( 1 ... 𝐽 ) β†’ ( π‘˜ + 1 ) ∈ β„• )
161 160 adantl ⊒ ( ( πœ‘ ∧ ( π‘˜ + 1 ) ∈ ( 1 ... 𝐽 ) ) β†’ ( π‘˜ + 1 ) ∈ β„• )
162 1 2 3 4 5 159 161 ballotlemfp1 ⊒ ( ( πœ‘ ∧ ( π‘˜ + 1 ) ∈ ( 1 ... 𝐽 ) ) β†’ ( ( Β¬ ( π‘˜ + 1 ) ∈ 𝐢 β†’ ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) = ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( ( π‘˜ + 1 ) βˆ’ 1 ) ) βˆ’ 1 ) ) ∧ ( ( π‘˜ + 1 ) ∈ 𝐢 β†’ ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) = ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( ( π‘˜ + 1 ) βˆ’ 1 ) ) + 1 ) ) ) )
163 162 simprd ⊒ ( ( πœ‘ ∧ ( π‘˜ + 1 ) ∈ ( 1 ... 𝐽 ) ) β†’ ( ( π‘˜ + 1 ) ∈ 𝐢 β†’ ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) = ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( ( π‘˜ + 1 ) βˆ’ 1 ) ) + 1 ) ) )
164 163 imp ⊒ ( ( ( πœ‘ ∧ ( π‘˜ + 1 ) ∈ ( 1 ... 𝐽 ) ) ∧ ( π‘˜ + 1 ) ∈ 𝐢 ) β†’ ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) = ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( ( π‘˜ + 1 ) βˆ’ 1 ) ) + 1 ) )
165 158 164 sylan ⊒ ( ( ( πœ‘ ∧ ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ) ∧ ( π‘˜ + 1 ) ∈ 𝐢 ) β†’ ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) = ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( ( π‘˜ + 1 ) βˆ’ 1 ) ) + 1 ) )
166 elfzelz ⊒ ( π‘˜ ∈ ( 1 ... 𝐽 ) β†’ π‘˜ ∈ β„€ )
167 166 zcnd ⊒ ( π‘˜ ∈ ( 1 ... 𝐽 ) β†’ π‘˜ ∈ β„‚ )
168 1cnd ⊒ ( π‘˜ ∈ ( 1 ... 𝐽 ) β†’ 1 ∈ β„‚ )
169 167 168 pncand ⊒ ( π‘˜ ∈ ( 1 ... 𝐽 ) β†’ ( ( π‘˜ + 1 ) βˆ’ 1 ) = π‘˜ )
170 169 fveq2d ⊒ ( π‘˜ ∈ ( 1 ... 𝐽 ) β†’ ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( ( π‘˜ + 1 ) βˆ’ 1 ) ) = ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) )
171 170 oveq1d ⊒ ( π‘˜ ∈ ( 1 ... 𝐽 ) β†’ ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( ( π‘˜ + 1 ) βˆ’ 1 ) ) + 1 ) = ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) + 1 ) )
172 171 eqeq2d ⊒ ( π‘˜ ∈ ( 1 ... 𝐽 ) β†’ ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) = ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( ( π‘˜ + 1 ) βˆ’ 1 ) ) + 1 ) ↔ ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) = ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) + 1 ) ) )
173 156 172 syl ⊒ ( ( ( πœ‘ ∧ ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ) ∧ ( π‘˜ + 1 ) ∈ 𝐢 ) β†’ ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) = ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( ( π‘˜ + 1 ) βˆ’ 1 ) ) + 1 ) ↔ ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) = ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) + 1 ) ) )
174 165 173 mpbid ⊒ ( ( ( πœ‘ ∧ ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ) ∧ ( π‘˜ + 1 ) ∈ 𝐢 ) β†’ ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) = ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) + 1 ) )
175 0z ⊒ 0 ∈ β„€
176 zleltp1 ⊒ ( ( 0 ∈ β„€ ∧ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ∈ β„€ ) β†’ ( 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ↔ 0 < ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) + 1 ) ) )
177 175 47 176 sylancr ⊒ ( ( πœ‘ ∧ π‘˜ ∈ ( 0 ... 𝐽 ) ) β†’ ( 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ↔ 0 < ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) + 1 ) ) )
178 177 adantr ⊒ ( ( ( πœ‘ ∧ π‘˜ ∈ ( 0 ... 𝐽 ) ) ∧ ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) = ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) + 1 ) ) β†’ ( 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ↔ 0 < ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) + 1 ) ) )
179 breq2 ⊒ ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) = ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) + 1 ) β†’ ( 0 < ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) ↔ 0 < ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) + 1 ) ) )
180 179 adantl ⊒ ( ( ( πœ‘ ∧ π‘˜ ∈ ( 0 ... 𝐽 ) ) ∧ ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) = ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) + 1 ) ) β†’ ( 0 < ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) ↔ 0 < ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) + 1 ) ) )
181 178 180 bitr4d ⊒ ( ( ( πœ‘ ∧ π‘˜ ∈ ( 0 ... 𝐽 ) ) ∧ ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) = ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) + 1 ) ) β†’ ( 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ↔ 0 < ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) ) )
182 145 157 174 181 syl21anc ⊒ ( ( ( πœ‘ ∧ ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ) ∧ ( π‘˜ + 1 ) ∈ 𝐢 ) β†’ ( 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ↔ 0 < ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) ) )
183 155 182 mpbid ⊒ ( ( ( πœ‘ ∧ ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ) ∧ ( π‘˜ + 1 ) ∈ 𝐢 ) β†’ 0 < ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) )
184 144 154 183 ltled ⊒ ( ( ( πœ‘ ∧ ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ) ∧ ( π‘˜ + 1 ) ∈ 𝐢 ) β†’ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) )
185 184 adantlrr ⊒ ( ( ( πœ‘ ∧ ( ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ∧ βˆ€ 𝑗 ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } 𝑗 ≀ π‘˜ ) ) ∧ ( π‘˜ + 1 ) ∈ 𝐢 ) β†’ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) )
186 142 143 185 137 syl12anc ⊒ ( ( ( πœ‘ ∧ ( ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ∧ βˆ€ 𝑗 ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } 𝑗 ≀ π‘˜ ) ) ∧ ( π‘˜ + 1 ) ∈ 𝐢 ) β†’ ( π‘˜ + 1 ) ≀ π‘˜ )
187 27 186 mtand ⊒ ( ( πœ‘ ∧ ( ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ∧ βˆ€ 𝑗 ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } 𝑗 ≀ π‘˜ ) ) β†’ Β¬ ( π‘˜ + 1 ) ∈ 𝐢 )
188 162 simpld ⊒ ( ( πœ‘ ∧ ( π‘˜ + 1 ) ∈ ( 1 ... 𝐽 ) ) β†’ ( Β¬ ( π‘˜ + 1 ) ∈ 𝐢 β†’ ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) = ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( ( π‘˜ + 1 ) βˆ’ 1 ) ) βˆ’ 1 ) ) )
189 188 imp ⊒ ( ( ( πœ‘ ∧ ( π‘˜ + 1 ) ∈ ( 1 ... 𝐽 ) ) ∧ Β¬ ( π‘˜ + 1 ) ∈ 𝐢 ) β†’ ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) = ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( ( π‘˜ + 1 ) βˆ’ 1 ) ) βˆ’ 1 ) )
190 158 189 sylan ⊒ ( ( ( πœ‘ ∧ ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ) ∧ Β¬ ( π‘˜ + 1 ) ∈ 𝐢 ) β†’ ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) = ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( ( π‘˜ + 1 ) βˆ’ 1 ) ) βˆ’ 1 ) )
191 14 adantr ⊒ ( ( ( πœ‘ ∧ ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ) ∧ Β¬ ( π‘˜ + 1 ) ∈ 𝐢 ) β†’ π‘˜ ∈ ( 1 ... 𝐽 ) )
192 170 oveq1d ⊒ ( π‘˜ ∈ ( 1 ... 𝐽 ) β†’ ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( ( π‘˜ + 1 ) βˆ’ 1 ) ) βˆ’ 1 ) = ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) βˆ’ 1 ) )
193 192 eqeq2d ⊒ ( π‘˜ ∈ ( 1 ... 𝐽 ) β†’ ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) = ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( ( π‘˜ + 1 ) βˆ’ 1 ) ) βˆ’ 1 ) ↔ ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) = ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) βˆ’ 1 ) ) )
194 191 193 syl ⊒ ( ( ( πœ‘ ∧ ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ) ∧ Β¬ ( π‘˜ + 1 ) ∈ 𝐢 ) β†’ ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) = ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( ( π‘˜ + 1 ) βˆ’ 1 ) ) βˆ’ 1 ) ↔ ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) = ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) βˆ’ 1 ) ) )
195 190 194 mpbid ⊒ ( ( ( πœ‘ ∧ ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ) ∧ Β¬ ( π‘˜ + 1 ) ∈ 𝐢 ) β†’ ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) = ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) βˆ’ 1 ) )
196 195 adantlrr ⊒ ( ( ( πœ‘ ∧ ( ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ∧ βˆ€ 𝑗 ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } 𝑗 ≀ π‘˜ ) ) ∧ Β¬ ( π‘˜ + 1 ) ∈ 𝐢 ) β†’ ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) = ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) βˆ’ 1 ) )
197 187 196 mpdan ⊒ ( ( πœ‘ ∧ ( ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ∧ βˆ€ 𝑗 ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } 𝑗 ≀ π‘˜ ) ) β†’ ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) = ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) βˆ’ 1 ) )
198 breq2 ⊒ ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) = ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) βˆ’ 1 ) β†’ ( 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) ↔ 0 ≀ ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) βˆ’ 1 ) ) )
199 198 notbid ⊒ ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) = ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) βˆ’ 1 ) β†’ ( Β¬ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) ↔ Β¬ 0 ≀ ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) βˆ’ 1 ) ) )
200 197 199 syl ⊒ ( ( πœ‘ ∧ ( ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ∧ βˆ€ 𝑗 ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } 𝑗 ≀ π‘˜ ) ) β†’ ( Β¬ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ ( π‘˜ + 1 ) ) ↔ Β¬ 0 ≀ ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) βˆ’ 1 ) ) )
201 141 200 mpbid ⊒ ( ( πœ‘ ∧ ( ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ∧ βˆ€ 𝑗 ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } 𝑗 ≀ π‘˜ ) ) β†’ Β¬ 0 ≀ ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) βˆ’ 1 ) )
202 14 43 syl ⊒ ( ( πœ‘ ∧ ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ) β†’ π‘˜ ∈ ( 0 ... 𝐽 ) )
203 202 47 syldan ⊒ ( ( πœ‘ ∧ ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ) β†’ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ∈ β„€ )
204 203 adantrr ⊒ ( ( πœ‘ ∧ ( ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ∧ βˆ€ 𝑗 ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } 𝑗 ≀ π‘˜ ) ) β†’ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ∈ β„€ )
205 zlem1lt ⊒ ( ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ∈ β„€ ∧ 0 ∈ β„€ ) β†’ ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ≀ 0 ↔ ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) βˆ’ 1 ) < 0 ) )
206 175 205 mpan2 ⊒ ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ∈ β„€ β†’ ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ≀ 0 ↔ ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) βˆ’ 1 ) < 0 ) )
207 zre ⊒ ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ∈ β„€ β†’ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ∈ ℝ )
208 1red ⊒ ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ∈ β„€ β†’ 1 ∈ ℝ )
209 207 208 resubcld ⊒ ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ∈ β„€ β†’ ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) βˆ’ 1 ) ∈ ℝ )
210 0red ⊒ ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ∈ β„€ β†’ 0 ∈ ℝ )
211 209 210 ltnled ⊒ ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ∈ β„€ β†’ ( ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) βˆ’ 1 ) < 0 ↔ Β¬ 0 ≀ ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) βˆ’ 1 ) ) )
212 206 211 bitrd ⊒ ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ∈ β„€ β†’ ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ≀ 0 ↔ Β¬ 0 ≀ ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) βˆ’ 1 ) ) )
213 204 212 syl ⊒ ( ( πœ‘ ∧ ( ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ∧ βˆ€ 𝑗 ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } 𝑗 ≀ π‘˜ ) ) β†’ ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ≀ 0 ↔ Β¬ 0 ≀ ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) βˆ’ 1 ) ) )
214 201 213 mpbird ⊒ ( ( πœ‘ ∧ ( ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ∧ βˆ€ 𝑗 ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } 𝑗 ≀ π‘˜ ) ) β†’ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ≀ 0 )
215 simprlr ⊒ ( ( πœ‘ ∧ ( ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ∧ βˆ€ 𝑗 ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } 𝑗 ≀ π‘˜ ) ) β†’ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) )
216 204 zred ⊒ ( ( πœ‘ ∧ ( ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ∧ βˆ€ 𝑗 ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } 𝑗 ≀ π‘˜ ) ) β†’ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ∈ ℝ )
217 0red ⊒ ( ( πœ‘ ∧ ( ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ∧ βˆ€ 𝑗 ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } 𝑗 ≀ π‘˜ ) ) β†’ 0 ∈ ℝ )
218 216 217 letri3d ⊒ ( ( πœ‘ ∧ ( ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ∧ βˆ€ 𝑗 ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } 𝑗 ≀ π‘˜ ) ) β†’ ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) = 0 ↔ ( ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ≀ 0 ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ) )
219 214 215 218 mpbir2and ⊒ ( ( πœ‘ ∧ ( ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) ) ∧ βˆ€ 𝑗 ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } 𝑗 ≀ π‘˜ ) ) β†’ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) = 0 )
220 13 219 sylan2b ⊒ ( ( πœ‘ ∧ ( π‘˜ ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } ∧ βˆ€ 𝑗 ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } 𝑗 ≀ π‘˜ ) ) β†’ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) = 0 )
221 ssrab2 ⊒ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } βŠ† ( 1 ... 𝐽 )
222 221 20 sstri ⊒ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } βŠ† ℝ
223 222 a1i ⊒ ( πœ‘ β†’ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } βŠ† ℝ )
224 fzfi ⊒ ( 1 ... 𝐽 ) ∈ Fin
225 ssfi ⊒ ( ( ( 1 ... 𝐽 ) ∈ Fin ∧ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } βŠ† ( 1 ... 𝐽 ) ) β†’ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } ∈ Fin )
226 224 221 225 mp2an ⊒ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } ∈ Fin
227 226 a1i ⊒ ( πœ‘ β†’ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } ∈ Fin )
228 rabn0 ⊒ ( { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } β‰  βˆ… ↔ βˆƒ 𝑖 ∈ ( 1 ... 𝐽 ) 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) )
229 8 228 sylibr ⊒ ( πœ‘ β†’ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } β‰  βˆ… )
230 fimaxre ⊒ ( ( { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } βŠ† ℝ ∧ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } ∈ Fin ∧ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } β‰  βˆ… ) β†’ βˆƒ π‘˜ ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } βˆ€ 𝑗 ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } 𝑗 ≀ π‘˜ )
231 223 227 229 230 syl3anc ⊒ ( πœ‘ β†’ βˆƒ π‘˜ ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } βˆ€ 𝑗 ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } 𝑗 ≀ π‘˜ )
232 220 231 reximddv ⊒ ( πœ‘ β†’ βˆƒ π‘˜ ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) = 0 )
233 elrabi ⊒ ( π‘˜ ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } β†’ π‘˜ ∈ ( 1 ... 𝐽 ) )
234 233 anim1i ⊒ ( ( π‘˜ ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } ∧ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) = 0 ) β†’ ( π‘˜ ∈ ( 1 ... 𝐽 ) ∧ ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) = 0 ) )
235 234 reximi2 ⊒ ( βˆƒ π‘˜ ∈ { 𝑖 ∈ ( 1 ... 𝐽 ) ∣ 0 ≀ ( ( 𝐹 β€˜ 𝐢 ) β€˜ 𝑖 ) } ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) = 0 β†’ βˆƒ π‘˜ ∈ ( 1 ... 𝐽 ) ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) = 0 )
236 232 235 syl ⊒ ( πœ‘ β†’ βˆƒ π‘˜ ∈ ( 1 ... 𝐽 ) ( ( 𝐹 β€˜ 𝐢 ) β€˜ π‘˜ ) = 0 )