ballotth - Mathbox for Thierry Arnoux

	Mathbox for Thierry Arnoux		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > ballotth		Structured version Visualization version GIF version

Theorem ballotth 34835

Description: Bertrand's ballot problem : the probability that A is ahead throughout the counting. The proof formalized here is a proof "by reflection", as opposed to other known proofs "by induction" or "by permutation". This is Metamath 100 proof #30. (Contributed by Thierry Arnoux, 7-Dec-2016.)

**Hypotheses**
Ref	Expression
ballotth.m	⊢ 𝑀 ∈ ℕ
ballotth.n	⊢ 𝑁 ∈ ℕ
ballotth.o	⊢ 𝑂 = {𝑐 ∈ 𝒫 (1...(𝑀 + 𝑁)) ∣ (♯‘𝑐) = 𝑀}
ballotth.p	⊢ 𝑃 = (𝑥 ∈ 𝒫 𝑂 ↦ ((♯‘𝑥) / (♯‘𝑂)))
ballotth.f	⊢ 𝐹 = (𝑐 ∈ 𝑂 ↦ (𝑖 ∈ ℤ ↦ ((♯‘((1...𝑖) ∩ 𝑐)) − (♯‘((1...𝑖) ∖ 𝑐)))))
ballotth.e	⊢ 𝐸 = {𝑐 ∈ 𝑂 ∣ ∀𝑖 ∈ (1...(𝑀 + 𝑁))0 < ((𝐹‘𝑐)‘𝑖)}
ballotth.mgtn	⊢ 𝑁 < 𝑀
ballotth.i	⊢ 𝐼 = (𝑐 ∈ (𝑂 ∖ 𝐸) ↦ inf({𝑘 ∈ (1...(𝑀 + 𝑁)) ∣ ((𝐹‘𝑐)‘𝑘) = 0}, ℝ, < ))
ballotth.s	⊢ 𝑆 = (𝑐 ∈ (𝑂 ∖ 𝐸) ↦ (𝑖 ∈ (1...(𝑀 + 𝑁)) ↦ if(𝑖 ≤ (𝐼‘𝑐), (((𝐼‘𝑐) + 1) − 𝑖), 𝑖)))
ballotth.r	⊢ 𝑅 = (𝑐 ∈ (𝑂 ∖ 𝐸) ↦ ((𝑆‘𝑐) “ 𝑐))

**Assertion**
Ref	Expression
ballotth	⊢ (𝑃‘𝐸) = ((𝑀 − 𝑁) / (𝑀 + 𝑁))

Distinct variable groups: 𝑀,𝑐 𝑁,𝑐 𝑂,𝑐 𝑖,𝑀 𝑖,𝑁 𝑖,𝑂 𝑘,𝑀 𝑘,𝑁 𝑘,𝑂 𝑖,𝑐,𝐹,𝑘 𝑖,𝐸,𝑘 𝑘,𝐼,𝑐 𝐸,𝑐 𝑖,𝐼,𝑐 𝑆,𝑘,𝑖,𝑐 𝑅,𝑖,𝑘 𝑥,𝑐,𝐹 𝑥,𝑀 𝑥,𝑁,𝑘,𝑖 𝑥,𝐸 𝑥,𝑂 Allowed substitution hints: 𝑃(𝑥,𝑖,𝑘,𝑐) 𝑅(𝑥,𝑐) 𝑆(𝑥) 𝐼(𝑥)

