Step | Hyp | Ref
| Expression |
1 | | eqid 2771 |
. . . 4
⊢ (𝑦 ∈ (0..^(𝑂‘𝐴)) ↦ (𝑦(.g‘𝐺)𝐴)) = (𝑦 ∈ (0..^(𝑂‘𝐴)) ↦ (𝑦(.g‘𝐺)𝐴)) |
2 | 1 | mptpreima 5773 |
. . 3
⊢ (◡(𝑦 ∈ (0..^(𝑂‘𝐴)) ↦ (𝑦(.g‘𝐺)𝐴)) “ {𝑥 ∈ (𝐾‘{𝐴}) ∣ (𝑂‘𝑥) = (𝑂‘𝐴)}) = {𝑦 ∈ (0..^(𝑂‘𝐴)) ∣ (𝑦(.g‘𝐺)𝐴) ∈ {𝑥 ∈ (𝐾‘{𝐴}) ∣ (𝑂‘𝑥) = (𝑂‘𝐴)}} |
3 | 2 | fveq2i 6336 |
. 2
⊢
(♯‘(◡(𝑦 ∈ (0..^(𝑂‘𝐴)) ↦ (𝑦(.g‘𝐺)𝐴)) “ {𝑥 ∈ (𝐾‘{𝐴}) ∣ (𝑂‘𝑥) = (𝑂‘𝐴)})) = (♯‘{𝑦 ∈ (0..^(𝑂‘𝐴)) ∣ (𝑦(.g‘𝐺)𝐴) ∈ {𝑥 ∈ (𝐾‘{𝐴}) ∣ (𝑂‘𝑥) = (𝑂‘𝐴)}}) |
4 | | odhash.x |
. . . . 5
⊢ 𝑋 = (Base‘𝐺) |
5 | | eqid 2771 |
. . . . 5
⊢
(.g‘𝐺) = (.g‘𝐺) |
6 | | odhash.o |
. . . . 5
⊢ 𝑂 = (od‘𝐺) |
7 | | odhash.k |
. . . . 5
⊢ 𝐾 =
(mrCls‘(SubGrp‘𝐺)) |
8 | 4, 5, 6, 7 | odf1o2 18196 |
. . . 4
⊢ ((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋 ∧ (𝑂‘𝐴) ∈ ℕ) → (𝑦 ∈ (0..^(𝑂‘𝐴)) ↦ (𝑦(.g‘𝐺)𝐴)):(0..^(𝑂‘𝐴))–1-1-onto→(𝐾‘{𝐴})) |
9 | | f1ocnv 6291 |
. . . 4
⊢ ((𝑦 ∈ (0..^(𝑂‘𝐴)) ↦ (𝑦(.g‘𝐺)𝐴)):(0..^(𝑂‘𝐴))–1-1-onto→(𝐾‘{𝐴}) → ◡(𝑦 ∈ (0..^(𝑂‘𝐴)) ↦ (𝑦(.g‘𝐺)𝐴)):(𝐾‘{𝐴})–1-1-onto→(0..^(𝑂‘𝐴))) |
10 | | f1of1 6278 |
. . . 4
⊢ (◡(𝑦 ∈ (0..^(𝑂‘𝐴)) ↦ (𝑦(.g‘𝐺)𝐴)):(𝐾‘{𝐴})–1-1-onto→(0..^(𝑂‘𝐴)) → ◡(𝑦 ∈ (0..^(𝑂‘𝐴)) ↦ (𝑦(.g‘𝐺)𝐴)):(𝐾‘{𝐴})–1-1→(0..^(𝑂‘𝐴))) |
11 | 8, 9, 10 | 3syl 18 |
. . 3
⊢ ((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋 ∧ (𝑂‘𝐴) ∈ ℕ) → ◡(𝑦 ∈ (0..^(𝑂‘𝐴)) ↦ (𝑦(.g‘𝐺)𝐴)):(𝐾‘{𝐴})–1-1→(0..^(𝑂‘𝐴))) |
12 | | ssrab2 3837 |
. . 3
⊢ {𝑥 ∈ (𝐾‘{𝐴}) ∣ (𝑂‘𝑥) = (𝑂‘𝐴)} ⊆ (𝐾‘{𝐴}) |
13 | | fvex 6343 |
. . . . . 6
⊢ (𝐾‘{𝐴}) ∈ V |
14 | 13 | rabex 4947 |
. . . . 5
⊢ {𝑥 ∈ (𝐾‘{𝐴}) ∣ (𝑂‘𝑥) = (𝑂‘𝐴)} ∈ V |
15 | 14 | f1imaen 8172 |
. . . 4
⊢ ((◡(𝑦 ∈ (0..^(𝑂‘𝐴)) ↦ (𝑦(.g‘𝐺)𝐴)):(𝐾‘{𝐴})–1-1→(0..^(𝑂‘𝐴)) ∧ {𝑥 ∈ (𝐾‘{𝐴}) ∣ (𝑂‘𝑥) = (𝑂‘𝐴)} ⊆ (𝐾‘{𝐴})) → (◡(𝑦 ∈ (0..^(𝑂‘𝐴)) ↦ (𝑦(.g‘𝐺)𝐴)) “ {𝑥 ∈ (𝐾‘{𝐴}) ∣ (𝑂‘𝑥) = (𝑂‘𝐴)}) ≈ {𝑥 ∈ (𝐾‘{𝐴}) ∣ (𝑂‘𝑥) = (𝑂‘𝐴)}) |
16 | | hasheni 13341 |
. . . 4
⊢ ((◡(𝑦 ∈ (0..^(𝑂‘𝐴)) ↦ (𝑦(.g‘𝐺)𝐴)) “ {𝑥 ∈ (𝐾‘{𝐴}) ∣ (𝑂‘𝑥) = (𝑂‘𝐴)}) ≈ {𝑥 ∈ (𝐾‘{𝐴}) ∣ (𝑂‘𝑥) = (𝑂‘𝐴)} → (♯‘(◡(𝑦 ∈ (0..^(𝑂‘𝐴)) ↦ (𝑦(.g‘𝐺)𝐴)) “ {𝑥 ∈ (𝐾‘{𝐴}) ∣ (𝑂‘𝑥) = (𝑂‘𝐴)})) = (♯‘{𝑥 ∈ (𝐾‘{𝐴}) ∣ (𝑂‘𝑥) = (𝑂‘𝐴)})) |
17 | 15, 16 | syl 17 |
. . 3
⊢ ((◡(𝑦 ∈ (0..^(𝑂‘𝐴)) ↦ (𝑦(.g‘𝐺)𝐴)):(𝐾‘{𝐴})–1-1→(0..^(𝑂‘𝐴)) ∧ {𝑥 ∈ (𝐾‘{𝐴}) ∣ (𝑂‘𝑥) = (𝑂‘𝐴)} ⊆ (𝐾‘{𝐴})) → (♯‘(◡(𝑦 ∈ (0..^(𝑂‘𝐴)) ↦ (𝑦(.g‘𝐺)𝐴)) “ {𝑥 ∈ (𝐾‘{𝐴}) ∣ (𝑂‘𝑥) = (𝑂‘𝐴)})) = (♯‘{𝑥 ∈ (𝐾‘{𝐴}) ∣ (𝑂‘𝑥) = (𝑂‘𝐴)})) |
18 | 11, 12, 17 | sylancl 568 |
. 2
⊢ ((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋 ∧ (𝑂‘𝐴) ∈ ℕ) →
(♯‘(◡(𝑦 ∈ (0..^(𝑂‘𝐴)) ↦ (𝑦(.g‘𝐺)𝐴)) “ {𝑥 ∈ (𝐾‘{𝐴}) ∣ (𝑂‘𝑥) = (𝑂‘𝐴)})) = (♯‘{𝑥 ∈ (𝐾‘{𝐴}) ∣ (𝑂‘𝑥) = (𝑂‘𝐴)})) |
19 | | simpl1 1227 |
. . . . . . . 8
⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋 ∧ (𝑂‘𝐴) ∈ ℕ) ∧ 𝑦 ∈ (0..^(𝑂‘𝐴))) → 𝐺 ∈ Grp) |
20 | | simpl2 1229 |
. . . . . . . 8
⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋 ∧ (𝑂‘𝐴) ∈ ℕ) ∧ 𝑦 ∈ (0..^(𝑂‘𝐴))) → 𝐴 ∈ 𝑋) |
21 | | elfzoelz 12679 |
. . . . . . . . 9
⊢ (𝑦 ∈ (0..^(𝑂‘𝐴)) → 𝑦 ∈ ℤ) |
22 | 21 | adantl 467 |
. . . . . . . 8
⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋 ∧ (𝑂‘𝐴) ∈ ℕ) ∧ 𝑦 ∈ (0..^(𝑂‘𝐴))) → 𝑦 ∈ ℤ) |
23 | 4, 5, 7 | cycsubg2cl 17841 |
. . . . . . . 8
⊢ ((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋 ∧ 𝑦 ∈ ℤ) → (𝑦(.g‘𝐺)𝐴) ∈ (𝐾‘{𝐴})) |
24 | 19, 20, 22, 23 | syl3anc 1476 |
. . . . . . 7
⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋 ∧ (𝑂‘𝐴) ∈ ℕ) ∧ 𝑦 ∈ (0..^(𝑂‘𝐴))) → (𝑦(.g‘𝐺)𝐴) ∈ (𝐾‘{𝐴})) |
25 | | fveq2 6333 |
. . . . . . . . 9
⊢ (𝑥 = (𝑦(.g‘𝐺)𝐴) → (𝑂‘𝑥) = (𝑂‘(𝑦(.g‘𝐺)𝐴))) |
26 | 25 | eqeq1d 2773 |
. . . . . . . 8
⊢ (𝑥 = (𝑦(.g‘𝐺)𝐴) → ((𝑂‘𝑥) = (𝑂‘𝐴) ↔ (𝑂‘(𝑦(.g‘𝐺)𝐴)) = (𝑂‘𝐴))) |
27 | 26 | elrab3 3517 |
. . . . . . 7
⊢ ((𝑦(.g‘𝐺)𝐴) ∈ (𝐾‘{𝐴}) → ((𝑦(.g‘𝐺)𝐴) ∈ {𝑥 ∈ (𝐾‘{𝐴}) ∣ (𝑂‘𝑥) = (𝑂‘𝐴)} ↔ (𝑂‘(𝑦(.g‘𝐺)𝐴)) = (𝑂‘𝐴))) |
28 | 24, 27 | syl 17 |
. . . . . 6
⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋 ∧ (𝑂‘𝐴) ∈ ℕ) ∧ 𝑦 ∈ (0..^(𝑂‘𝐴))) → ((𝑦(.g‘𝐺)𝐴) ∈ {𝑥 ∈ (𝐾‘{𝐴}) ∣ (𝑂‘𝑥) = (𝑂‘𝐴)} ↔ (𝑂‘(𝑦(.g‘𝐺)𝐴)) = (𝑂‘𝐴))) |
29 | | simpl3 1231 |
. . . . . . 7
⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋 ∧ (𝑂‘𝐴) ∈ ℕ) ∧ 𝑦 ∈ (0..^(𝑂‘𝐴))) → (𝑂‘𝐴) ∈ ℕ) |
30 | 4, 6, 5 | odmulgeq 18182 |
. . . . . . 7
⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋 ∧ 𝑦 ∈ ℤ) ∧ (𝑂‘𝐴) ∈ ℕ) → ((𝑂‘(𝑦(.g‘𝐺)𝐴)) = (𝑂‘𝐴) ↔ (𝑦 gcd (𝑂‘𝐴)) = 1)) |
31 | 19, 20, 22, 29, 30 | syl31anc 1479 |
. . . . . 6
⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋 ∧ (𝑂‘𝐴) ∈ ℕ) ∧ 𝑦 ∈ (0..^(𝑂‘𝐴))) → ((𝑂‘(𝑦(.g‘𝐺)𝐴)) = (𝑂‘𝐴) ↔ (𝑦 gcd (𝑂‘𝐴)) = 1)) |
32 | 28, 31 | bitrd 268 |
. . . . 5
⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋 ∧ (𝑂‘𝐴) ∈ ℕ) ∧ 𝑦 ∈ (0..^(𝑂‘𝐴))) → ((𝑦(.g‘𝐺)𝐴) ∈ {𝑥 ∈ (𝐾‘{𝐴}) ∣ (𝑂‘𝑥) = (𝑂‘𝐴)} ↔ (𝑦 gcd (𝑂‘𝐴)) = 1)) |
33 | 32 | rabbidva 3338 |
. . . 4
⊢ ((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋 ∧ (𝑂‘𝐴) ∈ ℕ) → {𝑦 ∈ (0..^(𝑂‘𝐴)) ∣ (𝑦(.g‘𝐺)𝐴) ∈ {𝑥 ∈ (𝐾‘{𝐴}) ∣ (𝑂‘𝑥) = (𝑂‘𝐴)}} = {𝑦 ∈ (0..^(𝑂‘𝐴)) ∣ (𝑦 gcd (𝑂‘𝐴)) = 1}) |
34 | 33 | fveq2d 6337 |
. . 3
⊢ ((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋 ∧ (𝑂‘𝐴) ∈ ℕ) →
(♯‘{𝑦 ∈
(0..^(𝑂‘𝐴)) ∣ (𝑦(.g‘𝐺)𝐴) ∈ {𝑥 ∈ (𝐾‘{𝐴}) ∣ (𝑂‘𝑥) = (𝑂‘𝐴)}}) = (♯‘{𝑦 ∈ (0..^(𝑂‘𝐴)) ∣ (𝑦 gcd (𝑂‘𝐴)) = 1})) |
35 | | dfphi2 15687 |
. . . 4
⊢ ((𝑂‘𝐴) ∈ ℕ → (ϕ‘(𝑂‘𝐴)) = (♯‘{𝑦 ∈ (0..^(𝑂‘𝐴)) ∣ (𝑦 gcd (𝑂‘𝐴)) = 1})) |
36 | 35 | 3ad2ant3 1129 |
. . 3
⊢ ((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋 ∧ (𝑂‘𝐴) ∈ ℕ) →
(ϕ‘(𝑂‘𝐴)) = (♯‘{𝑦 ∈ (0..^(𝑂‘𝐴)) ∣ (𝑦 gcd (𝑂‘𝐴)) = 1})) |
37 | 34, 36 | eqtr4d 2808 |
. 2
⊢ ((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋 ∧ (𝑂‘𝐴) ∈ ℕ) →
(♯‘{𝑦 ∈
(0..^(𝑂‘𝐴)) ∣ (𝑦(.g‘𝐺)𝐴) ∈ {𝑥 ∈ (𝐾‘{𝐴}) ∣ (𝑂‘𝑥) = (𝑂‘𝐴)}}) = (ϕ‘(𝑂‘𝐴))) |
38 | 3, 18, 37 | 3eqtr3a 2829 |
1
⊢ ((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋 ∧ (𝑂‘𝐴) ∈ ℕ) →
(♯‘{𝑥 ∈
(𝐾‘{𝐴}) ∣ (𝑂‘𝑥) = (𝑂‘𝐴)}) = (ϕ‘(𝑂‘𝐴))) |