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

Theorem dchrptlem2 25211
Description: Lemma for dchrpt 25213. (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 𝑆) = 𝑈)
dchrpt.p 𝑃 = (𝐻dProj𝑆)
dchrpt.o 𝑂 = (od‘𝐻)
dchrpt.t 𝑇 = (-1↑𝑐(2 / (𝑂‘(𝑊𝐼))))
dchrpt.i (𝜑𝐼 ∈ dom 𝑊)
dchrpt.4 (𝜑 → ((𝑃𝐼)‘𝐴) ≠ 1 )
dchrpt.5 𝑋 = (𝑢𝑈 ↦ (℩𝑚 ∈ ℤ (((𝑃𝐼)‘𝑢) = (𝑚 · (𝑊𝐼)) ∧ = (𝑇𝑚))))
Assertion
Ref Expression
dchrptlem2 (𝜑 → ∃𝑥𝐷 (𝑥𝐴) ≠ 1)
Distinct variable groups:   ,𝑘,𝑚,𝑛,𝑥, 1   𝑢,,𝐴,𝑘,𝑚,𝑛,𝑥   ,𝐼,𝑘,𝑚,𝑢   𝑥,𝐵   𝑥,𝐺   ,𝐻,𝑘,𝑚,𝑛,𝑢,𝑥   𝑥,𝑁   ,𝑊,𝑘,𝑚,𝑛,𝑢,𝑥   · ,,𝑘,𝑚,𝑛,𝑢,𝑥   𝑥,𝑋   𝑃,,𝑚,𝑢   𝑆,,𝑘,𝑚,𝑛,𝑢,𝑥   ,𝑍,𝑘,𝑚,𝑛,𝑢,𝑥   𝑥,𝐷   𝜑,,𝑘,𝑚,𝑛,𝑥   𝑇,,𝑚,𝑢   𝑈,,𝑚,𝑢,𝑥
Allowed substitution hints:   𝜑(𝑢)   𝐵(𝑢,,𝑘,𝑚,𝑛)   𝐷(𝑢,,𝑘,𝑚,𝑛)   𝑃(𝑥,𝑘,𝑛)   𝑇(𝑥,𝑘,𝑛)   𝑈(𝑘,𝑛)   1 (𝑢)   𝐺(𝑢,,𝑘,𝑚,𝑛)   𝐼(𝑥,𝑛)   𝑁(𝑢,,𝑘,𝑚,𝑛)   𝑂(𝑥,𝑢,,𝑘,𝑚,𝑛)   𝑋(𝑢,,𝑘,𝑚,𝑛)

