Theorem ballotlemsval 34811

Description: Value of 𝑆. (Contributed by Thierry Arnoux, 12-Apr-2017.)

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) − 𝑖), 𝑖)))

Assertion

Ref	Expression
ballotlemsval	⊢ (𝐶 ∈ (𝑂 ∖ 𝐸) → (𝑆‘𝐶) = (𝑖 ∈ (1...(𝑀 + 𝑁)) ↦ if(𝑖 ≤ (𝐼‘𝐶), (((𝐼‘𝐶) + 1) − 𝑖), 𝑖)))

Distinct variable groups:   𝑀,𝑐   𝑁,𝑐   𝑂,𝑐   𝑖,𝑀   𝑖,𝑁   𝑖,𝑂   𝑘,𝑀   𝑘,𝑁   𝑘,𝑂   𝑖,𝑐,𝐹,𝑘   𝐶,𝑖,𝑘   𝑖,𝐸,𝑘   𝐶,𝑘   𝑘,𝐼,𝑐   𝐸,𝑐   𝑖,𝐼,𝑐

Allowed substitution hints:   𝐶(𝑥,𝑐)   𝑃(𝑥,𝑖,𝑘,𝑐)   𝑆(𝑥,𝑖,𝑘,𝑐)   𝐸(𝑥)   𝐹(𝑥)   𝐼(𝑥)   𝑀(𝑥)   𝑁(𝑥)   𝑂(𝑥)

Proof of Theorem ballotlemsval

Dummy variable 𝑑 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		simpl 487	. . . . . 6 ⊢ ((𝑑 = 𝐶 ∧ 𝑖 ∈ (1...(𝑀 + 𝑁))) → 𝑑 = 𝐶)
2	1	fveq2d 6875	. . . . 5 ⊢ ((𝑑 = 𝐶 ∧ 𝑖 ∈ (1...(𝑀 + 𝑁))) → (𝐼‘𝑑) = (𝐼‘𝐶))
3	2	breq2d 5116	. . . 4 ⊢ ((𝑑 = 𝐶 ∧ 𝑖 ∈ (1...(𝑀 + 𝑁))) → (𝑖 ≤ (𝐼‘𝑑) ↔ 𝑖 ≤ (𝐼‘𝐶)))
4	2	oveq1d 7415	. . . . 5 ⊢ ((𝑑 = 𝐶 ∧ 𝑖 ∈ (1...(𝑀 + 𝑁))) → ((𝐼‘𝑑) + 1) = ((𝐼‘𝐶) + 1))
5	4	oveq1d 7415	. . . 4 ⊢ ((𝑑 = 𝐶 ∧ 𝑖 ∈ (1...(𝑀 + 𝑁))) → (((𝐼‘𝑑) + 1) − 𝑖) = (((𝐼‘𝐶) + 1) − 𝑖))
6	3, 5	ifbieq1d 4508	. . 3 ⊢ ((𝑑 = 𝐶 ∧ 𝑖 ∈ (1...(𝑀 + 𝑁))) → if(𝑖 ≤ (𝐼‘𝑑), (((𝐼‘𝑑) + 1) − 𝑖), 𝑖) = if(𝑖 ≤ (𝐼‘𝐶), (((𝐼‘𝐶) + 1) − 𝑖), 𝑖))
7	6	mpteq2dva 5197	. 2 ⊢ (𝑑 = 𝐶 → (𝑖 ∈ (1...(𝑀 + 𝑁)) ↦ if(𝑖 ≤ (𝐼‘𝑑), (((𝐼‘𝑑) + 1) − 𝑖), 𝑖)) = (𝑖 ∈ (1...(𝑀 + 𝑁)) ↦ if(𝑖 ≤ (𝐼‘𝐶), (((𝐼‘𝐶) + 1) − 𝑖), 𝑖)))
8		ballotth.s	. . 3 ⊢ 𝑆 = (𝑐 ∈ (𝑂 ∖ 𝐸) ↦ (𝑖 ∈ (1...(𝑀 + 𝑁)) ↦ if(𝑖 ≤ (𝐼‘𝑐), (((𝐼‘𝑐) + 1) − 𝑖), 𝑖)))
9		simpl 487	. . . . . . . 8 ⊢ ((𝑐 = 𝑑 ∧ 𝑖 ∈ (1...(𝑀 + 𝑁))) → 𝑐 = 𝑑)
10	9	fveq2d 6875	. . . . . . 7 ⊢ ((𝑐 = 𝑑 ∧ 𝑖 ∈ (1...(𝑀 + 𝑁))) → (𝐼‘𝑐) = (𝐼‘𝑑))
11	10	breq2d 5116	. . . . . 6 ⊢ ((𝑐 = 𝑑 ∧ 𝑖 ∈ (1...(𝑀 + 𝑁))) → (𝑖 ≤ (𝐼‘𝑐) ↔ 𝑖 ≤ (𝐼‘𝑑)))
12	10	oveq1d 7415	. . . . . . 7 ⊢ ((𝑐 = 𝑑 ∧ 𝑖 ∈ (1...(𝑀 + 𝑁))) → ((𝐼‘𝑐) + 1) = ((𝐼‘𝑑) + 1))
13	12	oveq1d 7415	. . . . . 6 ⊢ ((𝑐 = 𝑑 ∧ 𝑖 ∈ (1...(𝑀 + 𝑁))) → (((𝐼‘𝑐) + 1) − 𝑖) = (((𝐼‘𝑑) + 1) − 𝑖))
14	11, 13	ifbieq1d 4508	. . . . 5 ⊢ ((𝑐 = 𝑑 ∧ 𝑖 ∈ (1...(𝑀 + 𝑁))) → if(𝑖 ≤ (𝐼‘𝑐), (((𝐼‘𝑐) + 1) − 𝑖), 𝑖) = if(𝑖 ≤ (𝐼‘𝑑), (((𝐼‘𝑑) + 1) − 𝑖), 𝑖))
15	14	mpteq2dva 5197	. . . 4 ⊢ (𝑐 = 𝑑 → (𝑖 ∈ (1...(𝑀 + 𝑁)) ↦ if(𝑖 ≤ (𝐼‘𝑐), (((𝐼‘𝑐) + 1) − 𝑖), 𝑖)) = (𝑖 ∈ (1...(𝑀 + 𝑁)) ↦ if(𝑖 ≤ (𝐼‘𝑑), (((𝐼‘𝑑) + 1) − 𝑖), 𝑖)))
16	15	cbvmptv 5208	. . 3 ⊢ (𝑐 ∈ (𝑂 ∖ 𝐸) ↦ (𝑖 ∈ (1...(𝑀 + 𝑁)) ↦ if(𝑖 ≤ (𝐼‘𝑐), (((𝐼‘𝑐) + 1) − 𝑖), 𝑖))) = (𝑑 ∈ (𝑂 ∖ 𝐸) ↦ (𝑖 ∈ (1...(𝑀 + 𝑁)) ↦ if(𝑖 ≤ (𝐼‘𝑑), (((𝐼‘𝑑) + 1) − 𝑖), 𝑖)))
17	8, 16	eqtri 2788	. 2 ⊢ 𝑆 = (𝑑 ∈ (𝑂 ∖ 𝐸) ↦ (𝑖 ∈ (1...(𝑀 + 𝑁)) ↦ if(𝑖 ≤ (𝐼‘𝑑), (((𝐼‘𝑑) + 1) − 𝑖), 𝑖)))
18		ovex 7433	. . 3 ⊢ (1...(𝑀 + 𝑁)) ∈ V
19	18	mptex 7211	. 2 ⊢ (𝑖 ∈ (1...(𝑀 + 𝑁)) ↦ if(𝑖 ≤ (𝐼‘𝐶), (((𝐼‘𝐶) + 1) − 𝑖), 𝑖)) ∈ V
20	7, 17, 19	fvmpt 6979	1 ⊢ (𝐶 ∈ (𝑂 ∖ 𝐸) → (𝑆‘𝐶) = (𝑖 ∈ (1...(𝑀 + 𝑁)) ↦ if(𝑖 ≤ (𝐼‘𝐶), (((𝐼‘𝐶) + 1) − 𝑖), 𝑖)))