**Proof of Theorem ballotth**
Step	Hyp	Ref	Expression
1		ballotth.e	. . . . . 6 ⊢ 𝐸 = {𝑐 ∈ 𝑂 ∣ ∀𝑖 ∈ (1...(𝑀 + 𝑁))0 < ((𝐹‘𝑐)‘𝑖)}
2		ssrab2 4033	. . . . . 6 ⊢ {𝑐 ∈ 𝑂 ∣ ∀𝑖 ∈ (1...(𝑀 + 𝑁))0 < ((𝐹‘𝑐)‘𝑖)} ⊆ 𝑂
3	1, 2	eqsstri 3982	. . . . 5 ⊢ 𝐸 ⊆ 𝑂
4		fzfi 13985	. . . . . . . . . . 11 ⊢ (1...(𝑀 + 𝑁)) ∈ Fin
5		pwfi 9263	. . . . . . . . . . 11 ⊢ ((1...(𝑀 + 𝑁)) ∈ Fin ↔ 𝒫 (1...(𝑀 + 𝑁)) ∈ Fin)
6	4, 5	mpbi 232	. . . . . . . . . 10 ⊢ 𝒫 (1...(𝑀 + 𝑁)) ∈ Fin
7		ballotth.o	. . . . . . . . . . 11 ⊢ 𝑂 = {𝑐 ∈ 𝒫 (1...(𝑀 + 𝑁)) ∣ (♯‘𝑐) = 𝑀}
8		ssrab2 4033	. . . . . . . . . . 11 ⊢ {𝑐 ∈ 𝒫 (1...(𝑀 + 𝑁)) ∣ (♯‘𝑐) = 𝑀} ⊆ 𝒫 (1...(𝑀 + 𝑁))
9	7, 8	eqsstri 3982	. . . . . . . . . 10 ⊢ 𝑂 ⊆ 𝒫 (1...(𝑀 + 𝑁))
10		ssfi 9141	. . . . . . . . . 10 ⊢ ((𝒫 (1...(𝑀 + 𝑁)) ∈ Fin ∧ 𝑂 ⊆ 𝒫 (1...(𝑀 + 𝑁))) → 𝑂 ∈ Fin)
11	6, 9, 10	mp2an 702	. . . . . . . . 9 ⊢ 𝑂 ∈ Fin
12		ssfi 9141	. . . . . . . . 9 ⊢ ((𝑂 ∈ Fin ∧ 𝐸 ⊆ 𝑂) → 𝐸 ∈ Fin)
13	11, 3, 12	mp2an 702	. . . . . . . 8 ⊢ 𝐸 ∈ Fin
14	13	elexi 3476	. . . . . . 7 ⊢ 𝐸 ∈ V
15	14	elpw 4559	. . . . . 6 ⊢ (𝐸 ∈ 𝒫 𝑂 ↔ 𝐸 ⊆ 𝑂)
16		fveq2 6867	. . . . . . . 8 ⊢ (𝑥 = 𝐸 → (♯‘𝑥) = (♯‘𝐸))
17	16	oveq1d 7411	. . . . . . 7 ⊢ (𝑥 = 𝐸 → ((♯‘𝑥) / (♯‘𝑂)) = ((♯‘𝐸) / (♯‘𝑂)))
18		ballotth.p	. . . . . . 7 ⊢ 𝑃 = (𝑥 ∈ 𝒫 𝑂 ↦ ((♯‘𝑥) / (♯‘𝑂)))
19		ovex 7429	. . . . . . 7 ⊢ ((♯‘𝐸) / (♯‘𝑂)) ∈ V
20	17, 18, 19	fvmpt 6975	. . . . . 6 ⊢ (𝐸 ∈ 𝒫 𝑂 → (𝑃‘𝐸) = ((♯‘𝐸) / (♯‘𝑂)))
21	15, 20	sylbir 237	. . . . 5 ⊢ (𝐸 ⊆ 𝑂 → (𝑃‘𝐸) = ((♯‘𝐸) / (♯‘𝑂)))
22	3, 21	ax-mp 5	. . . 4 ⊢ (𝑃‘𝐸) = ((♯‘𝐸) / (♯‘𝑂))
23		hashssdif 14425	. . . . . . . 8 ⊢ ((𝑂 ∈ Fin ∧ 𝐸 ⊆ 𝑂) → (♯‘(𝑂 ∖ 𝐸)) = ((♯‘𝑂) − (♯‘𝐸)))
24	11, 3, 23	mp2an 702	. . . . . . 7 ⊢ (♯‘(𝑂 ∖ 𝐸)) = ((♯‘𝑂) − (♯‘𝐸))
25	24	eqcomi 2771	. . . . . 6 ⊢ ((♯‘𝑂) − (♯‘𝐸)) = (♯‘(𝑂 ∖ 𝐸))
26		hashcl 14369	. . . . . . . . 9 ⊢ (𝑂 ∈ Fin → (♯‘𝑂) ∈ ℕ₀)
27	11, 26	ax-mp 5	. . . . . . . 8 ⊢ (♯‘𝑂) ∈ ℕ₀
28	27	nn0cni 12493	. . . . . . 7 ⊢ (♯‘𝑂) ∈ ℂ
29		hashcl 14369	. . . . . . . . 9 ⊢ (𝐸 ∈ Fin → (♯‘𝐸) ∈ ℕ₀)
30	13, 29	ax-mp 5	. . . . . . . 8 ⊢ (♯‘𝐸) ∈ ℕ₀
31	30	nn0cni 12493	. . . . . . 7 ⊢ (♯‘𝐸) ∈ ℂ
32		difss 4089	. . . . . . . . . 10 ⊢ (𝑂 ∖ 𝐸) ⊆ 𝑂
33		ssfi 9141	. . . . . . . . . 10 ⊢ ((𝑂 ∈ Fin ∧ (𝑂 ∖ 𝐸) ⊆ 𝑂) → (𝑂 ∖ 𝐸) ∈ Fin)
34	11, 32, 33	mp2an 702	. . . . . . . . 9 ⊢ (𝑂 ∖ 𝐸) ∈ Fin
35		hashcl 14369	. . . . . . . . 9 ⊢ ((𝑂 ∖ 𝐸) ∈ Fin → (♯‘(𝑂 ∖ 𝐸)) ∈ ℕ₀)
36	34, 35	ax-mp 5	. . . . . . . 8 ⊢ (♯‘(𝑂 ∖ 𝐸)) ∈ ℕ₀
37	36	nn0cni 12493	. . . . . . 7 ⊢ (♯‘(𝑂 ∖ 𝐸)) ∈ ℂ
38	28, 31, 37	subsub23i 11521	. . . . . 6 ⊢ (((♯‘𝑂) − (♯‘𝐸)) = (♯‘(𝑂 ∖ 𝐸)) ↔ ((♯‘𝑂) − (♯‘(𝑂 ∖ 𝐸))) = (♯‘𝐸))
39	25, 38	mpbi 232	. . . . 5 ⊢ ((♯‘𝑂) − (♯‘(𝑂 ∖ 𝐸))) = (♯‘𝐸)
40	39	oveq1i 7406	. . . 4 ⊢ (((♯‘𝑂) − (♯‘(𝑂 ∖ 𝐸))) / (♯‘𝑂)) = ((♯‘𝐸) / (♯‘𝑂))
41	22, 40	eqtr4i 2788	. . 3 ⊢ (𝑃‘𝐸) = (((♯‘𝑂) − (♯‘(𝑂 ∖ 𝐸))) / (♯‘𝑂))
42		ballotth.m	. . . . . . 7 ⊢ 𝑀 ∈ ℕ
43		ballotth.n	. . . . . . 7 ⊢ 𝑁 ∈ ℕ
44	42, 43, 7	ballotlem1 34784	. . . . . 6 ⊢ (♯‘𝑂) = ((𝑀 + 𝑁)C𝑀)
45	42	nnnn0i 12489	. . . . . . . . 9 ⊢ 𝑀 ∈ ℕ₀
46		nnaddcl 12233	. . . . . . . . . . 11 ⊢ ((𝑀 ∈ ℕ ∧ 𝑁 ∈ ℕ) → (𝑀 + 𝑁) ∈ ℕ)
47	42, 43, 46	mp2an 702	. . . . . . . . . 10 ⊢ (𝑀 + 𝑁) ∈ ℕ
48	47	nnnn0i 12489	. . . . . . . . 9 ⊢ (𝑀 + 𝑁) ∈ ℕ₀
49	42	nnrei 12219	. . . . . . . . . 10 ⊢ 𝑀 ∈ ℝ
50	43	nnnn0i 12489	. . . . . . . . . 10 ⊢ 𝑁 ∈ ℕ₀
51	49, 50	nn0addge1i 12529	. . . . . . . . 9 ⊢ 𝑀 ≤ (𝑀 + 𝑁)
52		elfz2nn0 13623	. . . . . . . . 9 ⊢ (𝑀 ∈ (0...(𝑀 + 𝑁)) ↔ (𝑀 ∈ ℕ₀ ∧ (𝑀 + 𝑁) ∈ ℕ₀ ∧ 𝑀 ≤ (𝑀 + 𝑁)))
53	45, 48, 51, 52	mpbir3an 1355	. . . . . . . 8 ⊢ 𝑀 ∈ (0...(𝑀 + 𝑁))
54		bccl2 14336	. . . . . . . 8 ⊢ (𝑀 ∈ (0...(𝑀 + 𝑁)) → ((𝑀 + 𝑁)C𝑀) ∈ ℕ)
55	53, 54	ax-mp 5	. . . . . . 7 ⊢ ((𝑀 + 𝑁)C𝑀) ∈ ℕ
56	55	nnne0i 12253	. . . . . 6 ⊢ ((𝑀 + 𝑁)C𝑀) ≠ 0
57	44, 56	eqnetri 3027	. . . . 5 ⊢ (♯‘𝑂) ≠ 0
58	28, 57	pm3.2i 474	. . . 4 ⊢ ((♯‘𝑂) ∈ ℂ ∧ (♯‘𝑂) ≠ 0)
59		divsubdir 11884	. . . 4 ⊢ (((♯‘𝑂) ∈ ℂ ∧ (♯‘(𝑂 ∖ 𝐸)) ∈ ℂ ∧ ((♯‘𝑂) ∈ ℂ ∧ (♯‘𝑂) ≠ 0)) → (((♯‘𝑂) − (♯‘(𝑂 ∖ 𝐸))) / (♯‘𝑂)) = (((♯‘𝑂) / (♯‘𝑂)) − ((♯‘(𝑂 ∖ 𝐸)) / (♯‘𝑂))))
60	28, 37, 58, 59	mp3an 1482	. . 3 ⊢ (((♯‘𝑂) − (♯‘(𝑂 ∖ 𝐸))) / (♯‘𝑂)) = (((♯‘𝑂) / (♯‘𝑂)) − ((♯‘(𝑂 ∖ 𝐸)) / (♯‘𝑂)))
61	28, 57	dividi 11924	. . . 4 ⊢ ((♯‘𝑂) / (♯‘𝑂)) = 1
62	61	oveq1i 7406	. . 3 ⊢ (((♯‘𝑂) / (♯‘𝑂)) − ((♯‘(𝑂 ∖ 𝐸)) / (♯‘𝑂))) = (1 − ((♯‘(𝑂 ∖ 𝐸)) / (♯‘𝑂)))
63	41, 60, 62	3eqtri 2789	. 2 ⊢ (𝑃‘𝐸) = (1 − ((♯‘(𝑂 ∖ 𝐸)) / (♯‘𝑂)))
64		ballotth.f	. . . . . . 7 ⊢ 𝐹 = (𝑐 ∈ 𝑂 ↦ (𝑖 ∈ ℤ ↦ ((♯‘((1...𝑖) ∩ 𝑐)) − (♯‘((1...𝑖) ∖ 𝑐)))))
65		ballotth.mgtn	. . . . . . 7 ⊢ 𝑁 < 𝑀
66		ballotth.i	. . . . . . 7 ⊢ 𝐼 = (𝑐 ∈ (𝑂 ∖ 𝐸) ↦ inf({𝑘 ∈ (1...(𝑀 + 𝑁)) ∣ ((𝐹‘𝑐)‘𝑘) = 0}, ℝ, < ))
67		ballotth.s	. . . . . . 7 ⊢ 𝑆 = (𝑐 ∈ (𝑂 ∖ 𝐸) ↦ (𝑖 ∈ (1...(𝑀 + 𝑁)) ↦ if(𝑖 ≤ (𝐼‘𝑐), (((𝐼‘𝑐) + 1) − 𝑖), 𝑖)))
68		ballotth.r	. . . . . . 7 ⊢ 𝑅 = (𝑐 ∈ (𝑂 ∖ 𝐸) ↦ ((𝑆‘𝑐) “ 𝑐))
69	42, 43, 7, 18, 64, 1, 65, 66, 67, 68	ballotlem8 34834	. . . . . 6 ⊢ (♯‘{𝑐 ∈ (𝑂 ∖ 𝐸) ∣ 1 ∈ 𝑐}) = (♯‘{𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐})
70	69	oveq1i 7406	. . . . 5 ⊢ ((♯‘{𝑐 ∈ (𝑂 ∖ 𝐸) ∣ 1 ∈ 𝑐}) + (♯‘{𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐})) = ((♯‘{𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐}) + (♯‘{𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐}))
71	70	oveq1i 7406	. . . 4 ⊢ (((♯‘{𝑐 ∈ (𝑂 ∖ 𝐸) ∣ 1 ∈ 𝑐}) + (♯‘{𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐})) / (♯‘𝑂)) = (((♯‘{𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐}) + (♯‘{𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐})) / (♯‘𝑂))
72		rabxm 4344	. . . . . . 7 ⊢ (𝑂 ∖ 𝐸) = ({𝑐 ∈ (𝑂 ∖ 𝐸) ∣ 1 ∈ 𝑐} ∪ {𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐})
73	72	fveq2i 6870	. . . . . 6 ⊢ (♯‘(𝑂 ∖ 𝐸)) = (♯‘({𝑐 ∈ (𝑂 ∖ 𝐸) ∣ 1 ∈ 𝑐} ∪ {𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐}))
74		ssrab2 4033	. . . . . . . . . 10 ⊢ {𝑐 ∈ (𝑂 ∖ 𝐸) ∣ 1 ∈ 𝑐} ⊆ (𝑂 ∖ 𝐸)
75	74, 32	sstri 3945	. . . . . . . . 9 ⊢ {𝑐 ∈ (𝑂 ∖ 𝐸) ∣ 1 ∈ 𝑐} ⊆ 𝑂
76	75, 9	sstri 3945	. . . . . . . 8 ⊢ {𝑐 ∈ (𝑂 ∖ 𝐸) ∣ 1 ∈ 𝑐} ⊆ 𝒫 (1...(𝑀 + 𝑁))
77		ssfi 9141	. . . . . . . 8 ⊢ ((𝒫 (1...(𝑀 + 𝑁)) ∈ Fin ∧ {𝑐 ∈ (𝑂 ∖ 𝐸) ∣ 1 ∈ 𝑐} ⊆ 𝒫 (1...(𝑀 + 𝑁))) → {𝑐 ∈ (𝑂 ∖ 𝐸) ∣ 1 ∈ 𝑐} ∈ Fin)
78	6, 76, 77	mp2an 702	. . . . . . 7 ⊢ {𝑐 ∈ (𝑂 ∖ 𝐸) ∣ 1 ∈ 𝑐} ∈ Fin
79		ssrab2 4033	. . . . . . . . . 10 ⊢ {𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐} ⊆ (𝑂 ∖ 𝐸)
80	79, 32	sstri 3945	. . . . . . . . 9 ⊢ {𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐} ⊆ 𝑂
81	80, 9	sstri 3945	. . . . . . . 8 ⊢ {𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐} ⊆ 𝒫 (1...(𝑀 + 𝑁))
82		ssfi 9141	. . . . . . . 8 ⊢ ((𝒫 (1...(𝑀 + 𝑁)) ∈ Fin ∧ {𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐} ⊆ 𝒫 (1...(𝑀 + 𝑁))) → {𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐} ∈ Fin)
83	6, 81, 82	mp2an 702	. . . . . . 7 ⊢ {𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐} ∈ Fin
84		rabnc 4345	. . . . . . 7 ⊢ ({𝑐 ∈ (𝑂 ∖ 𝐸) ∣ 1 ∈ 𝑐} ∩ {𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐}) = ∅
85		hashun 14395	. . . . . . 7 ⊢ (({𝑐 ∈ (𝑂 ∖ 𝐸) ∣ 1 ∈ 𝑐} ∈ Fin ∧ {𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐} ∈ Fin ∧ ({𝑐 ∈ (𝑂 ∖ 𝐸) ∣ 1 ∈ 𝑐} ∩ {𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐}) = ∅) → (♯‘({𝑐 ∈ (𝑂 ∖ 𝐸) ∣ 1 ∈ 𝑐} ∪ {𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐})) = ((♯‘{𝑐 ∈ (𝑂 ∖ 𝐸) ∣ 1 ∈ 𝑐}) + (♯‘{𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐})))
86	78, 83, 84, 85	mp3an 1482	. . . . . 6 ⊢ (♯‘({𝑐 ∈ (𝑂 ∖ 𝐸) ∣ 1 ∈ 𝑐} ∪ {𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐})) = ((♯‘{𝑐 ∈ (𝑂 ∖ 𝐸) ∣ 1 ∈ 𝑐}) + (♯‘{𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐}))
87	73, 86	eqtri 2785	. . . . 5 ⊢ (♯‘(𝑂 ∖ 𝐸)) = ((♯‘{𝑐 ∈ (𝑂 ∖ 𝐸) ∣ 1 ∈ 𝑐}) + (♯‘{𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐}))
88	87	oveq1i 7406	. . . 4 ⊢ ((♯‘(𝑂 ∖ 𝐸)) / (♯‘𝑂)) = (((♯‘{𝑐 ∈ (𝑂 ∖ 𝐸) ∣ 1 ∈ 𝑐}) + (♯‘{𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐})) / (♯‘𝑂))
89		ssrab2 4033	. . . . . . . . 9 ⊢ {𝑐 ∈ 𝑂 ∣ ¬ 1 ∈ 𝑐} ⊆ 𝑂
90	11	elexi 3476	. . . . . . . . . 10 ⊢ 𝑂 ∈ V
91	90	elpw2 5290	. . . . . . . . 9 ⊢ ({𝑐 ∈ 𝑂 ∣ ¬ 1 ∈ 𝑐} ∈ 𝒫 𝑂 ↔ {𝑐 ∈ 𝑂 ∣ ¬ 1 ∈ 𝑐} ⊆ 𝑂)
92	89, 91	mpbir 233	. . . . . . . 8 ⊢ {𝑐 ∈ 𝑂 ∣ ¬ 1 ∈ 𝑐} ∈ 𝒫 𝑂
93		fveq2 6867	. . . . . . . . . 10 ⊢ (𝑥 = {𝑐 ∈ 𝑂 ∣ ¬ 1 ∈ 𝑐} → (♯‘𝑥) = (♯‘{𝑐 ∈ 𝑂 ∣ ¬ 1 ∈ 𝑐}))
94	93	oveq1d 7411	. . . . . . . . 9 ⊢ (𝑥 = {𝑐 ∈ 𝑂 ∣ ¬ 1 ∈ 𝑐} → ((♯‘𝑥) / (♯‘𝑂)) = ((♯‘{𝑐 ∈ 𝑂 ∣ ¬ 1 ∈ 𝑐}) / (♯‘𝑂)))
95		ovex 7429	. . . . . . . . 9 ⊢ ((♯‘{𝑐 ∈ 𝑂 ∣ ¬ 1 ∈ 𝑐}) / (♯‘𝑂)) ∈ V
96	94, 18, 95	fvmpt 6975	. . . . . . . 8 ⊢ ({𝑐 ∈ 𝑂 ∣ ¬ 1 ∈ 𝑐} ∈ 𝒫 𝑂 → (𝑃‘{𝑐 ∈ 𝑂 ∣ ¬ 1 ∈ 𝑐}) = ((♯‘{𝑐 ∈ 𝑂 ∣ ¬ 1 ∈ 𝑐}) / (♯‘𝑂)))
97	92, 96	ax-mp 5	. . . . . . 7 ⊢ (𝑃‘{𝑐 ∈ 𝑂 ∣ ¬ 1 ∈ 𝑐}) = ((♯‘{𝑐 ∈ 𝑂 ∣ ¬ 1 ∈ 𝑐}) / (♯‘𝑂))
98	42, 43, 7, 18	ballotlem2 34786	. . . . . . 7 ⊢ (𝑃‘{𝑐 ∈ 𝑂 ∣ ¬ 1 ∈ 𝑐}) = (𝑁 / (𝑀 + 𝑁))
99		nfrab1 3434	. . . . . . . . . . . 12 ⊢ Ⅎ𝑐{𝑐 ∈ 𝑂 ∣ ¬ 1 ∈ 𝑐}
100		nfrab1 3434	. . . . . . . . . . . 12 ⊢ Ⅎ𝑐{𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐}
101	99, 100	dfssf 3927	. . . . . . . . . . 11 ⊢ ({𝑐 ∈ 𝑂 ∣ ¬ 1 ∈ 𝑐} ⊆ {𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐} ↔ ∀𝑐(𝑐 ∈ {𝑐 ∈ 𝑂 ∣ ¬ 1 ∈ 𝑐} → 𝑐 ∈ {𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐}))
102	42, 43, 7, 18, 64, 1	ballotlem4 34796	. . . . . . . . . . . . . 14 ⊢ (𝑐 ∈ 𝑂 → (¬ 1 ∈ 𝑐 → ¬ 𝑐 ∈ 𝐸))
103	102	imdistani 576	. . . . . . . . . . . . 13 ⊢ ((𝑐 ∈ 𝑂 ∧ ¬ 1 ∈ 𝑐) → (𝑐 ∈ 𝑂 ∧ ¬ 𝑐 ∈ 𝐸))
104		rabid 3435	. . . . . . . . . . . . 13 ⊢ (𝑐 ∈ {𝑐 ∈ 𝑂 ∣ ¬ 1 ∈ 𝑐} ↔ (𝑐 ∈ 𝑂 ∧ ¬ 1 ∈ 𝑐))
105		eldif 3914	. . . . . . . . . . . . 13 ⊢ (𝑐 ∈ (𝑂 ∖ 𝐸) ↔ (𝑐 ∈ 𝑂 ∧ ¬ 𝑐 ∈ 𝐸))
106	103, 104, 105	3imtr4i 294	. . . . . . . . . . . 12 ⊢ (𝑐 ∈ {𝑐 ∈ 𝑂 ∣ ¬ 1 ∈ 𝑐} → 𝑐 ∈ (𝑂 ∖ 𝐸))
107	104	simprbi 501	. . . . . . . . . . . 12 ⊢ (𝑐 ∈ {𝑐 ∈ 𝑂 ∣ ¬ 1 ∈ 𝑐} → ¬ 1 ∈ 𝑐)
108		rabid 3435	. . . . . . . . . . . 12 ⊢ (𝑐 ∈ {𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐} ↔ (𝑐 ∈ (𝑂 ∖ 𝐸) ∧ ¬ 1 ∈ 𝑐))
109	106, 107, 108	sylanbrc 592	. . . . . . . . . . 11 ⊢ (𝑐 ∈ {𝑐 ∈ 𝑂 ∣ ¬ 1 ∈ 𝑐} → 𝑐 ∈ {𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐})
110	101, 109	mpgbir 1819	. . . . . . . . . 10 ⊢ {𝑐 ∈ 𝑂 ∣ ¬ 1 ∈ 𝑐} ⊆ {𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐}
111		rabss2 4030	. . . . . . . . . . 11 ⊢ ((𝑂 ∖ 𝐸) ⊆ 𝑂 → {𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐} ⊆ {𝑐 ∈ 𝑂 ∣ ¬ 1 ∈ 𝑐})
112	32, 111	ax-mp 5	. . . . . . . . . 10 ⊢ {𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐} ⊆ {𝑐 ∈ 𝑂 ∣ ¬ 1 ∈ 𝑐}
113	110, 112	eqssi 3952	. . . . . . . . 9 ⊢ {𝑐 ∈ 𝑂 ∣ ¬ 1 ∈ 𝑐} = {𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐}
114	113	fveq2i 6870	. . . . . . . 8 ⊢ (♯‘{𝑐 ∈ 𝑂 ∣ ¬ 1 ∈ 𝑐}) = (♯‘{𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐})
115	114	oveq1i 7406	. . . . . . 7 ⊢ ((♯‘{𝑐 ∈ 𝑂 ∣ ¬ 1 ∈ 𝑐}) / (♯‘𝑂)) = ((♯‘{𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐}) / (♯‘𝑂))
116	97, 98, 115	3eqtr3i 2793	. . . . . 6 ⊢ (𝑁 / (𝑀 + 𝑁)) = ((♯‘{𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐}) / (♯‘𝑂))
117	116	oveq2i 7407	. . . . 5 ⊢ (2 · (𝑁 / (𝑀 + 𝑁))) = (2 · ((♯‘{𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐}) / (♯‘𝑂)))
118		2cn 12293	. . . . . 6 ⊢ 2 ∈ ℂ
119		hashcl 14369	. . . . . . . 8 ⊢ ({𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐} ∈ Fin → (♯‘{𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐}) ∈ ℕ₀)
120	83, 119	ax-mp 5	. . . . . . 7 ⊢ (♯‘{𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐}) ∈ ℕ₀
121	120	nn0cni 12493	. . . . . 6 ⊢ (♯‘{𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐}) ∈ ℂ
122	118, 121, 28, 57	divassi 11947	. . . . 5 ⊢ ((2 · (♯‘{𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐})) / (♯‘𝑂)) = (2 · ((♯‘{𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐}) / (♯‘𝑂)))
123	121	2timesi 12355	. . . . . 6 ⊢ (2 · (♯‘{𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐})) = ((♯‘{𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐}) + (♯‘{𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐}))
124	123	oveq1i 7406	. . . . 5 ⊢ ((2 · (♯‘{𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐})) / (♯‘𝑂)) = (((♯‘{𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐}) + (♯‘{𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐})) / (♯‘𝑂))
125	117, 122, 124	3eqtr2i 2791	. . . 4 ⊢ (2 · (𝑁 / (𝑀 + 𝑁))) = (((♯‘{𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐}) + (♯‘{𝑐 ∈ (𝑂 ∖ 𝐸) ∣ ¬ 1 ∈ 𝑐})) / (♯‘𝑂))
126	71, 88, 125	3eqtr4ri 2796	. . 3 ⊢ (2 · (𝑁 / (𝑀 + 𝑁))) = ((♯‘(𝑂 ∖ 𝐸)) / (♯‘𝑂))
127	126	oveq2i 7407	. 2 ⊢ (1 − (2 · (𝑁 / (𝑀 + 𝑁)))) = (1 − ((♯‘(𝑂 ∖ 𝐸)) / (♯‘𝑂)))
128	47	nncni 12220	. . . 4 ⊢ (𝑀 + 𝑁) ∈ ℂ
129	43	nncni 12220	. . . . 5 ⊢ 𝑁 ∈ ℂ
130	118, 129	mulcli 11189	. . . 4 ⊢ (2 · 𝑁) ∈ ℂ
131	47	nnne0i 12253	. . . . 5 ⊢ (𝑀 + 𝑁) ≠ 0
132	128, 131	pm3.2i 474	. . . 4 ⊢ ((𝑀 + 𝑁) ∈ ℂ ∧ (𝑀 + 𝑁) ≠ 0)
133		divsubdir 11884	. . . 4 ⊢ (((𝑀 + 𝑁) ∈ ℂ ∧ (2 · 𝑁) ∈ ℂ ∧ ((𝑀 + 𝑁) ∈ ℂ ∧ (𝑀 + 𝑁) ≠ 0)) → (((𝑀 + 𝑁) − (2 · 𝑁)) / (𝑀 + 𝑁)) = (((𝑀 + 𝑁) / (𝑀 + 𝑁)) − ((2 · 𝑁) / (𝑀 + 𝑁))))
134	128, 130, 132, 133	mp3an 1482	. . 3 ⊢ (((𝑀 + 𝑁) − (2 · 𝑁)) / (𝑀 + 𝑁)) = (((𝑀 + 𝑁) / (𝑀 + 𝑁)) − ((2 · 𝑁) / (𝑀 + 𝑁)))
135	129	2timesi 12355	. . . . . 6 ⊢ (2 · 𝑁) = (𝑁 + 𝑁)
136	135	oveq2i 7407	. . . . 5 ⊢ ((𝑀 + 𝑁) − (2 · 𝑁)) = ((𝑀 + 𝑁) − (𝑁 + 𝑁))
137	42	nncni 12220	. . . . . . 7 ⊢ 𝑀 ∈ ℂ
138	137, 129, 129, 129	addsub4i 11527	. . . . . 6 ⊢ ((𝑀 + 𝑁) − (𝑁 + 𝑁)) = ((𝑀 − 𝑁) + (𝑁 − 𝑁))
139	129	subidi 11502	. . . . . . 7 ⊢ (𝑁 − 𝑁) = 0
140	139	oveq2i 7407	. . . . . 6 ⊢ ((𝑀 − 𝑁) + (𝑁 − 𝑁)) = ((𝑀 − 𝑁) + 0)
141	137, 129	subcli 11507	. . . . . . 7 ⊢ (𝑀 − 𝑁) ∈ ℂ
142	141	addridi 11370	. . . . . 6 ⊢ ((𝑀 − 𝑁) + 0) = (𝑀 − 𝑁)
143	138, 140, 142	3eqtri 2789	. . . . 5 ⊢ ((𝑀 + 𝑁) − (𝑁 + 𝑁)) = (𝑀 − 𝑁)
144	136, 143	eqtri 2785	. . . 4 ⊢ ((𝑀 + 𝑁) − (2 · 𝑁)) = (𝑀 − 𝑁)
145	144	oveq1i 7406	. . 3 ⊢ (((𝑀 + 𝑁) − (2 · 𝑁)) / (𝑀 + 𝑁)) = ((𝑀 − 𝑁) / (𝑀 + 𝑁))
146	128, 131	dividi 11924	. . . 4 ⊢ ((𝑀 + 𝑁) / (𝑀 + 𝑁)) = 1
147	118, 129, 128, 131	divassi 11947	. . . 4 ⊢ ((2 · 𝑁) / (𝑀 + 𝑁)) = (2 · (𝑁 / (𝑀 + 𝑁)))
148	146, 147	oveq12i 7408	. . 3 ⊢ (((𝑀 + 𝑁) / (𝑀 + 𝑁)) − ((2 · 𝑁) / (𝑀 + 𝑁))) = (1 − (2 · (𝑁 / (𝑀 + 𝑁))))
149	134, 145, 148	3eqtr3ri 2794	. 2 ⊢ (1 − (2 · (𝑁 / (𝑀 + 𝑁)))) = ((𝑀 − 𝑁) / (𝑀 + 𝑁))
150	63, 127, 149	3eqtr2i 2791	1 ⊢ (𝑃‘𝐸) = ((𝑀 − 𝑁) / (𝑀 + 𝑁))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 399 = wceq 1560 ∈ wcel 2142 ≠ wne 2957 ∀wral 3076 {crab 3414 ∖ cdif 3901 ∪ cun 3902 ∩ cin 3903 ⊆ wss 3904 ∅c0 4285 ifcif 4480 𝒫 cpw 4555 class class class wbr 5100 ↦ cmpt 5181 “ cima 5650 ‘cfv 6521 (class class class)co 7396 Fincfn 8927 infcinf 9387 ℂcc 11071 ℝcr 11072 0cc0 11073 1c1 11074 + caddc 11076 · cmul 11078 < clt 11216 ≤ cle 11217 − cmin 11414 / cdiv 11844 ℕcn 12210 2c2 12272 ℕ₀cn0 12481 ℤcz 12568 ...cfz 13512 Ccbc 14315 ♯chash 14343

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1815 ax-4 1829 ax-5 1930 ax-6 1987 ax-7 2028 ax-8 2144 ax-9 2152 ax-10 2175 ax-11 2191 ax-12 2212 ax-ext 2734 ax-rep 5227 ax-sep 5246 ax-nul 5256 ax-pow 5322 ax-pr 5390 ax-un 7718 ax-cnex 11129 ax-resscn 11130 ax-1cn 11131 ax-icn 11132 ax-addcl 11133 ax-addrcl 11134 ax-mulcl 11135 ax-mulrcl 11136 ax-mulcom 11137 ax-addass 11138 ax-mulass 11139 ax-distr 11140 ax-i2m1 11141 ax-1ne0 11142 ax-1rid 11143 ax-rnegex 11144 ax-rrecex 11145 ax-cnre 11146 ax-pre-lttri 11147 ax-pre-lttrn 11148 ax-pre-ltadd 11149 ax-pre-mulgt0 11150

This theorem depends on definitions: df-bi 209 df-an 400 df-or 859 df-3or 1099 df-3an 1100 df-tru 1563 df-fal 1573 df-ex 1800 df-nf 1804 df-sb 2091 df-mo 2566 df-eu 2596 df-clab 2741 df-cleq 2754 df-clel 2837 df-nfc 2911 df-ne 2958 df-nel 3062 df-ral 3077 df-rex 3087 df-rmo 3367 df-reu 3368 df-rab 3415 df-v 3456 df-sbc 3745 df-csb 3853 df-dif 3907 df-un 3909 df-in 3911 df-ss 3921 df-pss 3924 df-nul 4286 df-if 4481 df-pw 4557 df-sn 4583 df-pr 4585 df-op 4589 df-uni 4866 df-int 4906 df-iun 4951 df-br 5101 df-opab 5163 df-mpt 5182 df-tr 5208 df-id 5542 df-eprel 5547 df-po 5555 df-so 5556 df-fr 5600 df-we 5602 df-xp 5653 df-rel 5654 df-cnv 5655 df-co 5656 df-dm 5657 df-rn 5658 df-res 5659 df-ima 5660 df-pred 6288 df-ord 6349 df-on 6350 df-lim 6351 df-suc 6352 df-iota 6477 df-fun 6523 df-fn 6524 df-f 6525 df-f1 6526 df-fo 6527 df-f1o 6528 df-fv 6529 df-riota 7353 df-ov 7399 df-oprab 7400 df-mpo 7401 df-om 7847 df-1st 7970 df-2nd 7971 df-frecs 8262 df-wrecs 8293 df-recs 8342 df-rdg 8381 df-1o 8437 df-oadd 8441 df-er 8678 df-en 8928 df-dom 8929 df-sdom 8930 df-fin 8931 df-sup 9388 df-inf 9389 df-dju 9859 df-card 9897 df-pnf 11218 df-mnf 11219 df-xr 11220 df-ltxr 11221 df-le 11222 df-sub 11416 df-neg 11417 df-div 11845 df-nn 12211 df-2 12280 df-n0 12482 df-z 12569 df-uz 12840 df-rp 12994 df-fz 13513 df-seq 14015 df-fac 14287 df-bc 14316 df-hash 14344

This theorem is referenced by: (None)

W3C validator