Step | Hyp | Ref
| Expression |
1 | | ballotth.m |
. . . . 5
⊢ 𝑀 ∈ ℕ |
2 | | ballotth.n |
. . . . 5
⊢ 𝑁 ∈ ℕ |
3 | | ballotth.o |
. . . . 5
⊢ 𝑂 = {𝑐 ∈ 𝒫 (1...(𝑀 + 𝑁)) ∣ (#‘𝑐) = 𝑀} |
4 | | ballotth.p |
. . . . 5
⊢ 𝑃 = (𝑥 ∈ 𝒫 𝑂 ↦ ((#‘𝑥) / (#‘𝑂))) |
5 | | ballotth.f |
. . . . 5
⊢ 𝐹 = (𝑐 ∈ 𝑂 ↦ (𝑖 ∈ ℤ ↦ ((#‘((1...𝑖) ∩ 𝑐)) − (#‘((1...𝑖) ∖ 𝑐))))) |
6 | | ballotth.e |
. . . . 5
⊢ 𝐸 = {𝑐 ∈ 𝑂 ∣ ∀𝑖 ∈ (1...(𝑀 + 𝑁))0 < ((𝐹‘𝑐)‘𝑖)} |
7 | | ballotth.mgtn |
. . . . 5
⊢ 𝑁 < 𝑀 |
8 | | ballotth.i |
. . . . 5
⊢ 𝐼 = (𝑐 ∈ (𝑂 ∖ 𝐸) ↦ inf({𝑘 ∈ (1...(𝑀 + 𝑁)) ∣ ((𝐹‘𝑐)‘𝑘) = 0}, ℝ, < )) |
9 | | ballotth.s |
. . . . 5
⊢ 𝑆 = (𝑐 ∈ (𝑂 ∖ 𝐸) ↦ (𝑖 ∈ (1...(𝑀 + 𝑁)) ↦ if(𝑖 ≤ (𝐼‘𝑐), (((𝐼‘𝑐) + 1) − 𝑖), 𝑖))) |
10 | 1, 2, 3, 4, 5, 6, 7, 8, 9 | ballotlemsval 29897 |
. . . 4
⊢ (𝐶 ∈ (𝑂 ∖ 𝐸) → (𝑆‘𝐶) = (𝑖 ∈ (1...(𝑀 + 𝑁)) ↦ if(𝑖 ≤ (𝐼‘𝐶), (((𝐼‘𝐶) + 1) − 𝑖), 𝑖))) |
11 | 1, 2, 3, 4, 5, 6, 7, 8, 9 | ballotlemsv 29898 |
. . . . 5
⊢ ((𝐶 ∈ (𝑂 ∖ 𝐸) ∧ 𝑖 ∈ (1...(𝑀 + 𝑁))) → ((𝑆‘𝐶)‘𝑖) = if(𝑖 ≤ (𝐼‘𝐶), (((𝐼‘𝐶) + 1) − 𝑖), 𝑖)) |
12 | 1, 2, 3, 4, 5, 6, 7, 8, 9 | ballotlemsdom 29900 |
. . . . 5
⊢ ((𝐶 ∈ (𝑂 ∖ 𝐸) ∧ 𝑖 ∈ (1...(𝑀 + 𝑁))) → ((𝑆‘𝐶)‘𝑖) ∈ (1...(𝑀 + 𝑁))) |
13 | 11, 12 | eqeltrrd 2689 |
. . . 4
⊢ ((𝐶 ∈ (𝑂 ∖ 𝐸) ∧ 𝑖 ∈ (1...(𝑀 + 𝑁))) → if(𝑖 ≤ (𝐼‘𝐶), (((𝐼‘𝐶) + 1) − 𝑖), 𝑖) ∈ (1...(𝑀 + 𝑁))) |
14 | 1, 2, 3, 4, 5, 6, 7, 8, 9 | ballotlemsv 29898 |
. . . . 5
⊢ ((𝐶 ∈ (𝑂 ∖ 𝐸) ∧ 𝑗 ∈ (1...(𝑀 + 𝑁))) → ((𝑆‘𝐶)‘𝑗) = if(𝑗 ≤ (𝐼‘𝐶), (((𝐼‘𝐶) + 1) − 𝑗), 𝑗)) |
15 | 1, 2, 3, 4, 5, 6, 7, 8, 9 | ballotlemsdom 29900 |
. . . . 5
⊢ ((𝐶 ∈ (𝑂 ∖ 𝐸) ∧ 𝑗 ∈ (1...(𝑀 + 𝑁))) → ((𝑆‘𝐶)‘𝑗) ∈ (1...(𝑀 + 𝑁))) |
16 | 14, 15 | eqeltrrd 2689 |
. . . 4
⊢ ((𝐶 ∈ (𝑂 ∖ 𝐸) ∧ 𝑗 ∈ (1...(𝑀 + 𝑁))) → if(𝑗 ≤ (𝐼‘𝐶), (((𝐼‘𝐶) + 1) − 𝑗), 𝑗) ∈ (1...(𝑀 + 𝑁))) |
17 | | oveq2 6557 |
. . . . . 6
⊢ (𝑖 = (((𝐼‘𝐶) + 1) − 𝑗) → (((𝐼‘𝐶) + 1) − 𝑖) = (((𝐼‘𝐶) + 1) − (((𝐼‘𝐶) + 1) − 𝑗))) |
18 | | id 22 |
. . . . . 6
⊢ (𝑖 = 𝑗 → 𝑖 = 𝑗) |
19 | | breq1 4586 |
. . . . . 6
⊢ (𝑖 = (((𝐼‘𝐶) + 1) − 𝑗) → (𝑖 ≤ (𝐼‘𝐶) ↔ (((𝐼‘𝐶) + 1) − 𝑗) ≤ (𝐼‘𝐶))) |
20 | | breq1 4586 |
. . . . . 6
⊢ (𝑖 = 𝑗 → (𝑖 ≤ (𝐼‘𝐶) ↔ 𝑗 ≤ (𝐼‘𝐶))) |
21 | 1, 2, 3, 4, 5, 6, 7, 8 | ballotlemiex 29890 |
. . . . . . . . . . . 12
⊢ (𝐶 ∈ (𝑂 ∖ 𝐸) → ((𝐼‘𝐶) ∈ (1...(𝑀 + 𝑁)) ∧ ((𝐹‘𝐶)‘(𝐼‘𝐶)) = 0)) |
22 | 21 | simpld 474 |
. . . . . . . . . . 11
⊢ (𝐶 ∈ (𝑂 ∖ 𝐸) → (𝐼‘𝐶) ∈ (1...(𝑀 + 𝑁))) |
23 | | elfzelz 12213 |
. . . . . . . . . . . 12
⊢ ((𝐼‘𝐶) ∈ (1...(𝑀 + 𝑁)) → (𝐼‘𝐶) ∈ ℤ) |
24 | 23 | peano2zd 11361 |
. . . . . . . . . . 11
⊢ ((𝐼‘𝐶) ∈ (1...(𝑀 + 𝑁)) → ((𝐼‘𝐶) + 1) ∈ ℤ) |
25 | 22, 24 | syl 17 |
. . . . . . . . . 10
⊢ (𝐶 ∈ (𝑂 ∖ 𝐸) → ((𝐼‘𝐶) + 1) ∈ ℤ) |
26 | 25 | zcnd 11359 |
. . . . . . . . 9
⊢ (𝐶 ∈ (𝑂 ∖ 𝐸) → ((𝐼‘𝐶) + 1) ∈ ℂ) |
27 | 26 | adantr 480 |
. . . . . . . 8
⊢ ((𝐶 ∈ (𝑂 ∖ 𝐸) ∧ (𝑖 ∈ (1...(𝑀 + 𝑁)) ∧ 𝑗 ∈ (1...(𝑀 + 𝑁)))) → ((𝐼‘𝐶) + 1) ∈ ℂ) |
28 | | elfzelz 12213 |
. . . . . . . . . 10
⊢ (𝑗 ∈ (1...(𝑀 + 𝑁)) → 𝑗 ∈ ℤ) |
29 | 28 | zcnd 11359 |
. . . . . . . . 9
⊢ (𝑗 ∈ (1...(𝑀 + 𝑁)) → 𝑗 ∈ ℂ) |
30 | 29 | ad2antll 761 |
. . . . . . . 8
⊢ ((𝐶 ∈ (𝑂 ∖ 𝐸) ∧ (𝑖 ∈ (1...(𝑀 + 𝑁)) ∧ 𝑗 ∈ (1...(𝑀 + 𝑁)))) → 𝑗 ∈ ℂ) |
31 | 27, 30 | nncand 10276 |
. . . . . . 7
⊢ ((𝐶 ∈ (𝑂 ∖ 𝐸) ∧ (𝑖 ∈ (1...(𝑀 + 𝑁)) ∧ 𝑗 ∈ (1...(𝑀 + 𝑁)))) → (((𝐼‘𝐶) + 1) − (((𝐼‘𝐶) + 1) − 𝑗)) = 𝑗) |
32 | 31 | eqcomd 2616 |
. . . . . 6
⊢ ((𝐶 ∈ (𝑂 ∖ 𝐸) ∧ (𝑖 ∈ (1...(𝑀 + 𝑁)) ∧ 𝑗 ∈ (1...(𝑀 + 𝑁)))) → 𝑗 = (((𝐼‘𝐶) + 1) − (((𝐼‘𝐶) + 1) − 𝑗))) |
33 | 22, 23 | syl 17 |
. . . . . . . . 9
⊢ (𝐶 ∈ (𝑂 ∖ 𝐸) → (𝐼‘𝐶) ∈ ℤ) |
34 | 33 | adantr 480 |
. . . . . . . 8
⊢ ((𝐶 ∈ (𝑂 ∖ 𝐸) ∧ (𝑖 ∈ (1...(𝑀 + 𝑁)) ∧ 𝑗 ∈ (1...(𝑀 + 𝑁)))) → (𝐼‘𝐶) ∈ ℤ) |
35 | | elfznn 12241 |
. . . . . . . . 9
⊢ (𝑗 ∈ (1...(𝑀 + 𝑁)) → 𝑗 ∈ ℕ) |
36 | 35 | ad2antll 761 |
. . . . . . . 8
⊢ ((𝐶 ∈ (𝑂 ∖ 𝐸) ∧ (𝑖 ∈ (1...(𝑀 + 𝑁)) ∧ 𝑗 ∈ (1...(𝑀 + 𝑁)))) → 𝑗 ∈ ℕ) |
37 | 34, 36 | ltesubnnd 28955 |
. . . . . . 7
⊢ ((𝐶 ∈ (𝑂 ∖ 𝐸) ∧ (𝑖 ∈ (1...(𝑀 + 𝑁)) ∧ 𝑗 ∈ (1...(𝑀 + 𝑁)))) → (((𝐼‘𝐶) + 1) − 𝑗) ≤ (𝐼‘𝐶)) |
38 | 37 | adantr 480 |
. . . . . 6
⊢ (((𝐶 ∈ (𝑂 ∖ 𝐸) ∧ (𝑖 ∈ (1...(𝑀 + 𝑁)) ∧ 𝑗 ∈ (1...(𝑀 + 𝑁)))) ∧ 𝑗 ≤ (𝐼‘𝐶)) → (((𝐼‘𝐶) + 1) − 𝑗) ≤ (𝐼‘𝐶)) |
39 | | vex 3176 |
. . . . . . 7
⊢ 𝑗 ∈ V |
40 | 39 | a1i 11 |
. . . . . 6
⊢ ((𝐶 ∈ (𝑂 ∖ 𝐸) ∧ (𝑖 ∈ (1...(𝑀 + 𝑁)) ∧ 𝑗 ∈ (1...(𝑀 + 𝑁)))) → 𝑗 ∈ V) |
41 | | ovex 6577 |
. . . . . . 7
⊢ (((𝐼‘𝐶) + 1) − 𝑗) ∈ V |
42 | 41 | a1i 11 |
. . . . . 6
⊢ ((𝐶 ∈ (𝑂 ∖ 𝐸) ∧ (𝑖 ∈ (1...(𝑀 + 𝑁)) ∧ 𝑗 ∈ (1...(𝑀 + 𝑁)))) → (((𝐼‘𝐶) + 1) − 𝑗) ∈ V) |
43 | 17, 18, 19, 20, 32, 38, 40, 42 | ifeqeqx 28745 |
. . . . 5
⊢ (((𝐶 ∈ (𝑂 ∖ 𝐸) ∧ (𝑖 ∈ (1...(𝑀 + 𝑁)) ∧ 𝑗 ∈ (1...(𝑀 + 𝑁)))) ∧ 𝑖 = if(𝑗 ≤ (𝐼‘𝐶), (((𝐼‘𝐶) + 1) − 𝑗), 𝑗)) → 𝑗 = if(𝑖 ≤ (𝐼‘𝐶), (((𝐼‘𝐶) + 1) − 𝑖), 𝑖)) |
44 | | oveq2 6557 |
. . . . . 6
⊢ (𝑗 = (((𝐼‘𝐶) + 1) − 𝑖) → (((𝐼‘𝐶) + 1) − 𝑗) = (((𝐼‘𝐶) + 1) − (((𝐼‘𝐶) + 1) − 𝑖))) |
45 | | id 22 |
. . . . . 6
⊢ (𝑗 = 𝑖 → 𝑗 = 𝑖) |
46 | | breq1 4586 |
. . . . . 6
⊢ (𝑗 = (((𝐼‘𝐶) + 1) − 𝑖) → (𝑗 ≤ (𝐼‘𝐶) ↔ (((𝐼‘𝐶) + 1) − 𝑖) ≤ (𝐼‘𝐶))) |
47 | | breq1 4586 |
. . . . . 6
⊢ (𝑗 = 𝑖 → (𝑗 ≤ (𝐼‘𝐶) ↔ 𝑖 ≤ (𝐼‘𝐶))) |
48 | | elfzelz 12213 |
. . . . . . . . . 10
⊢ (𝑖 ∈ (1...(𝑀 + 𝑁)) → 𝑖 ∈ ℤ) |
49 | 48 | zcnd 11359 |
. . . . . . . . 9
⊢ (𝑖 ∈ (1...(𝑀 + 𝑁)) → 𝑖 ∈ ℂ) |
50 | 49 | ad2antrl 760 |
. . . . . . . 8
⊢ ((𝐶 ∈ (𝑂 ∖ 𝐸) ∧ (𝑖 ∈ (1...(𝑀 + 𝑁)) ∧ 𝑗 ∈ (1...(𝑀 + 𝑁)))) → 𝑖 ∈ ℂ) |
51 | 27, 50 | nncand 10276 |
. . . . . . 7
⊢ ((𝐶 ∈ (𝑂 ∖ 𝐸) ∧ (𝑖 ∈ (1...(𝑀 + 𝑁)) ∧ 𝑗 ∈ (1...(𝑀 + 𝑁)))) → (((𝐼‘𝐶) + 1) − (((𝐼‘𝐶) + 1) − 𝑖)) = 𝑖) |
52 | 51 | eqcomd 2616 |
. . . . . 6
⊢ ((𝐶 ∈ (𝑂 ∖ 𝐸) ∧ (𝑖 ∈ (1...(𝑀 + 𝑁)) ∧ 𝑗 ∈ (1...(𝑀 + 𝑁)))) → 𝑖 = (((𝐼‘𝐶) + 1) − (((𝐼‘𝐶) + 1) − 𝑖))) |
53 | 34 | adantr 480 |
. . . . . . 7
⊢ (((𝐶 ∈ (𝑂 ∖ 𝐸) ∧ (𝑖 ∈ (1...(𝑀 + 𝑁)) ∧ 𝑗 ∈ (1...(𝑀 + 𝑁)))) ∧ 𝑖 ≤ (𝐼‘𝐶)) → (𝐼‘𝐶) ∈ ℤ) |
54 | | simplrl 796 |
. . . . . . . 8
⊢ (((𝐶 ∈ (𝑂 ∖ 𝐸) ∧ (𝑖 ∈ (1...(𝑀 + 𝑁)) ∧ 𝑗 ∈ (1...(𝑀 + 𝑁)))) ∧ 𝑖 ≤ (𝐼‘𝐶)) → 𝑖 ∈ (1...(𝑀 + 𝑁))) |
55 | | elfznn 12241 |
. . . . . . . 8
⊢ (𝑖 ∈ (1...(𝑀 + 𝑁)) → 𝑖 ∈ ℕ) |
56 | 54, 55 | syl 17 |
. . . . . . 7
⊢ (((𝐶 ∈ (𝑂 ∖ 𝐸) ∧ (𝑖 ∈ (1...(𝑀 + 𝑁)) ∧ 𝑗 ∈ (1...(𝑀 + 𝑁)))) ∧ 𝑖 ≤ (𝐼‘𝐶)) → 𝑖 ∈ ℕ) |
57 | 53, 56 | ltesubnnd 28955 |
. . . . . 6
⊢ (((𝐶 ∈ (𝑂 ∖ 𝐸) ∧ (𝑖 ∈ (1...(𝑀 + 𝑁)) ∧ 𝑗 ∈ (1...(𝑀 + 𝑁)))) ∧ 𝑖 ≤ (𝐼‘𝐶)) → (((𝐼‘𝐶) + 1) − 𝑖) ≤ (𝐼‘𝐶)) |
58 | | vex 3176 |
. . . . . . 7
⊢ 𝑖 ∈ V |
59 | 58 | a1i 11 |
. . . . . 6
⊢ ((𝐶 ∈ (𝑂 ∖ 𝐸) ∧ (𝑖 ∈ (1...(𝑀 + 𝑁)) ∧ 𝑗 ∈ (1...(𝑀 + 𝑁)))) → 𝑖 ∈ V) |
60 | | ovex 6577 |
. . . . . . 7
⊢ (((𝐼‘𝐶) + 1) − 𝑖) ∈ V |
61 | 60 | a1i 11 |
. . . . . 6
⊢ ((𝐶 ∈ (𝑂 ∖ 𝐸) ∧ (𝑖 ∈ (1...(𝑀 + 𝑁)) ∧ 𝑗 ∈ (1...(𝑀 + 𝑁)))) → (((𝐼‘𝐶) + 1) − 𝑖) ∈ V) |
62 | 44, 45, 46, 47, 52, 57, 59, 61 | ifeqeqx 28745 |
. . . . 5
⊢ (((𝐶 ∈ (𝑂 ∖ 𝐸) ∧ (𝑖 ∈ (1...(𝑀 + 𝑁)) ∧ 𝑗 ∈ (1...(𝑀 + 𝑁)))) ∧ 𝑗 = if(𝑖 ≤ (𝐼‘𝐶), (((𝐼‘𝐶) + 1) − 𝑖), 𝑖)) → 𝑖 = if(𝑗 ≤ (𝐼‘𝐶), (((𝐼‘𝐶) + 1) − 𝑗), 𝑗)) |
63 | 43, 62 | impbida 873 |
. . . 4
⊢ ((𝐶 ∈ (𝑂 ∖ 𝐸) ∧ (𝑖 ∈ (1...(𝑀 + 𝑁)) ∧ 𝑗 ∈ (1...(𝑀 + 𝑁)))) → (𝑖 = if(𝑗 ≤ (𝐼‘𝐶), (((𝐼‘𝐶) + 1) − 𝑗), 𝑗) ↔ 𝑗 = if(𝑖 ≤ (𝐼‘𝐶), (((𝐼‘𝐶) + 1) − 𝑖), 𝑖))) |
64 | 10, 13, 16, 63 | f1o3d 28813 |
. . 3
⊢ (𝐶 ∈ (𝑂 ∖ 𝐸) → ((𝑆‘𝐶):(1...(𝑀 + 𝑁))–1-1-onto→(1...(𝑀 + 𝑁)) ∧ ◡(𝑆‘𝐶) = (𝑗 ∈ (1...(𝑀 + 𝑁)) ↦ if(𝑗 ≤ (𝐼‘𝐶), (((𝐼‘𝐶) + 1) − 𝑗), 𝑗)))) |
65 | 64 | simpld 474 |
. 2
⊢ (𝐶 ∈ (𝑂 ∖ 𝐸) → (𝑆‘𝐶):(1...(𝑀 + 𝑁))–1-1-onto→(1...(𝑀 + 𝑁))) |
66 | | oveq2 6557 |
. . . . . 6
⊢ (𝑖 = 𝑗 → (((𝐼‘𝐶) + 1) − 𝑖) = (((𝐼‘𝐶) + 1) − 𝑗)) |
67 | 20, 66, 18 | ifbieq12d 4063 |
. . . . 5
⊢ (𝑖 = 𝑗 → if(𝑖 ≤ (𝐼‘𝐶), (((𝐼‘𝐶) + 1) − 𝑖), 𝑖) = if(𝑗 ≤ (𝐼‘𝐶), (((𝐼‘𝐶) + 1) − 𝑗), 𝑗)) |
68 | 67 | cbvmptv 4678 |
. . . 4
⊢ (𝑖 ∈ (1...(𝑀 + 𝑁)) ↦ if(𝑖 ≤ (𝐼‘𝐶), (((𝐼‘𝐶) + 1) − 𝑖), 𝑖)) = (𝑗 ∈ (1...(𝑀 + 𝑁)) ↦ if(𝑗 ≤ (𝐼‘𝐶), (((𝐼‘𝐶) + 1) − 𝑗), 𝑗)) |
69 | 68 | a1i 11 |
. . 3
⊢ (𝐶 ∈ (𝑂 ∖ 𝐸) → (𝑖 ∈ (1...(𝑀 + 𝑁)) ↦ if(𝑖 ≤ (𝐼‘𝐶), (((𝐼‘𝐶) + 1) − 𝑖), 𝑖)) = (𝑗 ∈ (1...(𝑀 + 𝑁)) ↦ if(𝑗 ≤ (𝐼‘𝐶), (((𝐼‘𝐶) + 1) − 𝑗), 𝑗))) |
70 | 64 | simprd 478 |
. . 3
⊢ (𝐶 ∈ (𝑂 ∖ 𝐸) → ◡(𝑆‘𝐶) = (𝑗 ∈ (1...(𝑀 + 𝑁)) ↦ if(𝑗 ≤ (𝐼‘𝐶), (((𝐼‘𝐶) + 1) − 𝑗), 𝑗))) |
71 | 69, 10, 70 | 3eqtr4rd 2655 |
. 2
⊢ (𝐶 ∈ (𝑂 ∖ 𝐸) → ◡(𝑆‘𝐶) = (𝑆‘𝐶)) |
72 | 65, 71 | jca 553 |
1
⊢ (𝐶 ∈ (𝑂 ∖ 𝐸) → ((𝑆‘𝐶):(1...(𝑀 + 𝑁))–1-1-onto→(1...(𝑀 + 𝑁)) ∧ ◡(𝑆‘𝐶) = (𝑆‘𝐶))) |