Syntax hints:   → wi 4   ∧ wa 400   = wceq 1563   ∈ wcel 2145  ∀wral 3079  {crab 3417   ∖ cdif 3904   ∩ cin 3906  ifcif 4483  𝒫 cpw 4558   class class class wbr 5104   ↦ cmpt 5185  ‘cfv 6525  (class class class)co 7400  infcinf 9389  ℝcr 11087  0cc0 11088  1c1 11089   + caddc 11091   < clt 11231   ≤ cle 11232   − cmin 11429   / cdiv 11859  ℕcn 12221  ℤcz 12579  ...cfz 13523  ♯chash 14354

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1818  ax-4 1832  ax-5 1933  ax-6 1990  ax-7 2031  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2215  ax-ext 2737  ax-rep 5231  ax-sep 5250  ax-nul 5260  ax-pr 5394

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3an 1103  df-tru 1566  df-fal 1576  df-ex 1803  df-nf 1807  df-sb 2094  df-mo 2569  df-eu 2599  df-clab 2744  df-cleq 2757  df-clel 2840  df-nfc 2914  df-ne 2961  df-ral 3080  df-rex 3090  df-reu 3371  df-rab 3418  df-v 3459  df-sbc 3748  df-csb 3856  df-dif 3910  df-un 3912  df-in 3914  df-ss 3924  df-nul 4289  df-if 4484  df-sn 4586  df-pr 4588  df-op 4592  df-uni 4868  df-iun 4953  df-br 5105  df-opab 5167  df-mpt 5186  df-id 5546  df-xp 5657  df-rel 5658  df-cnv 5659  df-co 5660  df-dm 5661  df-rn 5662  df-res 5663  df-ima 5664  df-iota 6481  df-fun 6527  df-fn 6528  df-f 6529  df-f1 6530  df-fo 6531  df-f1o 6532  df-fv 6533  df-ov 7403

This theorem is referenced by:  ballotlemsv  34812  ballotlemsf1o  34816  ballotlemieq  34819