MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  dchrptlem3 Structured version   Visualization version   GIF version

Theorem dchrptlem3 27594
Description: Lemma for dchrpt 27595. (Contributed by Mario Carneiro, 28-Apr-2016.)
Hypotheses
Ref Expression
dchrpt.g 𝐺 = (DChr‘𝑁)
dchrpt.z 𝑍 = (ℤ/nℤ‘𝑁)
dchrpt.d 𝐷 = (Base‘𝐺)
dchrpt.b 𝐵 = (Base‘𝑍)
dchrpt.1 1 = (1r‘𝑍)
dchrpt.n (𝜑 → 𝑁 ∈ ℕ)
dchrpt.n1 (𝜑 → 𝐴 ≠ 1 )
dchrpt.u 𝑈 = (Unit‘𝑍)
dchrpt.h 𝐻 = ((mulGrp‘𝑍) ↾s 𝑈)
dchrpt.m · = (.g‘𝐻)
dchrpt.s 𝑆 = (𝑘 ∈ dom 𝑊 ↦ ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑊‘𝑘))))
dchrpt.au (𝜑 → 𝐴 ∈ 𝑈)
dchrpt.w (𝜑 → 𝑊 ∈ Word 𝑈)
dchrpt.2 (𝜑 → 𝐻dom DProd 𝑆)
dchrpt.3 (𝜑 → (𝐻 DProd 𝑆) = 𝑈)
Assertion
Ref Expression
dchrptlem3 (𝜑 → ∃𝑥 ∈ 𝐷 (𝑥‘𝐴) ≠ 1)
Distinct variable groups:   𝑘,𝑛,𝑥, 1   𝐴,𝑘,𝑛,𝑥   𝑥,𝐵   𝑥,𝐺   𝑘,𝐻,𝑛,𝑥   𝑥,𝑁   𝑘,𝑊,𝑛,𝑥   · ,𝑘,𝑛,𝑥   𝑆,𝑘,𝑛,𝑥   𝑘,𝑍,𝑛,𝑥   𝑥,𝐷   𝜑,𝑘,𝑛,𝑥   𝑥,𝑈
Allowed substitution hints:   𝐵(𝑘, 𝑛)   𝐷(𝑘, 𝑛)   𝑈(𝑘, 𝑛)   𝐺(𝑘, 𝑛)   𝑁(𝑘, 𝑛)