Proof of Theorem dchrptlem2
Dummy variables 𝑎 𝑏 𝑣 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 dchrpt.g . . 3 𝐺 = (DChr‘𝑁)
2 dchrpt.z . . 3 𝑍 = (ℤ/nℤ‘𝑁)
3 dchrpt.b . . 3 𝐵 = (Base‘𝑍)
4 dchrpt.u . . 3 𝑈 = (Unit‘𝑍)
5 dchrpt.n . . 3 (𝜑𝑁 ∈ ℕ)
6 dchrpt.d . . 3 𝐷 = (Base‘𝐺)
7 fveq2 6332 . . 3 (𝑣 = 𝑥 → (𝑋𝑣) = (𝑋𝑥))
8 fveq2 6332 . . 3 (𝑣 = 𝑦 → (𝑋𝑣) = (𝑋𝑦))
9 fveq2 6332 . . 3 (𝑣 = (𝑥(.r𝑍)𝑦) → (𝑋𝑣) = (𝑋‘(𝑥(.r𝑍)𝑦)))
10 fveq2 6332 . . 3 (𝑣 = (1r𝑍) → (𝑋𝑣) = (𝑋‘(1r𝑍)))
11 dchrpt.2 . . . . . . . . 9 (𝜑𝐻dom DProd 𝑆)
12 zex 11588 . . . . . . . . . . . . 13 ℤ ∈ V
1312mptex 6630 . . . . . . . . . . . 12 (𝑛 ∈ ℤ ↦ (𝑛 · (𝑊𝑘))) ∈ V
1413rnex 7247 . . . . . . . . . . 11 ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑊𝑘))) ∈ V
15 dchrpt.s . . . . . . . . . . 11 𝑆 = (𝑘 ∈ dom 𝑊 ↦ ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑊𝑘))))
1614, 15dmmpti 6163 . . . . . . . . . 10 dom 𝑆 = dom 𝑊
1716a1i 11 . . . . . . . . 9 (𝜑 → dom 𝑆 = dom 𝑊)
18 dchrpt.p . . . . . . . . 9 𝑃 = (𝐻dProj𝑆)
19 dchrpt.i . . . . . . . . 9 (𝜑𝐼 ∈ dom 𝑊)
2011, 17, 18, 19dpjf 18664 . . . . . . . 8 (𝜑 → (𝑃𝐼):(𝐻 DProd 𝑆)⟶(𝑆𝐼))
21 dchrpt.3 . . . . . . . . 9 (𝜑 → (𝐻 DProd 𝑆) = 𝑈)
2221feq2d 6171 . . . . . . . 8 (𝜑 → ((𝑃𝐼):(𝐻 DProd 𝑆)⟶(𝑆𝐼) ↔ (𝑃𝐼):𝑈⟶(𝑆𝐼)))
2320, 22mpbid 222 . . . . . . 7 (𝜑 → (𝑃𝐼):𝑈⟶(𝑆𝐼))
2423ffvelrnda 6502 . . . . . 6 ((𝜑𝑣𝑈) → ((𝑃𝐼)‘𝑣) ∈ (𝑆𝐼))
2519adantr 466 . . . . . . 7 ((𝜑𝑣𝑈) → 𝐼 ∈ dom 𝑊)
26 oveq1 6800 . . . . . . . . . . 11 (𝑛 = 𝑎 → (𝑛 · (𝑊𝑘)) = (𝑎 · (𝑊𝑘)))
2726cbvmptv 4884 . . . . . . . . . 10 (𝑛 ∈ ℤ ↦ (𝑛 · (𝑊𝑘))) = (𝑎 ∈ ℤ ↦ (𝑎 · (𝑊𝑘)))
28 fveq2 6332 . . . . . . . . . . . 12 (𝑘 = 𝐼 → (𝑊𝑘) = (𝑊𝐼))
2928oveq2d 6809 . . . . . . . . . . 11 (𝑘 = 𝐼 → (𝑎 · (𝑊𝑘)) = (𝑎 · (𝑊𝐼)))
3029mpteq2dv 4879 . . . . . . . . . 10 (𝑘 = 𝐼 → (𝑎 ∈ ℤ ↦ (𝑎 · (𝑊𝑘))) = (𝑎 ∈ ℤ ↦ (𝑎 · (𝑊𝐼))))
3127, 30syl5eq 2817 . . . . . . . . 9 (𝑘 = 𝐼 → (𝑛 ∈ ℤ ↦ (𝑛 · (𝑊𝑘))) = (𝑎 ∈ ℤ ↦ (𝑎 · (𝑊𝐼))))
3231rneqd 5491 . . . . . . . 8 (𝑘 = 𝐼 → ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑊𝑘))) = ran (𝑎 ∈ ℤ ↦ (𝑎 · (𝑊𝐼))))
3332, 15, 14fvmpt3i 6429 . . . . . . 7 (𝐼 ∈ dom 𝑊 → (𝑆𝐼) = ran (𝑎 ∈ ℤ ↦ (𝑎 · (𝑊𝐼))))
3425, 33syl 17 . . . . . 6 ((𝜑𝑣𝑈) → (𝑆𝐼) = ran (𝑎 ∈ ℤ ↦ (𝑎 · (𝑊𝐼))))
3524, 34eleqtrd 2852 . . . . 5 ((𝜑𝑣𝑈) → ((𝑃𝐼)‘𝑣) ∈ ran (𝑎 ∈ ℤ ↦ (𝑎 · (𝑊𝐼))))
36 eqid 2771 . . . . . 6 (𝑎 ∈ ℤ ↦ (𝑎 · (𝑊𝐼))) = (𝑎 ∈ ℤ ↦ (𝑎 · (𝑊𝐼)))
37 ovex 6823 . . . . . 6 (𝑎 · (𝑊𝐼)) ∈ V
3836, 37elrnmpti 5514 . . . . 5 (((𝑃𝐼)‘𝑣) ∈ ran (𝑎 ∈ ℤ ↦ (𝑎 · (𝑊𝐼))) ↔ ∃𝑎 ∈ ℤ ((𝑃𝐼)‘𝑣) = (𝑎 · (𝑊𝐼)))
3935, 38sylib 208 . . . 4 ((𝜑𝑣𝑈) → ∃𝑎 ∈ ℤ ((𝑃𝐼)‘𝑣) = (𝑎 · (𝑊𝐼)))
40 dchrpt.1 . . . . . 6 1 = (1r𝑍)
41 dchrpt.n1 . . . . . 6 (𝜑𝐴1 )
42 dchrpt.h . . . . . 6 𝐻 = ((mulGrp‘𝑍) ↾s 𝑈)
43 dchrpt.m . . . . . 6 · = (.g𝐻)
44 dchrpt.au . . . . . 6 (𝜑𝐴𝑈)
45 dchrpt.w . . . . . 6 (𝜑𝑊 ∈ Word 𝑈)
46 dchrpt.o . . . . . 6 𝑂 = (od‘𝐻)
47 dchrpt.t . . . . . 6 𝑇 = (-1↑𝑐(2 / (𝑂‘(𝑊𝐼))))
48 dchrpt.4 . . . . . 6 (𝜑 → ((𝑃𝐼)‘𝐴) ≠ 1 )
49 dchrpt.5 . . . . . 6 𝑋 = (𝑢𝑈 ↦ (℩𝑚 ∈ ℤ (((𝑃𝐼)‘𝑢) = (𝑚 · (𝑊𝐼)) ∧ = (𝑇𝑚))))
501, 2, 6, 3, 40, 5, 41, 4, 42, 43, 15, 44, 45, 11, 21, 18, 46, 47, 19, 48, 49dchrptlem1 25210 . . . . 5 (((𝜑𝑣𝑈) ∧ (𝑎 ∈ ℤ ∧ ((𝑃𝐼)‘𝑣) = (𝑎 · (𝑊𝐼)))) → (𝑋𝑣) = (𝑇𝑎))
51 neg1cn 11326 . . . . . . . . 9 -1 ∈ ℂ
52 2re 11292 . . . . . . . . . . 11 2 ∈ ℝ
535nnnn0d 11553 . . . . . . . . . . . . . 14 (𝜑𝑁 ∈ ℕ0)
542zncrng 20108 . . . . . . . . . . . . . 14 (𝑁 ∈ ℕ0𝑍 ∈ CRing)
55 crngring 18766 . . . . . . . . . . . . . 14 (𝑍 ∈ CRing → 𝑍 ∈ Ring)
5653, 54, 553syl 18 . . . . . . . . . . . . 13 (𝜑𝑍 ∈ Ring)
574, 42unitgrp 18875 . . . . . . . . . . . . 13 (𝑍 ∈ Ring → 𝐻 ∈ Grp)
5856, 57syl 17 . . . . . . . . . . . 12 (𝜑𝐻 ∈ Grp)
592, 3znfi 20123 . . . . . . . . . . . . . 14 (𝑁 ∈ ℕ → 𝐵 ∈ Fin)
605, 59syl 17 . . . . . . . . . . . . 13 (𝜑𝐵 ∈ Fin)
613, 4unitss 18868 . . . . . . . . . . . . 13 𝑈𝐵
62 ssfi 8336 . . . . . . . . . . . . 13 ((𝐵 ∈ Fin ∧ 𝑈𝐵) → 𝑈 ∈ Fin)
6360, 61, 62sylancl 574 . . . . . . . . . . . 12 (𝜑𝑈 ∈ Fin)
64 wrdf 13506 . . . . . . . . . . . . . 14 (𝑊 ∈ Word 𝑈𝑊:(0..^(♯‘𝑊))⟶𝑈)
6545, 64syl 17 . . . . . . . . . . . . 13 (𝜑𝑊:(0..^(♯‘𝑊))⟶𝑈)
66 fdm 6191 . . . . . . . . . . . . . . 15 (𝑊:(0..^(♯‘𝑊))⟶𝑈 → dom 𝑊 = (0..^(♯‘𝑊)))
6765, 66syl 17 . . . . . . . . . . . . . 14 (𝜑 → dom 𝑊 = (0..^(♯‘𝑊)))
6819, 67eleqtrd 2852 . . . . . . . . . . . . 13 (𝜑𝐼 ∈ (0..^(♯‘𝑊)))
6965, 68ffvelrnd 6503 . . . . . . . . . . . 12 (𝜑 → (𝑊𝐼) ∈ 𝑈)
704, 42unitgrpbas 18874 . . . . . . . . . . . . 13 𝑈 = (Base‘𝐻)
7170, 46odcl2 18189 . . . . . . . . . . . 12 ((𝐻 ∈ Grp ∧ 𝑈 ∈ Fin ∧ (𝑊𝐼) ∈ 𝑈) → (𝑂‘(𝑊𝐼)) ∈ ℕ)
7258, 63, 69, 71syl3anc 1476 . . . . . . . . . . 11 (𝜑 → (𝑂‘(𝑊𝐼)) ∈ ℕ)
73 nndivre 11258 . . . . . . . . . . 11 ((2 ∈ ℝ ∧ (𝑂‘(𝑊𝐼)) ∈ ℕ) → (2 / (𝑂‘(𝑊𝐼))) ∈ ℝ)
7452, 72, 73sylancr 575 . . . . . . . . . 10 (𝜑 → (2 / (𝑂‘(𝑊𝐼))) ∈ ℝ)
7574recnd 10270 . . . . . . . . 9 (𝜑 → (2 / (𝑂‘(𝑊𝐼))) ∈ ℂ)
76 cxpcl 24641 . . . . . . . . 9 ((-1 ∈ ℂ ∧ (2 / (𝑂‘(𝑊𝐼))) ∈ ℂ) → (-1↑𝑐(2 / (𝑂‘(𝑊𝐼)))) ∈ ℂ)
7751, 75, 76sylancr 575 . . . . . . . 8 (𝜑 → (-1↑𝑐(2 / (𝑂‘(𝑊𝐼)))) ∈ ℂ)
7847, 77syl5eqel 2854 . . . . . . 7 (𝜑𝑇 ∈ ℂ)
7978ad2antrr 705 . . . . . 6 (((𝜑𝑣𝑈) ∧ (𝑎 ∈ ℤ ∧ ((𝑃𝐼)‘𝑣) = (𝑎 · (𝑊𝐼)))) → 𝑇 ∈ ℂ)
8051a1i 11 . . . . . . . . 9 (𝜑 → -1 ∈ ℂ)
81 neg1ne0 11328 . . . . . . . . . 10 -1 ≠ 0
8281a1i 11 . . . . . . . . 9 (𝜑 → -1 ≠ 0)
8380, 82, 75cxpne0d 24680 . . . . . . . 8 (𝜑 → (-1↑𝑐(2 / (𝑂‘(𝑊𝐼)))) ≠ 0)
8447neeq1i 3007 . . . . . . . 8 (𝑇 ≠ 0 ↔ (-1↑𝑐(2 / (𝑂‘(𝑊𝐼)))) ≠ 0)
8583, 84sylibr 224 . . . . . . 7 (𝜑𝑇 ≠ 0)
8685ad2antrr 705 . . . . . 6 (((𝜑𝑣𝑈) ∧ (𝑎 ∈ ℤ ∧ ((𝑃𝐼)‘𝑣) = (𝑎 · (𝑊𝐼)))) → 𝑇 ≠ 0)
87 simprl 754 . . . . . 6 (((𝜑𝑣𝑈) ∧ (𝑎 ∈ ℤ ∧ ((𝑃𝐼)‘𝑣) = (𝑎 · (𝑊𝐼)))) → 𝑎 ∈ ℤ)
8879, 86, 87expclzd 13220 . . . . 5 (((𝜑𝑣𝑈) ∧ (𝑎 ∈ ℤ ∧ ((𝑃𝐼)‘𝑣) = (𝑎 · (𝑊𝐼)))) → (𝑇𝑎) ∈ ℂ)
8950, 88eqeltrd 2850 . . . 4 (((𝜑𝑣𝑈) ∧ (𝑎 ∈ ℤ ∧ ((𝑃𝐼)‘𝑣) = (𝑎 · (𝑊𝐼)))) → (𝑋𝑣) ∈ ℂ)
9039, 89rexlimddv 3183 . . 3 ((𝜑𝑣𝑈) → (𝑋𝑣) ∈ ℂ)
91 fveq2 6332 . . . . . . 7 (𝑣 = 𝑥 → ((𝑃𝐼)‘𝑣) = ((𝑃𝐼)‘𝑥))
9291eqeq1d 2773 . . . . . 6 (𝑣 = 𝑥 → (((𝑃𝐼)‘𝑣) = (𝑎 · (𝑊𝐼)) ↔ ((𝑃𝐼)‘𝑥) = (𝑎 · (𝑊𝐼))))
9392rexbidv 3200 . . . . 5 (𝑣 = 𝑥 → (∃𝑎 ∈ ℤ ((𝑃𝐼)‘𝑣) = (𝑎 · (𝑊𝐼)) ↔ ∃𝑎 ∈ ℤ ((𝑃𝐼)‘𝑥) = (𝑎 · (𝑊𝐼))))
9439ralrimiva 3115 . . . . . 6 (𝜑 → ∀𝑣𝑈𝑎 ∈ ℤ ((𝑃𝐼)‘𝑣) = (𝑎 · (𝑊𝐼)))
9594adantr 466 . . . . 5 ((𝜑 ∧ (𝑥𝑈𝑦𝑈)) → ∀𝑣𝑈𝑎 ∈ ℤ ((𝑃𝐼)‘𝑣) = (𝑎 · (𝑊𝐼)))
96 simprl 754 . . . . 5 ((𝜑 ∧ (𝑥𝑈𝑦𝑈)) → 𝑥𝑈)
9793, 95, 96rspcdva 3466 . . . 4 ((𝜑 ∧ (𝑥𝑈𝑦𝑈)) → ∃𝑎 ∈ ℤ ((𝑃𝐼)‘𝑥) = (𝑎 · (𝑊𝐼)))
98 fveq2 6332 . . . . . . . 8 (𝑣 = 𝑦 → ((𝑃𝐼)‘𝑣) = ((𝑃𝐼)‘𝑦))
9998eqeq1d 2773 . . . . . . 7 (𝑣 = 𝑦 → (((𝑃𝐼)‘𝑣) = (𝑎 · (𝑊𝐼)) ↔ ((𝑃𝐼)‘𝑦) = (𝑎 · (𝑊𝐼))))
10099rexbidv 3200 . . . . . 6 (𝑣 = 𝑦 → (∃𝑎 ∈ ℤ ((𝑃𝐼)‘𝑣) = (𝑎 · (𝑊𝐼)) ↔ ∃𝑎 ∈ ℤ ((𝑃𝐼)‘𝑦) = (𝑎 · (𝑊𝐼))))
101 oveq1 6800 . . . . . . . 8 (𝑎 = 𝑏 → (𝑎 · (𝑊𝐼)) = (𝑏 · (𝑊𝐼)))
102101eqeq2d 2781 . . . . . . 7 (𝑎 = 𝑏 → (((𝑃𝐼)‘𝑦) = (𝑎 · (𝑊𝐼)) ↔ ((𝑃𝐼)‘𝑦) = (𝑏 · (𝑊𝐼))))
103102cbvrexv 3321 . . . . . 6 (∃𝑎 ∈ ℤ ((𝑃𝐼)‘𝑦) = (𝑎 · (𝑊𝐼)) ↔ ∃𝑏 ∈ ℤ ((𝑃𝐼)‘𝑦) = (𝑏 · (𝑊𝐼)))
104100, 103syl6bb 276 . . . . 5 (𝑣 = 𝑦 → (∃𝑎 ∈ ℤ ((𝑃𝐼)‘𝑣) = (𝑎 · (𝑊𝐼)) ↔ ∃𝑏 ∈ ℤ ((𝑃𝐼)‘𝑦) = (𝑏 · (𝑊𝐼))))
105 simprr 756 . . . . 5 ((𝜑 ∧ (𝑥𝑈𝑦𝑈)) → 𝑦𝑈)
106104, 95, 105rspcdva 3466 . . . 4 ((𝜑 ∧ (𝑥𝑈𝑦𝑈)) → ∃𝑏 ∈ ℤ ((𝑃𝐼)‘𝑦) = (𝑏 · (𝑊𝐼)))
107 reeanv 3255 . . . . 5 (∃𝑎 ∈ ℤ ∃𝑏 ∈ ℤ (((𝑃𝐼)‘𝑥) = (𝑎 · (𝑊𝐼)) ∧ ((𝑃𝐼)‘𝑦) = (𝑏 · (𝑊𝐼))) ↔ (∃𝑎 ∈ ℤ ((𝑃𝐼)‘𝑥) = (𝑎 · (𝑊𝐼)) ∧ ∃𝑏 ∈ ℤ ((𝑃𝐼)‘𝑦) = (𝑏 · (𝑊𝐼))))
10878ad2antrr 705 . . . . . . . . 9 (((𝜑 ∧ (𝑥𝑈𝑦𝑈)) ∧ ((𝑎 ∈ ℤ ∧ 𝑏 ∈ ℤ) ∧ (((𝑃𝐼)‘𝑥) = (𝑎 · (𝑊𝐼)) ∧ ((𝑃𝐼)‘𝑦) = (𝑏 · (𝑊𝐼))))) → 𝑇 ∈ ℂ)
10985ad2antrr 705 . . . . . . . . 9 (((𝜑 ∧ (𝑥𝑈𝑦𝑈)) ∧ ((𝑎 ∈ ℤ ∧ 𝑏 ∈ ℤ) ∧ (((𝑃𝐼)‘𝑥) = (𝑎 · (𝑊𝐼)) ∧ ((𝑃𝐼)‘𝑦) = (𝑏 · (𝑊𝐼))))) → 𝑇 ≠ 0)
110 simprll 764 . . . . . . . . 9 (((𝜑 ∧ (𝑥𝑈𝑦𝑈)) ∧ ((𝑎 ∈ ℤ ∧ 𝑏 ∈ ℤ) ∧ (((𝑃𝐼)‘𝑥) = (𝑎 · (𝑊𝐼)) ∧ ((𝑃𝐼)‘𝑦) = (𝑏 · (𝑊𝐼))))) → 𝑎 ∈ ℤ)
111 simprlr 765 . . . . . . . . 9 (((𝜑 ∧ (𝑥𝑈𝑦𝑈)) ∧ ((𝑎 ∈ ℤ ∧ 𝑏 ∈ ℤ) ∧ (((𝑃𝐼)‘𝑥) = (𝑎 · (𝑊𝐼)) ∧ ((𝑃𝐼)‘𝑦) = (𝑏 · (𝑊𝐼))))) → 𝑏 ∈ ℤ)
112 expaddz 13111 . . . . . . . . 9 (((𝑇 ∈ ℂ ∧ 𝑇 ≠ 0) ∧ (𝑎 ∈ ℤ ∧ 𝑏 ∈ ℤ)) → (𝑇↑(𝑎 + 𝑏)) = ((𝑇𝑎) · (𝑇𝑏)))
113108, 109, 110, 111, 112syl22anc 1477 . . . . . . . 8 (((𝜑 ∧ (𝑥𝑈𝑦𝑈)) ∧ ((𝑎 ∈ ℤ ∧ 𝑏 ∈ ℤ) ∧ (((𝑃𝐼)‘𝑥) = (𝑎 · (𝑊𝐼)) ∧ ((𝑃𝐼)‘𝑦) = (𝑏 · (𝑊𝐼))))) → (𝑇↑(𝑎 + 𝑏)) = ((𝑇𝑎) · (𝑇𝑏)))
114 simpll 750 . . . . . . . . 9 (((𝜑 ∧ (𝑥𝑈𝑦𝑈)) ∧ ((𝑎 ∈ ℤ ∧ 𝑏 ∈ ℤ) ∧ (((𝑃𝐼)‘𝑥) = (𝑎 · (𝑊𝐼)) ∧ ((𝑃𝐼)‘𝑦) = (𝑏 · (𝑊𝐼))))) → 𝜑)
11556ad2antrr 705 . . . . . . . . . 10 (((𝜑 ∧ (𝑥𝑈𝑦𝑈)) ∧ ((𝑎 ∈ ℤ ∧ 𝑏 ∈ ℤ) ∧ (((𝑃𝐼)‘𝑥) = (𝑎 · (𝑊𝐼)) ∧ ((𝑃𝐼)‘𝑦) = (𝑏 · (𝑊𝐼))))) → 𝑍 ∈ Ring)
11696adantr 466 . . . . . . . . . 10 (((𝜑 ∧ (𝑥𝑈𝑦𝑈)) ∧ ((𝑎 ∈ ℤ ∧ 𝑏 ∈ ℤ) ∧ (((𝑃𝐼)‘𝑥) = (𝑎 · (𝑊𝐼)) ∧ ((𝑃𝐼)‘𝑦) = (𝑏 · (𝑊𝐼))))) → 𝑥𝑈)
117105adantr 466 . . . . . . . . . 10 (((𝜑 ∧ (𝑥𝑈𝑦𝑈)) ∧ ((𝑎 ∈ ℤ ∧ 𝑏 ∈ ℤ) ∧ (((𝑃𝐼)‘𝑥) = (𝑎 · (𝑊𝐼)) ∧ ((𝑃𝐼)‘𝑦) = (𝑏 · (𝑊𝐼))))) → 𝑦𝑈)
118 eqid 2771 . . . . . . . . . . 11 (.r𝑍) = (.r𝑍)
1194, 118unitmulcl 18872 . . . . . . . . . 10 ((𝑍 ∈ Ring ∧ 𝑥𝑈𝑦𝑈) → (𝑥(.r𝑍)𝑦) ∈ 𝑈)
120115, 116, 117, 119syl3anc 1476 . . . . . . . . 9 (((𝜑 ∧ (𝑥𝑈𝑦𝑈)) ∧ ((𝑎 ∈ ℤ ∧ 𝑏 ∈ ℤ) ∧ (((𝑃𝐼)‘𝑥) = (𝑎 · (𝑊𝐼)) ∧ ((𝑃𝐼)‘𝑦) = (𝑏 · (𝑊𝐼))))) → (𝑥(.r𝑍)𝑦) ∈ 𝑈)
121110, 111zaddcld 11688 . . . . . . . . 9 (((𝜑 ∧ (𝑥𝑈𝑦𝑈)) ∧ ((𝑎 ∈ ℤ ∧ 𝑏 ∈ ℤ) ∧ (((𝑃𝐼)‘𝑥) = (𝑎 · (𝑊𝐼)) ∧ ((𝑃𝐼)‘𝑦) = (𝑏 · (𝑊𝐼))))) → (𝑎 + 𝑏) ∈ ℤ)
122 simprrl 766 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥𝑈𝑦𝑈)) ∧ ((𝑎 ∈ ℤ ∧ 𝑏 ∈ ℤ) ∧ (((𝑃𝐼)‘𝑥) = (𝑎 · (𝑊𝐼)) ∧ ((𝑃𝐼)‘𝑦) = (𝑏 · (𝑊𝐼))))) → ((𝑃𝐼)‘𝑥) = (𝑎 · (𝑊𝐼)))
123 simprrr 767 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥𝑈𝑦𝑈)) ∧ ((𝑎 ∈ ℤ ∧ 𝑏 ∈ ℤ) ∧ (((𝑃𝐼)‘𝑥) = (𝑎 · (𝑊𝐼)) ∧ ((𝑃𝐼)‘𝑦) = (𝑏 · (𝑊𝐼))))) → ((𝑃𝐼)‘𝑦) = (𝑏 · (𝑊𝐼)))
124122, 123oveq12d 6811 . . . . . . . . . 10 (((𝜑 ∧ (𝑥𝑈𝑦𝑈)) ∧ ((𝑎 ∈ ℤ ∧ 𝑏 ∈ ℤ) ∧ (((𝑃𝐼)‘𝑥) = (𝑎 · (𝑊𝐼)) ∧ ((𝑃𝐼)‘𝑦) = (𝑏 · (𝑊𝐼))))) → (((𝑃𝐼)‘𝑥)(.r𝑍)((𝑃𝐼)‘𝑦)) = ((𝑎 · (𝑊𝐼))(.r𝑍)(𝑏 · (𝑊𝐼))))
12511, 17, 18, 19dpjghm 18670 . . . . . . . . . . . . 13 (𝜑 → (𝑃𝐼) ∈ ((𝐻s (𝐻 DProd 𝑆)) GrpHom 𝐻))
12621oveq2d 6809 . . . . . . . . . . . . . . 15 (𝜑 → (𝐻s (𝐻 DProd 𝑆)) = (𝐻s 𝑈))
127 ovex 6823 . . . . . . . . . . . . . . . . 17 ((mulGrp‘𝑍) ↾s 𝑈) ∈ V
12842, 127eqeltri 2846 . . . . . . . . . . . . . . . 16 𝐻 ∈ V
12970ressid 16142 . . . . . . . . . . . . . . . 16 (𝐻 ∈ V → (𝐻s 𝑈) = 𝐻)
130128, 129ax-mp 5 . . . . . . . . . . . . . . 15 (𝐻s 𝑈) = 𝐻
131126, 130syl6eq 2821 . . . . . . . . . . . . . 14 (𝜑 → (𝐻s (𝐻 DProd 𝑆)) = 𝐻)
132131oveq1d 6808 . . . . . . . . . . . . 13 (𝜑 → ((𝐻s (𝐻 DProd 𝑆)) GrpHom 𝐻) = (𝐻 GrpHom 𝐻))
133125, 132eleqtrd 2852 . . . . . . . . . . . 12 (𝜑 → (𝑃𝐼) ∈ (𝐻 GrpHom 𝐻))
134133ad2antrr 705 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥𝑈𝑦𝑈)) ∧ ((𝑎 ∈ ℤ ∧ 𝑏 ∈ ℤ) ∧ (((𝑃𝐼)‘𝑥) = (𝑎 · (𝑊𝐼)) ∧ ((𝑃𝐼)‘𝑦) = (𝑏 · (𝑊𝐼))))) → (𝑃𝐼) ∈ (𝐻 GrpHom 𝐻))
135 fvex 6342 . . . . . . . . . . . . . 14 (Unit‘𝑍) ∈ V
1364, 135eqeltri 2846 . . . . . . . . . . . . 13 𝑈 ∈ V
137 eqid 2771 . . . . . . . . . . . . . . 15 (mulGrp‘𝑍) = (mulGrp‘𝑍)
138137, 118mgpplusg 18701 . . . . . . . . . . . . . 14 (.r𝑍) = (+g‘(mulGrp‘𝑍))
13942, 138ressplusg 16201 . . . . . . . . . . . . 13 (𝑈 ∈ V → (.r𝑍) = (+g𝐻))
140136, 139ax-mp 5 . . . . . . . . . . . 12 (.r𝑍) = (+g𝐻)
14170, 140, 140ghmlin 17873 . . . . . . . . . . 11 (((𝑃𝐼) ∈ (𝐻 GrpHom 𝐻) ∧ 𝑥𝑈𝑦𝑈) → ((𝑃𝐼)‘(𝑥(.r𝑍)𝑦)) = (((𝑃𝐼)‘𝑥)(.r𝑍)((𝑃𝐼)‘𝑦)))
142134, 116, 117, 141syl3anc 1476 . . . . . . . . . 10 (((𝜑 ∧ (𝑥𝑈𝑦𝑈)) ∧ ((𝑎 ∈ ℤ ∧ 𝑏 ∈ ℤ) ∧ (((𝑃𝐼)‘𝑥) = (𝑎 · (𝑊𝐼)) ∧ ((𝑃𝐼)‘𝑦) = (𝑏 · (𝑊𝐼))))) → ((𝑃𝐼)‘(𝑥(.r𝑍)𝑦)) = (((𝑃𝐼)‘𝑥)(.r𝑍)((𝑃𝐼)‘𝑦)))
14358ad2antrr 705 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥𝑈𝑦𝑈)) ∧ ((𝑎 ∈ ℤ ∧ 𝑏 ∈ ℤ) ∧ (((𝑃𝐼)‘𝑥) = (𝑎 · (𝑊𝐼)) ∧ ((𝑃𝐼)‘𝑦) = (𝑏 · (𝑊𝐼))))) → 𝐻 ∈ Grp)
14469ad2antrr 705 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥𝑈𝑦𝑈)) ∧ ((𝑎 ∈ ℤ ∧ 𝑏 ∈ ℤ) ∧ (((𝑃𝐼)‘𝑥) = (𝑎 · (𝑊𝐼)) ∧ ((𝑃𝐼)‘𝑦) = (𝑏 · (𝑊𝐼))))) → (𝑊𝐼) ∈ 𝑈)
14570, 43, 140mulgdir 17781 . . . . . . . . . . 11 ((𝐻 ∈ Grp ∧ (𝑎 ∈ ℤ ∧ 𝑏 ∈ ℤ ∧ (𝑊𝐼) ∈ 𝑈)) → ((𝑎 + 𝑏) · (𝑊𝐼)) = ((𝑎 · (𝑊𝐼))(.r𝑍)(𝑏 · (𝑊𝐼))))
146143, 110, 111, 144, 145syl13anc 1478 . . . . . . . . . 10 (((𝜑 ∧ (𝑥𝑈𝑦𝑈)) ∧ ((𝑎 ∈ ℤ ∧ 𝑏 ∈ ℤ) ∧ (((𝑃𝐼)‘𝑥) = (𝑎 · (𝑊𝐼)) ∧ ((𝑃𝐼)‘𝑦) = (𝑏 · (𝑊𝐼))))) → ((𝑎 + 𝑏) · (𝑊𝐼)) = ((𝑎 · (𝑊𝐼))(.r𝑍)(𝑏 · (𝑊𝐼))))
147124, 142, 1463eqtr4d 2815 . . . . . . . . 9 (((𝜑 ∧ (𝑥𝑈𝑦𝑈)) ∧ ((𝑎 ∈ ℤ ∧ 𝑏 ∈ ℤ) ∧ (((𝑃𝐼)‘𝑥) = (𝑎 · (𝑊𝐼)) ∧ ((𝑃𝐼)‘𝑦) = (𝑏 · (𝑊𝐼))))) → ((𝑃𝐼)‘(𝑥(.r𝑍)𝑦)) = ((𝑎 + 𝑏) · (𝑊𝐼)))
1481, 2, 6, 3, 40, 5, 41, 4, 42, 43, 15, 44, 45, 11, 21, 18, 46, 47, 19, 48, 49dchrptlem1 25210 . . . . . . . . 9 (((𝜑 ∧ (𝑥(.r𝑍)𝑦) ∈ 𝑈) ∧ ((𝑎 + 𝑏) ∈ ℤ ∧ ((𝑃𝐼)‘(𝑥(.r𝑍)𝑦)) = ((𝑎 + 𝑏) · (𝑊𝐼)))) → (𝑋‘(𝑥(.r𝑍)𝑦)) = (𝑇↑(𝑎 + 𝑏)))
149114, 120, 121, 147, 148syl22anc 1477 . . . . . . . 8 (((𝜑 ∧ (𝑥𝑈𝑦𝑈)) ∧ ((𝑎 ∈ ℤ ∧ 𝑏 ∈ ℤ) ∧ (((𝑃𝐼)‘𝑥) = (𝑎 · (𝑊𝐼)) ∧ ((𝑃𝐼)‘𝑦) = (𝑏 · (𝑊𝐼))))) → (𝑋‘(𝑥(.r𝑍)𝑦)) = (𝑇↑(𝑎 + 𝑏)))
1501, 2, 6, 3, 40, 5, 41, 4, 42, 43, 15, 44, 45, 11, 21, 18, 46, 47, 19, 48, 49dchrptlem1 25210 . . . . . . . . . 10 (((𝜑𝑥𝑈) ∧ (𝑎 ∈ ℤ ∧ ((𝑃𝐼)‘𝑥) = (𝑎 · (𝑊𝐼)))) → (𝑋𝑥) = (𝑇𝑎))
151114, 116, 110, 122, 150syl22anc 1477 . . . . . . . . 9 (((𝜑 ∧ (𝑥𝑈𝑦𝑈)) ∧ ((𝑎 ∈ ℤ ∧ 𝑏 ∈ ℤ) ∧ (((𝑃𝐼)‘𝑥) = (𝑎 · (𝑊𝐼)) ∧ ((𝑃𝐼)‘𝑦) = (𝑏 · (𝑊𝐼))))) → (𝑋𝑥) = (𝑇𝑎))
1521, 2, 6, 3, 40, 5, 41, 4, 42, 43, 15, 44, 45, 11, 21, 18, 46, 47, 19, 48, 49dchrptlem1 25210 . . . . . . . . . 10 (((𝜑𝑦𝑈) ∧ (𝑏 ∈ ℤ ∧ ((𝑃𝐼)‘𝑦) = (𝑏 · (𝑊𝐼)))) → (𝑋𝑦) = (𝑇𝑏))
153114, 117, 111, 123, 152syl22anc 1477 . . . . . . . . 9 (((𝜑 ∧ (𝑥𝑈𝑦𝑈)) ∧ ((𝑎 ∈ ℤ ∧ 𝑏 ∈ ℤ) ∧ (((𝑃𝐼)‘𝑥) = (𝑎 · (𝑊𝐼)) ∧ ((𝑃𝐼)‘𝑦) = (𝑏 · (𝑊𝐼))))) → (𝑋𝑦) = (𝑇𝑏))
154151, 153oveq12d 6811 . . . . . . . 8 (((𝜑 ∧ (𝑥𝑈𝑦𝑈)) ∧ ((𝑎 ∈ ℤ ∧ 𝑏 ∈ ℤ) ∧ (((𝑃𝐼)‘𝑥) = (𝑎 · (𝑊𝐼)) ∧ ((𝑃𝐼)‘𝑦) = (𝑏 · (𝑊𝐼))))) → ((𝑋𝑥) · (𝑋𝑦)) = ((𝑇𝑎) · (𝑇𝑏)))
155113, 149, 1543eqtr4d 2815 . . . . . . 7 (((𝜑 ∧ (𝑥𝑈𝑦𝑈)) ∧ ((𝑎 ∈ ℤ ∧ 𝑏 ∈ ℤ) ∧ (((𝑃𝐼)‘𝑥) = (𝑎 · (𝑊𝐼)) ∧ ((𝑃𝐼)‘𝑦) = (𝑏 · (𝑊𝐼))))) → (𝑋‘(𝑥(.r𝑍)𝑦)) = ((𝑋𝑥) · (𝑋𝑦)))
156155expr 444 . . . . . 6 (((𝜑 ∧ (𝑥𝑈𝑦𝑈)) ∧ (𝑎 ∈ ℤ ∧ 𝑏 ∈ ℤ)) → ((((𝑃𝐼)‘𝑥) = (𝑎 · (𝑊𝐼)) ∧ ((𝑃𝐼)‘𝑦) = (𝑏 · (𝑊𝐼))) → (𝑋‘(𝑥(.r𝑍)𝑦)) = ((𝑋𝑥) · (𝑋𝑦))))
157156rexlimdvva 3186 . . . . 5 ((𝜑 ∧ (𝑥𝑈𝑦𝑈)) → (∃𝑎 ∈ ℤ ∃𝑏 ∈ ℤ (((𝑃𝐼)‘𝑥) = (𝑎 · (𝑊𝐼)) ∧ ((𝑃𝐼)‘𝑦) = (𝑏 · (𝑊𝐼))) → (𝑋‘(𝑥(.r𝑍)𝑦)) = ((𝑋𝑥) · (𝑋𝑦))))
158107, 157syl5bir 233 . . . 4 ((𝜑 ∧ (𝑥𝑈𝑦𝑈)) → ((∃𝑎 ∈ ℤ ((𝑃𝐼)‘𝑥) = (𝑎 · (𝑊𝐼)) ∧ ∃𝑏 ∈ ℤ ((𝑃𝐼)‘𝑦) = (𝑏 · (𝑊𝐼))) → (𝑋‘(𝑥(.r𝑍)𝑦)) = ((𝑋𝑥) · (𝑋𝑦))))
15997, 106, 158mp2and 679 . . 3 ((𝜑 ∧ (𝑥𝑈𝑦𝑈)) → (𝑋‘(𝑥(.r𝑍)𝑦)) = ((𝑋𝑥) · (𝑋𝑦)))
160 id 22 . . . . 5 (𝜑𝜑)
161 eqid 2771 . . . . . . 7 (1r𝑍) = (1r𝑍)
1624, 1611unit 18866 . . . . . 6 (𝑍 ∈ Ring → (1r𝑍) ∈ 𝑈)
16356, 162syl 17 . . . . 5 (𝜑 → (1r𝑍) ∈ 𝑈)
164 0zd 11591 . . . . 5 (𝜑 → 0 ∈ ℤ)
165 eqid 2771 . . . . . . . 8 (0g𝐻) = (0g𝐻)
166165, 165ghmid 17874 . . . . . . 7 ((𝑃𝐼) ∈ (𝐻 GrpHom 𝐻) → ((𝑃𝐼)‘(0g𝐻)) = (0g𝐻))
167133, 166syl 17 . . . . . 6 (𝜑 → ((𝑃𝐼)‘(0g𝐻)) = (0g𝐻))
1684, 42, 161unitgrpid 18877 . . . . . . . 8 (𝑍 ∈ Ring → (1r𝑍) = (0g𝐻))
16956, 168syl 17 . . . . . . 7 (𝜑 → (1r𝑍) = (0g𝐻))
170169fveq2d 6336 . . . . . 6 (𝜑 → ((𝑃𝐼)‘(1r𝑍)) = ((𝑃𝐼)‘(0g𝐻)))
17170, 165, 43mulg0 17754 . . . . . . 7 ((𝑊𝐼) ∈ 𝑈 → (0 · (𝑊𝐼)) = (0g𝐻))
17269, 171syl 17 . . . . . 6 (𝜑 → (0 · (𝑊𝐼)) = (0g𝐻))
173167, 170, 1723eqtr4d 2815 . . . . 5 (𝜑 → ((𝑃𝐼)‘(1r𝑍)) = (0 · (𝑊𝐼)))
1741, 2, 6, 3, 40, 5, 41, 4, 42, 43, 15, 44, 45, 11, 21, 18, 46, 47, 19, 48, 49dchrptlem1 25210 . . . . 5 (((𝜑 ∧ (1r𝑍) ∈ 𝑈) ∧ (0 ∈ ℤ ∧ ((𝑃𝐼)‘(1r𝑍)) = (0 · (𝑊𝐼)))) → (𝑋‘(1r𝑍)) = (𝑇↑0))
175160, 163, 164, 173, 174syl22anc 1477 . . . 4 (𝜑 → (𝑋‘(1r𝑍)) = (𝑇↑0))
17678exp0d 13209 . . . 4 (𝜑 → (𝑇↑0) = 1)
177175, 176eqtrd 2805 . . 3 (𝜑 → (𝑋‘(1r𝑍)) = 1)
1781, 2, 3, 4, 5, 6, 7, 8, 9, 10, 90, 159, 177dchrelbasd 25185 . 2 (𝜑 → (𝑣𝐵 ↦ if(𝑣𝑈, (𝑋𝑣), 0)) ∈ 𝐷)
17961, 44sseldi 3750 . . . . 5 (𝜑𝐴𝐵)
180 eleq1 2838 . . . . . . 7 (𝑣 = 𝐴 → (𝑣𝑈𝐴𝑈))
181 fveq2 6332 . . . . . . 7 (𝑣 = 𝐴 → (𝑋𝑣) = (𝑋𝐴))
182180, 181ifbieq1d 4248 . . . . . 6 (𝑣 = 𝐴 → if(𝑣𝑈, (𝑋𝑣), 0) = if(𝐴𝑈, (𝑋𝐴), 0))
183 eqid 2771 . . . . . 6 (𝑣𝐵 ↦ if(𝑣𝑈, (𝑋𝑣), 0)) = (𝑣𝐵 ↦ if(𝑣𝑈, (𝑋𝑣), 0))
184 fvex 6342 . . . . . . 7 (𝑋𝑣) ∈ V
185 c0ex 10236 . . . . . . 7 0 ∈ V
186184, 185ifex 4295 . . . . . 6 if(𝑣𝑈, (𝑋𝑣), 0) ∈ V
187182, 183, 186fvmpt3i 6429 . . . . 5 (𝐴𝐵 → ((𝑣𝐵 ↦ if(𝑣𝑈, (𝑋𝑣), 0))‘𝐴) = if(𝐴𝑈, (𝑋𝐴), 0))
188179, 187syl 17 . . . 4 (𝜑 → ((𝑣𝐵 ↦ if(𝑣𝑈, (𝑋𝑣), 0))‘𝐴) = if(𝐴𝑈, (𝑋𝐴), 0))
18944iftrued 4233 . . . 4 (𝜑 → if(𝐴𝑈, (𝑋𝐴), 0) = (𝑋𝐴))
190188, 189eqtrd 2805 . . 3 (𝜑 → ((𝑣𝐵 ↦ if(𝑣𝑈, (𝑋𝑣), 0))‘𝐴) = (𝑋𝐴))
191 fveq2 6332 . . . . . . 7 (𝑣 = 𝐴 → ((𝑃𝐼)‘𝑣) = ((𝑃𝐼)‘𝐴))
192191eqeq1d 2773 . . . . . 6 (𝑣 = 𝐴 → (((𝑃𝐼)‘𝑣) = (𝑎 · (𝑊𝐼)) ↔ ((𝑃𝐼)‘𝐴) = (𝑎 · (𝑊𝐼))))
193192rexbidv 3200 . . . . 5 (𝑣 = 𝐴 → (∃𝑎 ∈ ℤ ((𝑃𝐼)‘𝑣) = (𝑎 · (𝑊𝐼)) ↔ ∃𝑎 ∈ ℤ ((𝑃𝐼)‘𝐴) = (𝑎 · (𝑊𝐼))))
194193, 94, 44rspcdva 3466 . . . 4 (𝜑 → ∃𝑎 ∈ ℤ ((𝑃𝐼)‘𝐴) = (𝑎 · (𝑊𝐼)))
1951, 2, 6, 3, 40, 5, 41, 4, 42, 43, 15, 44, 45, 11, 21, 18, 46, 47, 19, 48, 49dchrptlem1 25210 . . . . . . . 8 (((𝜑𝐴𝑈) ∧ (𝑎 ∈ ℤ ∧ ((𝑃𝐼)‘𝐴) = (𝑎 · (𝑊𝐼)))) → (𝑋𝐴) = (𝑇𝑎))
19647oveq1i 6803 . . . . . . . 8 (𝑇𝑎) = ((-1↑𝑐(2 / (𝑂‘(𝑊𝐼))))↑𝑎)
197195, 196syl6eq 2821 . . . . . . 7 (((𝜑𝐴𝑈) ∧ (𝑎 ∈ ℤ ∧ ((𝑃𝐼)‘𝐴) = (𝑎 · (𝑊𝐼)))) → (𝑋𝐴) = ((-1↑𝑐(2 / (𝑂‘(𝑊𝐼))))↑𝑎))
19848ad2antrr 705 . . . . . . . 8 (((𝜑𝐴𝑈) ∧ (𝑎 ∈ ℤ ∧ ((𝑃𝐼)‘𝐴) = (𝑎 · (𝑊𝐼)))) → ((𝑃𝐼)‘𝐴) ≠ 1 )
19958ad2antrr 705 . . . . . . . . . . 11 (((𝜑𝐴𝑈) ∧ (𝑎 ∈ ℤ ∧ ((𝑃𝐼)‘𝐴) = (𝑎 · (𝑊𝐼)))) → 𝐻 ∈ Grp)
20069ad2antrr 705 . . . . . . . . . . 11 (((𝜑𝐴𝑈) ∧ (𝑎 ∈ ℤ ∧ ((𝑃𝐼)‘𝐴) = (𝑎 · (𝑊𝐼)))) → (𝑊𝐼) ∈ 𝑈)
201 simprl 754 . . . . . . . . . . 11 (((𝜑𝐴𝑈) ∧ (𝑎 ∈ ℤ ∧ ((𝑃𝐼)‘𝐴) = (𝑎 · (𝑊𝐼)))) → 𝑎 ∈ ℤ)
20270, 46, 43, 165oddvds 18173 . . . . . . . . . . 11 ((𝐻 ∈ Grp ∧ (𝑊𝐼) ∈ 𝑈𝑎 ∈ ℤ) → ((𝑂‘(𝑊𝐼)) ∥ 𝑎 ↔ (𝑎 · (𝑊𝐼)) = (0g𝐻)))
203199, 200, 201, 202syl3anc 1476 . . . . . . . . . 10 (((𝜑𝐴𝑈) ∧ (𝑎 ∈ ℤ ∧ ((𝑃𝐼)‘𝐴) = (𝑎 · (𝑊𝐼)))) → ((𝑂‘(𝑊𝐼)) ∥ 𝑎 ↔ (𝑎 · (𝑊𝐼)) = (0g𝐻)))
20472ad2antrr 705 . . . . . . . . . . 11 (((𝜑𝐴𝑈) ∧ (𝑎 ∈ ℤ ∧ ((𝑃𝐼)‘𝐴) = (𝑎 · (𝑊𝐼)))) → (𝑂‘(𝑊𝐼)) ∈ ℕ)
205 root1eq1 24717 . . . . . . . . . . 11 (((𝑂‘(𝑊𝐼)) ∈ ℕ ∧ 𝑎 ∈ ℤ) → (((-1↑𝑐(2 / (𝑂‘(𝑊𝐼))))↑𝑎) = 1 ↔ (𝑂‘(𝑊𝐼)) ∥ 𝑎))
206204, 201, 205syl2anc 573 . . . . . . . . . 10 (((𝜑𝐴𝑈) ∧ (𝑎 ∈ ℤ ∧ ((𝑃𝐼)‘𝐴) = (𝑎 · (𝑊𝐼)))) → (((-1↑𝑐(2 / (𝑂‘(𝑊𝐼))))↑𝑎) = 1 ↔ (𝑂‘(𝑊𝐼)) ∥ 𝑎))
207 simprr 756 . . . . . . . . . . 11 (((𝜑𝐴𝑈) ∧ (𝑎 ∈ ℤ ∧ ((𝑃𝐼)‘𝐴) = (𝑎 · (𝑊𝐼)))) → ((𝑃𝐼)‘𝐴) = (𝑎 · (𝑊𝐼)))
20840, 169syl5eq 2817 . . . . . . . . . . . 12 (𝜑1 = (0g𝐻))
209208ad2antrr 705 . . . . . . . . . . 11 (((𝜑𝐴𝑈) ∧ (𝑎 ∈ ℤ ∧ ((𝑃𝐼)‘𝐴) = (𝑎 · (𝑊𝐼)))) → 1 = (0g𝐻))
210207, 209eqeq12d 2786 . . . . . . . . . 10 (((𝜑𝐴𝑈) ∧ (𝑎 ∈ ℤ ∧ ((𝑃𝐼)‘𝐴) = (𝑎 · (𝑊𝐼)))) → (((𝑃𝐼)‘𝐴) = 1 ↔ (𝑎 · (𝑊𝐼)) = (0g𝐻)))
211203, 206, 2103bitr4d 300 . . . . . . . . 9 (((𝜑𝐴𝑈) ∧ (𝑎 ∈ ℤ ∧ ((𝑃𝐼)‘𝐴) = (𝑎 · (𝑊𝐼)))) → (((-1↑𝑐(2 / (𝑂‘(𝑊𝐼))))↑𝑎) = 1 ↔ ((𝑃𝐼)‘𝐴) = 1 ))
212211necon3bid 2987 . . . . . . . 8 (((𝜑𝐴𝑈) ∧ (𝑎 ∈ ℤ ∧ ((𝑃𝐼)‘𝐴) = (𝑎 · (𝑊𝐼)))) → (((-1↑𝑐(2 / (𝑂‘(𝑊𝐼))))↑𝑎) ≠ 1 ↔ ((𝑃𝐼)‘𝐴) ≠ 1 ))
213198, 212mpbird 247 . . . . . . 7 (((𝜑𝐴𝑈) ∧ (𝑎 ∈ ℤ ∧ ((𝑃𝐼)‘𝐴) = (𝑎 · (𝑊𝐼)))) → ((-1↑𝑐(2 / (𝑂‘(𝑊𝐼))))↑𝑎) ≠ 1)
214197, 213eqnetrd 3010 . . . . . 6 (((𝜑𝐴𝑈) ∧ (𝑎 ∈ ℤ ∧ ((𝑃𝐼)‘𝐴) = (𝑎 · (𝑊𝐼)))) → (𝑋𝐴) ≠ 1)
215214rexlimdvaa 3180 . . . . 5 ((𝜑𝐴𝑈) → (∃𝑎 ∈ ℤ ((𝑃𝐼)‘𝐴) = (𝑎 · (𝑊𝐼)) → (𝑋𝐴) ≠ 1))
21644, 215mpdan 667 . . . 4 (𝜑 → (∃𝑎 ∈ ℤ ((𝑃𝐼)‘𝐴) = (𝑎 · (𝑊𝐼)) → (𝑋𝐴) ≠ 1))
217194, 216mpd 15 . . 3 (𝜑 → (𝑋𝐴) ≠ 1)
218190, 217eqnetrd 3010 . 2 (𝜑 → ((𝑣𝐵 ↦ if(𝑣𝑈, (𝑋𝑣), 0))‘𝐴) ≠ 1)
219 fveq1 6331 . . . 4 (𝑥 = (𝑣𝐵 ↦ if(𝑣𝑈, (𝑋𝑣), 0)) → (𝑥𝐴) = ((𝑣𝐵 ↦ if(𝑣𝑈, (𝑋𝑣), 0))‘𝐴))
220219neeq1d 3002 . . 3 (𝑥 = (𝑣𝐵 ↦ if(𝑣𝑈, (𝑋𝑣), 0)) → ((𝑥𝐴) ≠ 1 ↔ ((𝑣𝐵 ↦ if(𝑣𝑈, (𝑋𝑣), 0))‘𝐴) ≠ 1))
221220rspcev 3460 . 2 (((𝑣𝐵 ↦ if(𝑣𝑈, (𝑋𝑣), 0)) ∈ 𝐷 ∧ ((𝑣𝐵 ↦ if(𝑣𝑈, (𝑋𝑣), 0))‘𝐴) ≠ 1) → ∃𝑥𝐷 (𝑥𝐴) ≠ 1)
222178, 218, 221syl2anc 573 1 (𝜑 → ∃𝑥𝐷 (𝑥𝐴) ≠ 1)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 196  wa 382   = wceq 1631  wcel 2145  wne 2943  wral 3061  wrex 3062  Vcvv 3351  wss 3723  ifcif 4225   class class class wbr 4786  cmpt 4863  dom cdm 5249  ran crn 5250  cio 5992  wf 6027  cfv 6031  (class class class)co 6793  Fincfn 8109  cc 10136  cr 10137  0cc0 10138  1c1 10139   + caddc 10141   · cmul 10143  -cneg 10469   / cdiv 10886  cn 11222  2c2 11272  0cn0 11494  cz 11579  ..^cfzo 12673  cexp 13067  chash 13321  Word cword 13487  cdvds 15189  Basecbs 16064  s cress 16065  +gcplusg 16149  .rcmulr 16150  0gc0g 16308  Grpcgrp 17630  .gcmg 17748   GrpHom cghm 17865  odcod 18151   DProd cdprd 18600  dProjcdpj 18601  mulGrpcmgp 18697  1rcur 18709  Ringcrg 18755  CRingccrg 18756  Unitcui 18847  ℤ/nczn 20066  𝑐ccxp 24523  DChrcdchr 25178
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1870  ax-4 1885  ax-5 1991  ax-6 2057  ax-7 2093  ax-8 2147  ax-9 2154  ax-10 2174  ax-11 2190  ax-12 2203  ax-13 2408  ax-ext 2751  ax-rep 4904  ax-sep 4915  ax-nul 4923  ax-pow 4974  ax-pr 5034  ax-un 7096  ax-inf2 8702  ax-cnex 10194  ax-resscn 10195  ax-1cn 10196  ax-icn 10197  ax-addcl 10198  ax-addrcl 10199  ax-mulcl 10200  ax-mulrcl 10201  ax-mulcom 10202  ax-addass 10203  ax-mulass 10204  ax-distr 10205  ax-i2m1 10206  ax-1ne0 10207  ax-1rid 10208  ax-rnegex 10209  ax-rrecex 10210  ax-cnre 10211  ax-pre-lttri 10212  ax-pre-lttrn 10213  ax-pre-ltadd 10214  ax-pre-mulgt0 10215  ax-pre-sup 10216  ax-addf 10217  ax-mulf 10218
This theorem depends on definitions:  df-bi 197  df-an 383  df-or 837  df-3or 1072  df-3an 1073  df-tru 1634  df-fal 1637  df-ex 1853  df-nf 1858  df-sb 2050  df-eu 2622  df-mo 2623  df-clab 2758  df-cleq 2764  df-clel 2767  df-nfc 2902  df-ne 2944  df-nel 3047  df-ral 3066  df-rex 3067  df-reu 3068  df-rmo 3069  df-rab 3070  df-v 3353  df-sbc 3588  df-csb 3683  df-dif 3726  df-un 3728  df-in 3730  df-ss 3737  df-pss 3739  df-nul 4064  df-if 4226  df-pw 4299  df-sn 4317  df-pr 4319  df-tp 4321  df-op 4323  df-uni 4575  df-int 4612  df-iun 4656  df-iin 4657  df-br 4787  df-opab 4847  df-mpt 4864  df-tr 4887  df-id 5157  df-eprel 5162  df-po 5170  df-so 5171  df-fr 5208  df-se 5209  df-we 5210  df-xp 5255  df-rel 5256  df-cnv 5257  df-co 5258  df-dm 5259  df-rn 5260  df-res 5261  df-ima 5262  df-pred 5823  df-ord 5869  df-on 5870  df-lim 5871  df-suc 5872  df-iota 5994  df-fun 6033  df-fn 6034  df-f 6035  df-f1 6036  df-fo 6037  df-f1o 6038  df-fv 6039  df-isom 6040  df-riota 6754  df-ov 6796  df-oprab 6797  df-mpt2 6798  df-of 7044  df-om 7213  df-1st 7315  df-2nd 7316  df-supp 7447  df-tpos 7504  df-wrecs 7559  df-recs 7621  df-rdg 7659  df-1o 7713  df-2o 7714  df-oadd 7717  df-omul 7718  df-er 7896  df-ec 7898  df-qs 7902  df-map 8011  df-pm 8012  df-ixp 8063  df-en 8110  df-dom 8111  df-sdom 8112  df-fin 8113  df-fsupp 8432  df-fi 8473  df-sup 8504  df-inf 8505  df-oi 8571  df-card 8965  df-acn 8968  df-cda 9192  df-pnf 10278  df-mnf 10279  df-xr 10280  df-ltxr 10281  df-le 10282  df-sub 10470  df-neg 10471  df-div 10887  df-nn 11223  df-2 11281  df-3 11282  df-4 11283  df-5 11284  df-6 11285  df-7 11286  df-8 11287  df-9 11288  df-n0 11495  df-z 11580  df-dec 11696  df-uz 11889  df-q 11992  df-rp 12036  df-xneg 12151  df-xadd 12152  df-xmul 12153  df-ioo 12384  df-ioc 12385  df-ico 12386  df-icc 12387  df-fz 12534  df-fzo 12674  df-fl 12801  df-mod 12877  df-seq 13009  df-exp 13068  df-fac 13265  df-bc 13294  df-hash 13322  df-word 13495  df-shft 14015  df-cj 14047  df-re 14048  df-im 14049  df-sqrt 14183  df-abs 14184  df-limsup 14410  df-clim 14427  df-rlim 14428  df-sum 14625  df-ef 15004  df-sin 15006  df-cos 15007  df-pi 15009  df-dvds 15190  df-struct 16066  df-ndx 16067  df-slot 16068  df-base 16070  df-sets 16071  df-ress 16072  df-plusg 16162  df-mulr 16163  df-starv 16164  df-sca 16165  df-vsca 16166  df-ip 16167  df-tset 16168  df-ple 16169  df-ds 16172  df-unif 16173  df-hom 16174  df-cco 16175  df-rest 16291  df-topn 16292  df-0g 16310  df-gsum 16311  df-topgen 16312  df-pt 16313  df-prds 16316  df-xrs 16370  df-qtop 16375  df-imas 16376  df-qus 16377  df-xps 16378  df-mre 16454  df-mrc 16455  df-acs 16457  df-mgm 17450  df-sgrp 17492  df-mnd 17503  df-mhm 17543  df-submnd 17544  df-grp 17633  df-minusg 17634  df-sbg 17635  df-mulg 17749  df-subg 17799  df-nsg 17800  df-eqg 17801  df-ghm 17866  df-gim 17909  df-cntz 17957  df-oppg 17983  df-od 18155  df-lsm 18258  df-pj1 18259  df-cmn 18402  df-abl 18403  df-dprd 18602  df-dpj 18603  df-mgp 18698  df-ur 18710  df-ring 18757  df-cring 18758  df-oppr 18831  df-dvdsr 18849  df-unit 18850  df-rnghom 18925  df-subrg 18988  df-lmod 19075  df-lss 19143  df-lsp 19185  df-sra 19387  df-rgmod 19388  df-lidl 19389  df-rsp 19390  df-2idl 19447  df-psmet 19953  df-xmet 19954  df-met 19955  df-bl 19956  df-mopn 19957  df-fbas 19958  df-fg 19959  df-cnfld 19962  df-zring 20034  df-zrh 20067  df-zn 20070  df-top 20919  df-topon 20936  df-topsp 20958  df-bases 20971  df-cld 21044  df-ntr 21045  df-cls 21046  df-nei 21123  df-lp 21161  df-perf 21162  df-cn 21252  df-cnp 21253  df-haus 21340  df-tx 21586  df-hmeo 21779  df-fil 21870  df-fm 21962  df-flim 21963  df-flf 21964  df-xms 22345  df-ms 22346  df-tms 22347  df-cncf 22901  df-limc 23850  df-dv 23851  df-log 24524  df-cxp 24525  df-dchr 25179
This theorem is referenced by:  dchrptlem3  25212
  Copyright terms: Public domain W3C validator