Metamath Proof Explorer


Theorem ballotlemsel1i

Description: The range ( 1 ... ( IC ) ) is invariant under ( SC ) . (Contributed by Thierry Arnoux, 28-Apr-2017)

Ref Expression
Hypotheses ballotth.m M
ballotth.n N
ballotth.o O=c𝒫1M+N|c=M
ballotth.p P=x𝒫OxO
ballotth.f F=cOi1ic1ic
ballotth.e E=cO|i1M+N0<Fci
ballotth.mgtn N<M
ballotth.i I=cOEsupk1M+N|Fck=0<
ballotth.s S=cOEi1M+NifiIcIc+1-ii
Assertion ballotlemsel1i COEJ1ICSCJ1IC

Proof

Step Hyp Ref Expression
1 ballotth.m M
2 ballotth.n N
3 ballotth.o O=c𝒫1M+N|c=M
4 ballotth.p P=x𝒫OxO
5 ballotth.f F=cOi1ic1ic
6 ballotth.e E=cO|i1M+N0<Fci
7 ballotth.mgtn N<M
8 ballotth.i I=cOEsupk1M+N|Fck=0<
9 ballotth.s S=cOEi1M+NifiIcIc+1-ii
10 1zzd COEJ1IC1
11 1 2 3 4 5 6 7 8 ballotlemiex COEIC1M+NFCIC=0
12 11 simpld COEIC1M+N
13 12 elfzelzd COEIC
14 13 adantr COEJ1ICIC
15 nnaddcl MNM+N
16 1 2 15 mp2an M+N
17 16 nnzi M+N
18 17 a1i COEM+N
19 elfzle2 IC1M+NICM+N
20 12 19 syl COEICM+N
21 eluz2 M+NICICM+NICM+N
22 13 18 20 21 syl3anbrc COEM+NIC
23 fzss2 M+NIC1IC1M+N
24 22 23 syl COE1IC1M+N
25 24 sselda COEJ1ICJ1M+N
26 1 2 3 4 5 6 7 8 9 ballotlemsdom COEJ1M+NSCJ1M+N
27 25 26 syldan COEJ1ICSCJ1M+N
28 27 elfzelzd COEJ1ICSCJ
29 elfzelz J1ICJ
30 29 adantl COEJ1ICJ
31 30 zred COEJ1ICJ
32 14 zred COEJ1ICIC
33 1red COEJ1IC1
34 32 33 readdcld COEJ1ICIC+1
35 elfzle2 J1ICJIC
36 35 adantl COEJ1ICJIC
37 14 zcnd COEJ1ICIC
38 1cnd COEJ1IC1
39 37 38 pncand COEJ1ICIC+1-1=IC
40 36 39 breqtrrd COEJ1ICJIC+1-1
41 31 34 33 40 lesubd COEJ1IC1IC+1-J
42 1 2 3 4 5 6 7 8 9 ballotlemsv COEJ1M+NSCJ=ifJICIC+1-JJ
43 25 42 syldan COEJ1ICSCJ=ifJICIC+1-JJ
44 36 iftrued COEJ1ICifJICIC+1-JJ=IC+1-J
45 43 44 eqtrd COEJ1ICSCJ=IC+1-J
46 41 45 breqtrrd COEJ1IC1SCJ
47 13 adantr COEJ1M+NIC
48 elfznn J1M+NJ
49 48 adantl COEJ1M+NJ
50 47 49 ltesubnnd COEJ1M+NIC+1-JIC
51 25 50 syldan COEJ1ICIC+1-JIC
52 45 51 eqbrtrd COEJ1ICSCJIC
53 10 14 28 46 52 elfzd COEJ1ICSCJ1IC