Proof of Theorem dchrptlem3
Dummy variables 𝑎 ℎ 𝑚 𝑢 𝑖 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 dchrpt.n1 . . . . 5 (𝜑 → 𝐴 ≠ 1 )
2 dchrpt.n . . . . . . . . . . . 12 (𝜑 → 𝑁 ∈ ℕ)
32nnnn0d 12668 . . . . . . . . . . 11 (𝜑 → 𝑁 ∈ ℕ0)
4 dchrpt.z . . . . . . . . . . . 12 𝑍 = (ℤ/nℤ‘𝑁)
54zncrng 21851 . . . . . . . . . . 11 (𝑁 ∈ ℕ0 → 𝑍 ∈ CRing)
63, 5syl 18 . . . . . . . . . 10 (𝜑 → 𝑍 ∈ CRing)
7 crngring 20473 . . . . . . . . . 10 (𝑍 ∈ CRing → 𝑍 ∈ Ring)
86, 7syl 18 . . . . . . . . 9 (𝜑 → 𝑍 ∈ Ring)
9 dchrpt.u . . . . . . . . . 10 𝑈 = (Unit‘𝑍)
10 dchrpt.h . . . . . . . . . 10 𝐻 = ((mulGrp‘𝑍) ↾s 𝑈)
119, 10unitgrp 20614 . . . . . . . . 9 (𝑍 ∈ Ring → 𝐻 ∈ Grp)
128, 11syl 18 . . . . . . . 8 (𝜑 → 𝐻 ∈ Grp)
1312grpmndd 19158 . . . . . . 7 (𝜑 → 𝐻 ∈ Mnd)
14 dchrpt.w . . . . . . . 8 (𝜑 → 𝑊 ∈ Word 𝑈)
1514dmexd 7915 . . . . . . 7 (𝜑 → dom 𝑊 ∈ V)
16 eqid 2760 . . . . . . . 8 (0g‘𝐻) = (0g‘𝐻)
1716gsumz 19033 . . . . . . 7 ((𝐻 ∈ Mnd ∧ dom 𝑊 ∈ V) → (𝐻 Σg (𝑎 ∈ dom 𝑊 ↦ (0g‘𝐻))) = (0g‘𝐻))
1813, 15, 17syl2anc 596 . . . . . 6 (𝜑 → (𝐻 Σg (𝑎 ∈ dom 𝑊 ↦ (0g‘𝐻))) = (0g‘𝐻))
19 dchrpt.1 . . . . . . . . . 10 1 = (1r‘𝑍)
209, 10, 19unitgrpid 20616 . . . . . . . . 9 (𝑍 ∈ Ring → 1 = (0g‘𝐻))
218, 20syl 18 . . . . . . . 8 (𝜑 → 1 = (0g‘𝐻))
2221mpteq2dv 5198 . . . . . . 7 (𝜑 → (𝑎 ∈ dom 𝑊 ↦ 1 ) = (𝑎 ∈ dom 𝑊 ↦ (0g‘𝐻)))
2322oveq2d 7436 . . . . . 6 (𝜑 → (𝐻 Σg (𝑎 ∈ dom 𝑊 ↦ 1 )) = (𝐻 Σg (𝑎 ∈ dom 𝑊 ↦ (0g‘𝐻))))
2418, 23, 213eqtr4d 2805 . . . . 5 (𝜑 → (𝐻 Σg (𝑎 ∈ dom 𝑊 ↦ 1 )) = 1 )
251, 24neeqtrrd 3029 . . . 4 (𝜑 → 𝐴 ≠ (𝐻 Σg (𝑎 ∈ dom 𝑊 ↦ 1 )))
26 dchrpt.2 . . . . . 6 (𝜑 → 𝐻dom DProd 𝑆)
27 zex 12703 . . . . . . . . . 10 ℤ ∈ V
2827mptex 7229 . . . . . . . . 9 (𝑛 ∈ ℤ ↦ (𝑛 · (𝑊‘𝑘))) ∈ V
2928rnex 7922 . . . . . . . 8 ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑊‘𝑘))) ∈ V
30 dchrpt.s . . . . . . . 8 𝑆 = (𝑘 ∈ dom 𝑊 ↦ ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑊‘𝑘))))
3129, 30dmmpti 6683 . . . . . . 7 dom 𝑆 = dom 𝑊
3231a1i 11 . . . . . 6 (𝜑 → dom 𝑆 = dom 𝑊)
33 eqid 2760 . . . . . 6 (𝐻dProj𝑆) = (𝐻dProj𝑆)
34 dchrpt.au . . . . . . 7 (𝜑 → 𝐴 ∈ 𝑈)
35 dchrpt.3 . . . . . . 7 (𝜑 → (𝐻 DProd 𝑆) = 𝑈)
3634, 35eleqtrrd 2863 . . . . . 6 (𝜑 → 𝐴 ∈ (𝐻 DProd 𝑆))
37 eqid 2760 . . . . . 6 {ℎ ∈ X𝑖 ∈ dom 𝑊(𝑆‘𝑖) ∣ ℎ finSupp (0g‘𝐻)} = {ℎ ∈ X𝑖 ∈ dom 𝑊(𝑆‘𝑖) ∣ ℎ finSupp (0g‘𝐻)}
3821adantr 486 . . . . . . . 8 ((𝜑 ∧ 𝑎 ∈ dom 𝑊) → 1 = (0g‘𝐻))
3926, 32dprdf2 20224 . . . . . . . . . 10 (𝜑 → 𝑆:dom 𝑊⟶(SubGrp‘𝐻))
4039ffvelcdmda 7084 . . . . . . . . 9 ((𝜑 ∧ 𝑎 ∈ dom 𝑊) → (𝑆‘𝑎) ∈ (SubGrp‘𝐻))
4116subg0cl 19345 . . . . . . . . 9 ((𝑆‘𝑎) ∈ (SubGrp‘𝐻) → (0g‘𝐻) ∈ (𝑆‘𝑎))
4240, 41syl 18 . . . . . . . 8 ((𝜑 ∧ 𝑎 ∈ dom 𝑊) → (0g‘𝐻) ∈ (𝑆‘𝑎))
4338, 42eqeltrd 2860 . . . . . . 7 ((𝜑 ∧ 𝑎 ∈ dom 𝑊) → 1 ∈ (𝑆‘𝑎))
4419fvexi 6899 . . . . . . . . . 10 1 ∈ V
4544a1i 11 . . . . . . . . 9 (𝜑 → 1 ∈ V)
4615, 45fczfsuppd 9379 . . . . . . . 8 (𝜑 → (dom 𝑊 × { 1 }) finSupp 1 )
47 fconstmpt 5712 . . . . . . . . . 10 (dom 𝑊 × { 1 }) = (𝑎 ∈ dom 𝑊 ↦ 1 )
4847eqcomi 2769 . . . . . . . . 9 (𝑎 ∈ dom 𝑊 ↦ 1 ) = (dom 𝑊 × { 1 })
4948a1i 11 . . . . . . . 8 (𝜑 → (𝑎 ∈ dom 𝑊 ↦ 1 ) = (dom 𝑊 × { 1 }))
5021eqcomd 2766 . . . . . . . 8 (𝜑 → (0g‘𝐻) = 1 )
5146, 49, 503brtr4d 5136 . . . . . . 7 (𝜑 → (𝑎 ∈ dom 𝑊 ↦ 1 ) finSupp (0g‘𝐻))
5237, 26, 32, 43, 51dprdwd 20228 . . . . . 6 (𝜑 → (𝑎 ∈ dom 𝑊 ↦ 1 ) ∈ {ℎ ∈ X𝑖 ∈ dom 𝑊(𝑆‘𝑖) ∣ ℎ finSupp (0g‘𝐻)})
5326, 32, 33, 36, 16, 37, 52dpjeq 20276 . . . . 5 (𝜑 → (𝐴 = (𝐻 Σg (𝑎 ∈ dom 𝑊 ↦ 1 )) ↔ ∀𝑎 ∈ dom 𝑊(((𝐻dProj𝑆)‘𝑎)‘𝐴) = 1 ))
5453necon3abid 2991 . . . 4 (𝜑 → (𝐴 ≠ (𝐻 Σg (𝑎 ∈ dom 𝑊 ↦ 1 )) ↔ ¬ ∀𝑎 ∈ dom 𝑊(((𝐻dProj𝑆)‘𝑎)‘𝐴) = 1 ))
5525, 54mpbid 235 . . 3 (𝜑 → ¬ ∀𝑎 ∈ dom 𝑊(((𝐻dProj𝑆)‘𝑎)‘𝐴) = 1 )
56 rexnal 3114 . . 3 (∃𝑎 ∈ dom 𝑊 ¬ (((𝐻dProj𝑆)‘𝑎)‘𝐴) = 1 ↔ ¬ ∀𝑎 ∈ dom 𝑊(((𝐻dProj𝑆)‘𝑎)‘𝐴) = 1 )
5755, 56sylibr 237 . 2 (𝜑 → ∃𝑎 ∈ dom 𝑊 ¬ (((𝐻dProj𝑆)‘𝑎)‘𝐴) = 1 )
58 df-ne 2956 . . . 4 ((((𝐻dProj𝑆)‘𝑎)‘𝐴) ≠ 1 ↔ ¬ (((𝐻dProj𝑆)‘𝑎)‘𝐴) = 1 )
59 dchrpt.g . . . . . 6 𝐺 = (DChr‘𝑁)
60 dchrpt.d . . . . . 6 𝐷 = (Base‘𝐺)
61 dchrpt.b . . . . . 6 𝐵 = (Base‘𝑍)
622adantr 486 . . . . . 6 ((𝜑 ∧ (𝑎 ∈ dom 𝑊 ∧ (((𝐻dProj𝑆)‘𝑎)‘𝐴) ≠ 1 )) → 𝑁 ∈ ℕ)
631adantr 486 . . . . . 6 ((𝜑 ∧ (𝑎 ∈ dom 𝑊 ∧ (((𝐻dProj𝑆)‘𝑎)‘𝐴) ≠ 1 )) → 𝐴 ≠ 1 )
64 dchrpt.m . . . . . 6 · = (.g‘𝐻)
6534adantr 486 . . . . . 6 ((𝜑 ∧ (𝑎 ∈ dom 𝑊 ∧ (((𝐻dProj𝑆)‘𝑎)‘𝐴) ≠ 1 )) → 𝐴 ∈ 𝑈)
6614adantr 486 . . . . . 6 ((𝜑 ∧ (𝑎 ∈ dom 𝑊 ∧ (((𝐻dProj𝑆)‘𝑎)‘𝐴) ≠ 1 )) → 𝑊 ∈ Word 𝑈)
6726adantr 486 . . . . . 6 ((𝜑 ∧ (𝑎 ∈ dom 𝑊 ∧ (((𝐻dProj𝑆)‘𝑎)‘𝐴) ≠ 1 )) → 𝐻dom DProd 𝑆)
6835adantr 486 . . . . . 6 ((𝜑 ∧ (𝑎 ∈ dom 𝑊 ∧ (((𝐻dProj𝑆)‘𝑎)‘𝐴) ≠ 1 )) → (𝐻 DProd 𝑆) = 𝑈)
69 eqid 2760 . . . . . 6 (od‘𝐻) = (od‘𝐻)
70 eqid 2760 . . . . . 6 ( -1↑𝑐(2 / ((od‘𝐻)‘(𝑊‘𝑎)))) = ( -1↑𝑐(2 / ((od‘𝐻)‘(𝑊‘𝑎))))
71 simprl 783 . . . . . 6 ((𝜑 ∧ (𝑎 ∈ dom 𝑊 ∧ (((𝐻dProj𝑆)‘𝑎)‘𝐴) ≠ 1 )) → 𝑎 ∈ dom 𝑊)
72 simprr 785 . . . . . 6 ((𝜑 ∧ (𝑎 ∈ dom 𝑊 ∧ (((𝐻dProj𝑆)‘𝑎)‘𝐴) ≠ 1 )) → (((𝐻dProj𝑆)‘𝑎)‘𝐴) ≠ 1 )
73 eqid 2760 . . . . . 6 (𝑢 ∈ 𝑈 ↦ (℩ℎ∃𝑚 ∈ ℤ ((((𝐻dProj𝑆)‘𝑎)‘𝑢) = (𝑚 · (𝑊‘𝑎)) ∧ ℎ = (( -1↑𝑐(2 / ((od‘𝐻)‘(𝑊‘𝑎))))↑𝑚)))) = (𝑢 ∈ 𝑈 ↦ (℩ℎ∃𝑚 ∈ ℤ ((((𝐻dProj𝑆)‘𝑎)‘𝑢) = (𝑚 · (𝑊‘𝑎)) ∧ ℎ = (( -1↑𝑐(2 / ((od‘𝐻)‘(𝑊‘𝑎))))↑𝑚))))
7459, 4, 60, 61, 19, 62, 63, 9, 10, 64, 30, 65, 66, 67, 68, 33, 69, 70, 71, 72, 73dchrptlem2 27593 . . . . 5 ((𝜑 ∧ (𝑎 ∈ dom 𝑊 ∧ (((𝐻dProj𝑆)‘𝑎)‘𝐴) ≠ 1 )) → ∃𝑥 ∈ 𝐷 (𝑥‘𝐴) ≠ 1)
7574expr 462 . . . 4 ((𝜑 ∧ 𝑎 ∈ dom 𝑊) → ((((𝐻dProj𝑆)‘𝑎)‘𝐴) ≠ 1 → ∃𝑥 ∈ 𝐷 (𝑥‘𝐴) ≠ 1))
7658, 75biimtrrid 246 . . 3 ((𝜑 ∧ 𝑎 ∈ dom 𝑊) → (¬ (((𝐻dProj𝑆)‘𝑎)‘𝐴) = 1 → ∃𝑥 ∈ 𝐷 (𝑥‘𝐴) ≠ 1))
7776rexlimdva 3163 . 2 (𝜑 → (∃𝑎 ∈ dom 𝑊 ¬ (((𝐻dProj𝑆)‘𝑎)‘𝐴) = 1 → ∃𝑥 ∈ 𝐷 (𝑥‘𝐴) ≠ 1))
7857, 77mpd 16 1 (𝜑 → ∃𝑥 ∈ 𝐷 (𝑥‘𝐴) ≠ 1)
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ∧ wa 401   = wceq 1569   ∈ wcel 2144   ≠ wne 2955  ∀wral 3076  ∃wrex 3086  {crab 3412  Vcvv 3450  {csn 4583   class class class wbr 5102   ↦ cmpt 5185   × cxp 5648  dom cdm 5650  ran crn 5651  ℩cio 6492  ‘cfv 6538  (class class class)co 7420  Xcixp 8926   finSupp cfsupp 9354  1c1 11202   -cneg 11543   / cdiv 11974  ℕcn 12336  2c2 12398  ℕ0cn0 12607  ℤcz 12694  ↑cexp 14205  Word cword 14659  Basecbs 17388   ↾s cress 17409  0gc0g 17611   Σg cgsu 17612  Mndcmnd 18924  Grpcgrp 19145  .gcmg 19278  SubGrpcsubg 19331  odcod 19739   DProd cdprd 20210  dProjcdpj 20211  mulGrpcmgp 20361  1rcur 20408  Ringcrg 20460  CRingccrg 20461  Unitcui 20586  ℤ/nℤczn 21809  ↑𝑐ccxp 26884  DChrcdchr 27560
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1827  ax-4 1841  ax-5 1942  ax-6 1999  ax-7 2040  ax-8 2146  ax-9 2154  ax-10 2177  ax-11 2193  ax-12 2212  ax-ext 2732  ax-rep 5231  ax-sep 5248  ax-nul 5259  ax-pow 5326  ax-pr 5390  ax-un 7751  ax-inf2 9643  ax-cnex 11257  ax-resscn 11258  ax-1cn 11259  ax-icn 11260  ax-addcl 11261  ax-addrcl 11262  ax-mulcl 11263  ax-mulrcl 11264  ax-mulcom 11265  ax-addass 11266  ax-mulass 11267  ax-distr 11268  ax-i2m1 11269  ax-1ne0 11270  ax-1rid 11271  ax-rnegex 11272  ax-rrecex 11273  ax-cnre 11274  ax-pre-lttri 11275  ax-pre-lttrn 11276  ax-pre-ltadd 11277  ax-pre-mulgt0 11278  ax-pre-sup 11279  ax-addf 11280  ax-mulf 11281
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1572  df-fal 1582  df-ex 1812  df-nf 1816  df-sb 2099  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-nel 3062  df-ral 3077  df-rex 3087  df-rmo 3365  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3739  df-csb 3847  df-ss 3896  df-pss 4014  df-dif 4047  df-in 4091  df-un 4151  df-nul 4279  df-if 4482  df-pw 4558  df-sn 4584  df-pr 4586  df-tp 4588  df-op 4590  df-uni 4867  df-int 4907  df-iun 4952  df-iin 4953  df-br 5103  df-opab 5167  df-mpt 5186  df-tr 5212  df-id 5545  df-eprel 5550  df-po 5558  df-so 5559  df-fr 5603  df-se 5604  df-we 5605  df-xp 5656  df-rel 5657  df-cnv 5658  df-co 5659  df-dm 5660  df-rn 5661  df-res 5662  df-ima 5663  df-pred 6304  df-ord 6365  df-on 6366  df-lim 6367  df-suc 6368  df-iota 6494  df-fun 6540  df-fn 6541  df-f 6542  df-f1 6543  df-fo 6544  df-f1o 6545  df-fv 6546  df-isom 6547  df-riota 7377  df-ov 7423  df-oprab 7424  df-mpo 7425  df-of 7693  df-om 7878  df-1st 8001  df-2nd 8002  df-supp 8178  df-tpos 8244  df-frecs 8300  df-wrecs 8331  df-recs 8380  df-rdg 8419  df-1o 8477  df-2o 8478  df-oadd 8481  df-omul 8482  df-er 8718  df-ec 8720  df-qs 8724  df-map 8850  df-pm 8851  df-ixp 8927  df-en 8975  df-dom 8976  df-sdom 8977  df-fin 8978  df-fsupp 9355  df-fi 9404  df-sup 9435  df-inf 9436  df-oi 9505  df-card 10021  df-acn 10024  df-pnf 11346  df-mnf 11347  df-xr 11348  df-ltxr 11349  df-le 11350  df-sub 11544  df-neg 11545  df-div 11975  df-nn 12337  df-2 12406  df-3 12407  df-4 12408  df-5 12409  df-6 12410  df-7 12411  df-8 12412  df-9 12413  df-n0 12608  df-z 12695  df-dec 12816  df-uz 12967  df-q 13077  df-rp 13122  df-xneg 13242  df-xadd 13243  df-xmul 13244  df-ioo 13481  df-ioc 13482  df-ico 13483  df-icc 13484  df-fz 13641  df-fzo 13790  df-fl 13933  df-mod 14011  df-seq 14146  df-exp 14206  df-fac 14419  df-bc 14448  df-hash 14476  df-word 14660  df-shft 15221  df-cj 15267  df-re 15268  df-im 15269  df-sqrt 15403  df-abs 15404  df-limsup 15639  df-clim 15656  df-rlim 15657  df-sum 15855  df-ef 16234  df-sin 16236  df-cos 16237  df-pi 16239  df-dvds 16424  df-struct 17326  df-sets 17343  df-slot 17361  df-ndx 17373  df-base 17389  df-ress 17410  df-plusg 17442  df-mulr 17443  df-starv 17444  df-sca 17445  df-vsca 17446  df-ip 17447  df-tset 17448  df-ple 17449  df-ds 17451  df-unif 17452  df-hom 17453  df-cco 17454  df-rest 17594  df-topn 17595  df-0g 17613  df-gsum 17614  df-topgen 17615  df-pt 17616  df-prds 17619  df-xrs 17675  df-qtop 17680  df-imas 17681  df-qus 17682  df-xps 17683  df-mre 17757  df-mrc 17758  df-acs 17760  df-mgm 18817  df-sgrp 18909  df-mnd 18925  df-mhm 18979  df-submnd 18980  df-grp 19148  df-minusg 19149  df-sbg 19150  df-mulg 19279  df-subg 19334  df-nsg 19335  df-eqg 19336  df-ghm 19429  df-gim 19474  df-cntz 19532  df-oppg 19561  df-od 19743  df-lsm 19851  df-pj1 19852  df-cmn 19997  df-abl 19998  df-dprd 20212  df-dpj 20213  df-mgp 20362  df-rng 20376  df-ur 20409  df-ring 20462  df-cring 20463  df-oppr 20568  df-dvdsr 20588  df-unit 20589  df-rhm 20703  df-subrng 20799  df-subrg 20823  df-lmod 21138  df-lss 21208  df-lsp 21248  df-sra 21449  df-rgmod 21450  df-lidl 21487  df-rsp 21488  df-2idl 21544  df-psmet 21671  df-xmet 21672  df-met 21673  df-bl 21674  df-mopn 21675  df-fbas 21676  df-fg 21677  df-cnfld 21680  df-zring 21754  df-zrh 21810  df-zn 21813  df-top 23213  df-topon 23230  df-topsp 23252  df-bases 23265  df-cld 23338  df-ntr 23339  df-cls 23340  df-nei 23417  df-lp 23455  df-perf 23456  df-cn 23546  df-cnp 23547  df-haus 23634  df-tx 23882  df-hmeo 24075  df-fil 24166  df-fm 24258  df-flim 24259  df-flf 24260  df-xms 24640  df-ms 24641  df-tms 24642  df-cncf 25200  df-limc 26187  df-dv 26188  df-log 26885  df-cxp 26886  df-dchr 27561
This theorem is used by:  dchrpt  27595
  Copyright terms: Public domain W3C validator