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

Theorem lt6abl 19960
Description: A group with fewer than 6 elements is abelian. (Contributed by Mario Carneiro, 27-Apr-2016.)
Hypothesis
Ref Expression
cygctb.1 𝐵 = (Base‘𝐺)
Assertion
Ref Expression
lt6abl ((𝐺 ∈ Grp ∧ (♯‘𝐵) < 6) → 𝐺 ∈ Abel)

Proof of Theorem lt6abl
Dummy variables 𝑛 𝑥 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 cygctb.1 . . . . . . 7 𝐵 = (Base‘𝐺)
21grpbn0 19028 . . . . . 6 (𝐺 ∈ Grp → 𝐵 ≠ ∅)
32adantr 485 . . . . 5 ((𝐺 ∈ Grp ∧ (♯‘𝐵) < 6) → 𝐵 ≠ ∅)
4 6re 12326 . . . . . . . 8 6 ∈ ℝ
5 rexr 11250 . . . . . . . 8 (6 ∈ ℝ → 6 ∈ ℝ*)
6 pnfnlt 13148 . . . . . . . 8 (6 ∈ ℝ* → ¬ +∞ < 6)
74, 5, 6mp2b 10 . . . . . . 7 ¬ +∞ < 6
81fvexi 6895 . . . . . . . . . . . 12 𝐵 ∈ V
98a1i 11 . . . . . . . . . . 11 (𝐺 ∈ Grp → 𝐵 ∈ V)
10 hashinf 14367 . . . . . . . . . . 11 ((𝐵 ∈ V ∧ ¬ 𝐵 ∈ Fin) → (♯‘𝐵) = +∞)
119, 10sylan 591 . . . . . . . . . 10 ((𝐺 ∈ Grp ∧ ¬ 𝐵 ∈ Fin) → (♯‘𝐵) = +∞)
1211breq1d 5119 . . . . . . . . 9 ((𝐺 ∈ Grp ∧ ¬ 𝐵 ∈ Fin) → ((♯‘𝐵) < 6 ↔ +∞ < 6))
1312biimpd 232 . . . . . . . 8 ((𝐺 ∈ Grp ∧ ¬ 𝐵 ∈ Fin) → ((♯‘𝐵) < 6 → +∞ < 6))
1413impancom 456 . . . . . . 7 ((𝐺 ∈ Grp ∧ (♯‘𝐵) < 6) → (¬ 𝐵 ∈ Fin → +∞ < 6))
157, 14mt3i 150 . . . . . 6 ((𝐺 ∈ Grp ∧ (♯‘𝐵) < 6) → 𝐵 ∈ Fin)
16 hashnncl 14398 . . . . . 6 (𝐵 ∈ Fin → ((♯‘𝐵) ∈ ℕ ↔ 𝐵 ≠ ∅))
1715, 16syl 18 . . . . 5 ((𝐺 ∈ Grp ∧ (♯‘𝐵) < 6) → ((♯‘𝐵) ∈ ℕ ↔ 𝐵 ≠ ∅))
183, 17mpbird 260 . . . 4 ((𝐺 ∈ Grp ∧ (♯‘𝐵) < 6) → (♯‘𝐵) ∈ ℕ)
19 nnuz 12896 . . . 4 ℕ = (ℤ‘1)
2018, 19eleqtrdi 2873 . . 3 ((𝐺 ∈ Grp ∧ (♯‘𝐵) < 6) → (♯‘𝐵) ∈ (ℤ‘1))
21 6nn 12325 . . . . 5 6 ∈ ℕ
2221nnzi 12613 . . . 4 6 ∈ ℤ
2322a1i 11 . . 3 ((𝐺 ∈ Grp ∧ (♯‘𝐵) < 6) → 6 ∈ ℤ)
24 simpr 489 . . 3 ((𝐺 ∈ Grp ∧ (♯‘𝐵) < 6) → (♯‘𝐵) < 6)
25 elfzo2 13686 . . 3 ((♯‘𝐵) ∈ (1..^6) ↔ ((♯‘𝐵) ∈ (ℤ‘1) ∧ 6 ∈ ℤ ∧ (♯‘𝐵) < 6))
2620, 23, 24, 25syl3anbrc 1362 . 2 ((𝐺 ∈ Grp ∧ (♯‘𝐵) < 6) → (♯‘𝐵) ∈ (1..^6))
27 df-6 12302 . . . . . . 7 6 = (5 + 1)
2827oveq2i 7421 . . . . . 6 (1..^6) = (1..^(5 + 1))
2928eleq2i 2855 . . . . 5 ((♯‘𝐵) ∈ (1..^6) ↔ (♯‘𝐵) ∈ (1..^(5 + 1)))
30 5nn 12322 . . . . . . 7 5 ∈ ℕ
3130, 19eleqtri 2861 . . . . . 6 5 ∈ (ℤ‘1)
32 fzosplitsni 13804 . . . . . 6 (5 ∈ (ℤ‘1) → ((♯‘𝐵) ∈ (1..^(5 + 1)) ↔ ((♯‘𝐵) ∈ (1..^5) ∨ (♯‘𝐵) = 5)))
3331, 32ax-mp 5 . . . . 5 ((♯‘𝐵) ∈ (1..^(5 + 1)) ↔ ((♯‘𝐵) ∈ (1..^5) ∨ (♯‘𝐵) = 5))
3429, 33bitri 278 . . . 4 ((♯‘𝐵) ∈ (1..^6) ↔ ((♯‘𝐵) ∈ (1..^5) ∨ (♯‘𝐵) = 5))
35 df-5 12301 . . . . . . . . 9 5 = (4 + 1)
3635oveq2i 7421 . . . . . . . 8 (1..^5) = (1..^(4 + 1))
3736eleq2i 2855 . . . . . . 7 ((♯‘𝐵) ∈ (1..^5) ↔ (♯‘𝐵) ∈ (1..^(4 + 1)))
38 4nn 12319 . . . . . . . . 9 4 ∈ ℕ
3938, 19eleqtri 2861 . . . . . . . 8 4 ∈ (ℤ‘1)
40 fzosplitsni 13804 . . . . . . . 8 (4 ∈ (ℤ‘1) → ((♯‘𝐵) ∈ (1..^(4 + 1)) ↔ ((♯‘𝐵) ∈ (1..^4) ∨ (♯‘𝐵) = 4)))
4139, 40ax-mp 5 . . . . . . 7 ((♯‘𝐵) ∈ (1..^(4 + 1)) ↔ ((♯‘𝐵) ∈ (1..^4) ∨ (♯‘𝐵) = 4))
4237, 41bitri 278 . . . . . 6 ((♯‘𝐵) ∈ (1..^5) ↔ ((♯‘𝐵) ∈ (1..^4) ∨ (♯‘𝐵) = 4))
43 df-4 12300 . . . . . . . . . . 11 4 = (3 + 1)
4443oveq2i 7421 . . . . . . . . . 10 (1..^4) = (1..^(3 + 1))
4544eleq2i 2855 . . . . . . . . 9 ((♯‘𝐵) ∈ (1..^4) ↔ (♯‘𝐵) ∈ (1..^(3 + 1)))
46 3nn 12315 . . . . . . . . . . 11 3 ∈ ℕ
4746, 19eleqtri 2861 . . . . . . . . . 10 3 ∈ (ℤ‘1)
48 fzosplitsni 13804 . . . . . . . . . 10 (3 ∈ (ℤ‘1) → ((♯‘𝐵) ∈ (1..^(3 + 1)) ↔ ((♯‘𝐵) ∈ (1..^3) ∨ (♯‘𝐵) = 3)))
4947, 48ax-mp 5 . . . . . . . . 9 ((♯‘𝐵) ∈ (1..^(3 + 1)) ↔ ((♯‘𝐵) ∈ (1..^3) ∨ (♯‘𝐵) = 3))
5045, 49bitri 278 . . . . . . . 8 ((♯‘𝐵) ∈ (1..^4) ↔ ((♯‘𝐵) ∈ (1..^3) ∨ (♯‘𝐵) = 3))
51 df-3 12299 . . . . . . . . . . . . 13 3 = (2 + 1)
5251oveq2i 7421 . . . . . . . . . . . 12 (1..^3) = (1..^(2 + 1))
5352eleq2i 2855 . . . . . . . . . . 11 ((♯‘𝐵) ∈ (1..^3) ↔ (♯‘𝐵) ∈ (1..^(2 + 1)))
54 2eluzge1 12901 . . . . . . . . . . . 12 2 ∈ (ℤ‘1)
55 fzosplitsni 13804 . . . . . . . . . . . 12 (2 ∈ (ℤ‘1) → ((♯‘𝐵) ∈ (1..^(2 + 1)) ↔ ((♯‘𝐵) ∈ (1..^2) ∨ (♯‘𝐵) = 2)))
5654, 55ax-mp 5 . . . . . . . . . . 11 ((♯‘𝐵) ∈ (1..^(2 + 1)) ↔ ((♯‘𝐵) ∈ (1..^2) ∨ (♯‘𝐵) = 2))
5753, 56bitri 278 . . . . . . . . . 10 ((♯‘𝐵) ∈ (1..^3) ↔ ((♯‘𝐵) ∈ (1..^2) ∨ (♯‘𝐵) = 2))
58 elsni 4606 . . . . . . . . . . . . . . . . 17 ((♯‘𝐵) ∈ {1} → (♯‘𝐵) = 1)
59 fzo12sn 13773 . . . . . . . . . . . . . . . . 17 (1..^2) = {1}
6058, 59eleq2s 2881 . . . . . . . . . . . . . . . 16 ((♯‘𝐵) ∈ (1..^2) → (♯‘𝐵) = 1)
6160adantl 486 . . . . . . . . . . . . . . 15 ((𝐺 ∈ Grp ∧ (♯‘𝐵) ∈ (1..^2)) → (♯‘𝐵) = 1)
62 hash1 14436 . . . . . . . . . . . . . . 15 (♯‘1o) = 1
6361, 62eqtr4di 2816 . . . . . . . . . . . . . 14 ((𝐺 ∈ Grp ∧ (♯‘𝐵) ∈ (1..^2)) → (♯‘𝐵) = (♯‘1o))
64 1nn0 12515 . . . . . . . . . . . . . . . . 17 1 ∈ ℕ0
6561, 64eqeltrdi 2871 . . . . . . . . . . . . . . . 16 ((𝐺 ∈ Grp ∧ (♯‘𝐵) ∈ (1..^2)) → (♯‘𝐵) ∈ ℕ0)
66 hashclb 14390 . . . . . . . . . . . . . . . . 17 (𝐵 ∈ V → (𝐵 ∈ Fin ↔ (♯‘𝐵) ∈ ℕ0))
678, 66ax-mp 5 . . . . . . . . . . . . . . . 16 (𝐵 ∈ Fin ↔ (♯‘𝐵) ∈ ℕ0)
6865, 67sylibr 237 . . . . . . . . . . . . . . 15 ((𝐺 ∈ Grp ∧ (♯‘𝐵) ∈ (1..^2)) → 𝐵 ∈ Fin)
69 1onn 8622 . . . . . . . . . . . . . . . 16 1o ∈ ω
70 nnfi 9148 . . . . . . . . . . . . . . . 16 (1o ∈ ω → 1o ∈ Fin)
7169, 70ax-mp 5 . . . . . . . . . . . . . . 15 1o ∈ Fin
72 hashen 14379 . . . . . . . . . . . . . . 15 ((𝐵 ∈ Fin ∧ 1o ∈ Fin) → ((♯‘𝐵) = (♯‘1o) ↔ 𝐵 ≈ 1o))
7368, 71, 72sylancl 597 . . . . . . . . . . . . . 14 ((𝐺 ∈ Grp ∧ (♯‘𝐵) ∈ (1..^2)) → ((♯‘𝐵) = (♯‘1o) ↔ 𝐵 ≈ 1o))
7463, 73mpbid 235 . . . . . . . . . . . . 13 ((𝐺 ∈ Grp ∧ (♯‘𝐵) ∈ (1..^2)) → 𝐵 ≈ 1o)
7510cyg 19958 . . . . . . . . . . . . . 14 ((𝐺 ∈ Grp ∧ 𝐵 ≈ 1o) → 𝐺 ∈ CycGrp)
76 cygabl 19956 . . . . . . . . . . . . . 14 (𝐺 ∈ CycGrp → 𝐺 ∈ Abel)
7775, 76syl 18 . . . . . . . . . . . . 13 ((𝐺 ∈ Grp ∧ 𝐵 ≈ 1o) → 𝐺 ∈ Abel)
7874, 77syldan 602 . . . . . . . . . . . 12 ((𝐺 ∈ Grp ∧ (♯‘𝐵) ∈ (1..^2)) → 𝐺 ∈ Abel)
7978ex 417 . . . . . . . . . . 11 (𝐺 ∈ Grp → ((♯‘𝐵) ∈ (1..^2) → 𝐺 ∈ Abel))
80 id 23 . . . . . . . . . . . . 13 ((♯‘𝐵) = 2 → (♯‘𝐵) = 2)
81 2prm 16745 . . . . . . . . . . . . 13 2 ∈ ℙ
8280, 81eqeltrdi 2871 . . . . . . . . . . . 12 ((♯‘𝐵) = 2 → (♯‘𝐵) ∈ ℙ)
831prmcyg 19959 . . . . . . . . . . . . . 14 ((𝐺 ∈ Grp ∧ (♯‘𝐵) ∈ ℙ) → 𝐺 ∈ CycGrp)
8483, 76syl 18 . . . . . . . . . . . . 13 ((𝐺 ∈ Grp ∧ (♯‘𝐵) ∈ ℙ) → 𝐺 ∈ Abel)
8584ex 417 . . . . . . . . . . . 12 (𝐺 ∈ Grp → ((♯‘𝐵) ∈ ℙ → 𝐺 ∈ Abel))
8682, 85syl5 35 . . . . . . . . . . 11 (𝐺 ∈ Grp → ((♯‘𝐵) = 2 → 𝐺 ∈ Abel))
8779, 86jaod 872 . . . . . . . . . 10 (𝐺 ∈ Grp → (((♯‘𝐵) ∈ (1..^2) ∨ (♯‘𝐵) = 2) → 𝐺 ∈ Abel))
8857, 87biimtrid 245 . . . . . . . . 9 (𝐺 ∈ Grp → ((♯‘𝐵) ∈ (1..^3) → 𝐺 ∈ Abel))
89 id 23 . . . . . . . . . . 11 ((♯‘𝐵) = 3 → (♯‘𝐵) = 3)
90 3prm 16747 . . . . . . . . . . 11 3 ∈ ℙ
9189, 90eqeltrdi 2871 . . . . . . . . . 10 ((♯‘𝐵) = 3 → (♯‘𝐵) ∈ ℙ)
9291, 85syl5 35 . . . . . . . . 9 (𝐺 ∈ Grp → ((♯‘𝐵) = 3 → 𝐺 ∈ Abel))
9388, 92jaod 872 . . . . . . . 8 (𝐺 ∈ Grp → (((♯‘𝐵) ∈ (1..^3) ∨ (♯‘𝐵) = 3) → 𝐺 ∈ Abel))
9450, 93biimtrid 245 . . . . . . 7 (𝐺 ∈ Grp → ((♯‘𝐵) ∈ (1..^4) → 𝐺 ∈ Abel))
95 simpl 487 . . . . . . . . . . 11 ((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) → 𝐺 ∈ Grp)
96 2z 12621 . . . . . . . . . . 11 2 ∈ ℤ
97 eqid 2763 . . . . . . . . . . . 12 (gEx‘𝐺) = (gEx‘𝐺)
98 eqid 2763 . . . . . . . . . . . 12 (od‘𝐺) = (od‘𝐺)
991, 97, 98gexdvds2 19650 . . . . . . . . . . 11 ((𝐺 ∈ Grp ∧ 2 ∈ ℤ) → ((gEx‘𝐺) ∥ 2 ↔ ∀𝑥𝐵 ((od‘𝐺)‘𝑥) ∥ 2))
10095, 96, 99sylancl 597 . . . . . . . . . 10 ((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) → ((gEx‘𝐺) ∥ 2 ↔ ∀𝑥𝐵 ((od‘𝐺)‘𝑥) ∥ 2))
1011, 97gex2abl 19916 . . . . . . . . . . . 12 ((𝐺 ∈ Grp ∧ (gEx‘𝐺) ∥ 2) → 𝐺 ∈ Abel)
102101ex 417 . . . . . . . . . . 11 (𝐺 ∈ Grp → ((gEx‘𝐺) ∥ 2 → 𝐺 ∈ Abel))
103102adantr 485 . . . . . . . . . 10 ((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) → ((gEx‘𝐺) ∥ 2 → 𝐺 ∈ Abel))
104100, 103sylbird 263 . . . . . . . . 9 ((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) → (∀𝑥𝐵 ((od‘𝐺)‘𝑥) ∥ 2 → 𝐺 ∈ Abel))
105 rexnal 3117 . . . . . . . . . 10 (∃𝑥𝐵 ¬ ((od‘𝐺)‘𝑥) ∥ 2 ↔ ¬ ∀𝑥𝐵 ((od‘𝐺)‘𝑥) ∥ 2)
10695adantr 485 . . . . . . . . . . . . 13 (((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) ∧ (𝑥𝐵 ∧ ¬ ((od‘𝐺)‘𝑥) ∥ 2)) → 𝐺 ∈ Grp)
107 simprl 782 . . . . . . . . . . . . 13 (((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) ∧ (𝑥𝐵 ∧ ¬ ((od‘𝐺)‘𝑥) ∥ 2)) → 𝑥𝐵)
1081, 98odcl 19601 . . . . . . . . . . . . . . . 16 (𝑥𝐵 → ((od‘𝐺)‘𝑥) ∈ ℕ0)
109108ad2antrl 740 . . . . . . . . . . . . . . 15 (((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) ∧ (𝑥𝐵 ∧ ¬ ((od‘𝐺)‘𝑥) ∥ 2)) → ((od‘𝐺)‘𝑥) ∈ ℕ0)
110 4nn0 12518 . . . . . . . . . . . . . . . 16 4 ∈ ℕ0
111110a1i 11 . . . . . . . . . . . . . . 15 (((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) ∧ (𝑥𝐵 ∧ ¬ ((od‘𝐺)‘𝑥) ∥ 2)) → 4 ∈ ℕ0)
112 simpr 489 . . . . . . . . . . . . . . . . . . . 20 ((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) → (♯‘𝐵) = 4)
113112, 110eqeltrdi 2871 . . . . . . . . . . . . . . . . . . 19 ((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) → (♯‘𝐵) ∈ ℕ0)
114113, 67sylibr 237 . . . . . . . . . . . . . . . . . 18 ((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) → 𝐵 ∈ Fin)
115114adantr 485 . . . . . . . . . . . . . . . . 17 (((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) ∧ (𝑥𝐵 ∧ ¬ ((od‘𝐺)‘𝑥) ∥ 2)) → 𝐵 ∈ Fin)
1161, 98oddvds2 19631 . . . . . . . . . . . . . . . . 17 ((𝐺 ∈ Grp ∧ 𝐵 ∈ Fin ∧ 𝑥𝐵) → ((od‘𝐺)‘𝑥) ∥ (♯‘𝐵))
117106, 115, 107, 116syl3anc 1398 . . . . . . . . . . . . . . . 16 (((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) ∧ (𝑥𝐵 ∧ ¬ ((od‘𝐺)‘𝑥) ∥ 2)) → ((od‘𝐺)‘𝑥) ∥ (♯‘𝐵))
118112adantr 485 . . . . . . . . . . . . . . . 16 (((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) ∧ (𝑥𝐵 ∧ ¬ ((od‘𝐺)‘𝑥) ∥ 2)) → (♯‘𝐵) = 4)
119117, 118breqtrd 5137 . . . . . . . . . . . . . . 15 (((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) ∧ (𝑥𝐵 ∧ ¬ ((od‘𝐺)‘𝑥) ∥ 2)) → ((od‘𝐺)‘𝑥) ∥ 4)
120 sq2 14229 . . . . . . . . . . . . . . . . 17 (2↑2) = 4
121 2nn0 12516 . . . . . . . . . . . . . . . . . 18 2 ∈ ℕ0
12296a1i 11 . . . . . . . . . . . . . . . . . . 19 (((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) ∧ (𝑥𝐵 ∧ ¬ ((od‘𝐺)‘𝑥) ∥ 2)) → 2 ∈ ℤ)
1231, 98odcl2 19630 . . . . . . . . . . . . . . . . . . . . . 22 ((𝐺 ∈ Grp ∧ 𝐵 ∈ Fin ∧ 𝑥𝐵) → ((od‘𝐺)‘𝑥) ∈ ℕ)
124106, 115, 107, 123syl3anc 1398 . . . . . . . . . . . . . . . . . . . . 21 (((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) ∧ (𝑥𝐵 ∧ ¬ ((od‘𝐺)‘𝑥) ∥ 2)) → ((od‘𝐺)‘𝑥) ∈ ℕ)
125 pccl 16904 . . . . . . . . . . . . . . . . . . . . 21 ((2 ∈ ℙ ∧ ((od‘𝐺)‘𝑥) ∈ ℕ) → (2 pCnt ((od‘𝐺)‘𝑥)) ∈ ℕ0)
12681, 124, 125sylancr 598 . . . . . . . . . . . . . . . . . . . 20 (((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) ∧ (𝑥𝐵 ∧ ¬ ((od‘𝐺)‘𝑥) ∥ 2)) → (2 pCnt ((od‘𝐺)‘𝑥)) ∈ ℕ0)
127126nn0zd 12611 . . . . . . . . . . . . . . . . . . 19 (((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) ∧ (𝑥𝐵 ∧ ¬ ((od‘𝐺)‘𝑥) ∥ 2)) → (2 pCnt ((od‘𝐺)‘𝑥)) ∈ ℤ)
128 df-2 12298 . . . . . . . . . . . . . . . . . . . 20 2 = (1 + 1)
129 simprr 784 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) ∧ (𝑥𝐵 ∧ ¬ ((od‘𝐺)‘𝑥) ∥ 2)) → ¬ ((od‘𝐺)‘𝑥) ∥ 2)
130 dvdsexp 16381 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((2 ∈ ℤ ∧ (2 pCnt ((od‘𝐺)‘𝑥)) ∈ ℕ0 ∧ 1 ∈ (ℤ‘(2 pCnt ((od‘𝐺)‘𝑥)))) → (2↑(2 pCnt ((od‘𝐺)‘𝑥))) ∥ (2↑1))
1311303expia 1139 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((2 ∈ ℤ ∧ (2 pCnt ((od‘𝐺)‘𝑥)) ∈ ℕ0) → (1 ∈ (ℤ‘(2 pCnt ((od‘𝐺)‘𝑥))) → (2↑(2 pCnt ((od‘𝐺)‘𝑥))) ∥ (2↑1)))
13296, 126, 131sylancr 598 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) ∧ (𝑥𝐵 ∧ ¬ ((od‘𝐺)‘𝑥) ∥ 2)) → (1 ∈ (ℤ‘(2 pCnt ((od‘𝐺)‘𝑥))) → (2↑(2 pCnt ((od‘𝐺)‘𝑥))) ∥ (2↑1)))
133 1z 12619 . . . . . . . . . . . . . . . . . . . . . . . . 25 1 ∈ ℤ
134 eluz 12871 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((2 pCnt ((od‘𝐺)‘𝑥)) ∈ ℤ ∧ 1 ∈ ℤ) → (1 ∈ (ℤ‘(2 pCnt ((od‘𝐺)‘𝑥))) ↔ (2 pCnt ((od‘𝐺)‘𝑥)) ≤ 1))
135127, 133, 134sylancl 597 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) ∧ (𝑥𝐵 ∧ ¬ ((od‘𝐺)‘𝑥) ∥ 2)) → (1 ∈ (ℤ‘(2 pCnt ((od‘𝐺)‘𝑥))) ↔ (2 pCnt ((od‘𝐺)‘𝑥)) ≤ 1))
136 oveq2 7418 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑛 = 2 → (2↑𝑛) = (2↑2))
137136, 120eqtrdi 2814 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑛 = 2 → (2↑𝑛) = 4)
138137breq2d 5121 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑛 = 2 → (((od‘𝐺)‘𝑥) ∥ (2↑𝑛) ↔ ((od‘𝐺)‘𝑥) ∥ 4))
139138rspcev 3581 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((2 ∈ ℕ0 ∧ ((od‘𝐺)‘𝑥) ∥ 4) → ∃𝑛 ∈ ℕ0 ((od‘𝐺)‘𝑥) ∥ (2↑𝑛))
140121, 119, 139sylancr 598 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) ∧ (𝑥𝐵 ∧ ¬ ((od‘𝐺)‘𝑥) ∥ 2)) → ∃𝑛 ∈ ℕ0 ((od‘𝐺)‘𝑥) ∥ (2↑𝑛))
141 pcprmpw2 16937 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((2 ∈ ℙ ∧ ((od‘𝐺)‘𝑥) ∈ ℕ) → (∃𝑛 ∈ ℕ0 ((od‘𝐺)‘𝑥) ∥ (2↑𝑛) ↔ ((od‘𝐺)‘𝑥) = (2↑(2 pCnt ((od‘𝐺)‘𝑥)))))
14281, 124, 141sylancr 598 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) ∧ (𝑥𝐵 ∧ ¬ ((od‘𝐺)‘𝑥) ∥ 2)) → (∃𝑛 ∈ ℕ0 ((od‘𝐺)‘𝑥) ∥ (2↑𝑛) ↔ ((od‘𝐺)‘𝑥) = (2↑(2 pCnt ((od‘𝐺)‘𝑥)))))
143140, 142mpbid 235 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) ∧ (𝑥𝐵 ∧ ¬ ((od‘𝐺)‘𝑥) ∥ 2)) → ((od‘𝐺)‘𝑥) = (2↑(2 pCnt ((od‘𝐺)‘𝑥))))
144143eqcomd 2769 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) ∧ (𝑥𝐵 ∧ ¬ ((od‘𝐺)‘𝑥) ∥ 2)) → (2↑(2 pCnt ((od‘𝐺)‘𝑥))) = ((od‘𝐺)‘𝑥))
145 2cn 12311 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 2 ∈ ℂ
146 exp1 14099 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (2 ∈ ℂ → (2↑1) = 2)
147145, 146ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (2↑1) = 2
148147a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) ∧ (𝑥𝐵 ∧ ¬ ((od‘𝐺)‘𝑥) ∥ 2)) → (2↑1) = 2)
149144, 148breq12d 5122 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) ∧ (𝑥𝐵 ∧ ¬ ((od‘𝐺)‘𝑥) ∥ 2)) → ((2↑(2 pCnt ((od‘𝐺)‘𝑥))) ∥ (2↑1) ↔ ((od‘𝐺)‘𝑥) ∥ 2))
150132, 135, 1493imtr3d 296 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) ∧ (𝑥𝐵 ∧ ¬ ((od‘𝐺)‘𝑥) ∥ 2)) → ((2 pCnt ((od‘𝐺)‘𝑥)) ≤ 1 → ((od‘𝐺)‘𝑥) ∥ 2))
151129, 150mtod 201 . . . . . . . . . . . . . . . . . . . . . 22 (((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) ∧ (𝑥𝐵 ∧ ¬ ((od‘𝐺)‘𝑥) ∥ 2)) → ¬ (2 pCnt ((od‘𝐺)‘𝑥)) ≤ 1)
152 1re 11203 . . . . . . . . . . . . . . . . . . . . . . 23 1 ∈ ℝ
153126nn0red 12561 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) ∧ (𝑥𝐵 ∧ ¬ ((od‘𝐺)‘𝑥) ∥ 2)) → (2 pCnt ((od‘𝐺)‘𝑥)) ∈ ℝ)
154 ltnle 11284 . . . . . . . . . . . . . . . . . . . . . . 23 ((1 ∈ ℝ ∧ (2 pCnt ((od‘𝐺)‘𝑥)) ∈ ℝ) → (1 < (2 pCnt ((od‘𝐺)‘𝑥)) ↔ ¬ (2 pCnt ((od‘𝐺)‘𝑥)) ≤ 1))
155152, 153, 154sylancr 598 . . . . . . . . . . . . . . . . . . . . . 22 (((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) ∧ (𝑥𝐵 ∧ ¬ ((od‘𝐺)‘𝑥) ∥ 2)) → (1 < (2 pCnt ((od‘𝐺)‘𝑥)) ↔ ¬ (2 pCnt ((od‘𝐺)‘𝑥)) ≤ 1))
156151, 155mpbird 260 . . . . . . . . . . . . . . . . . . . . 21 (((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) ∧ (𝑥𝐵 ∧ ¬ ((od‘𝐺)‘𝑥) ∥ 2)) → 1 < (2 pCnt ((od‘𝐺)‘𝑥)))
157 nn0ltp1le 12649 . . . . . . . . . . . . . . . . . . . . . 22 ((1 ∈ ℕ0 ∧ (2 pCnt ((od‘𝐺)‘𝑥)) ∈ ℕ0) → (1 < (2 pCnt ((od‘𝐺)‘𝑥)) ↔ (1 + 1) ≤ (2 pCnt ((od‘𝐺)‘𝑥))))
15864, 126, 157sylancr 598 . . . . . . . . . . . . . . . . . . . . 21 (((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) ∧ (𝑥𝐵 ∧ ¬ ((od‘𝐺)‘𝑥) ∥ 2)) → (1 < (2 pCnt ((od‘𝐺)‘𝑥)) ↔ (1 + 1) ≤ (2 pCnt ((od‘𝐺)‘𝑥))))
159156, 158mpbid 235 . . . . . . . . . . . . . . . . . . . 20 (((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) ∧ (𝑥𝐵 ∧ ¬ ((od‘𝐺)‘𝑥) ∥ 2)) → (1 + 1) ≤ (2 pCnt ((od‘𝐺)‘𝑥)))
160128, 159eqbrtrid 5146 . . . . . . . . . . . . . . . . . . 19 (((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) ∧ (𝑥𝐵 ∧ ¬ ((od‘𝐺)‘𝑥) ∥ 2)) → 2 ≤ (2 pCnt ((od‘𝐺)‘𝑥)))
161 eluz2 12863 . . . . . . . . . . . . . . . . . . 19 ((2 pCnt ((od‘𝐺)‘𝑥)) ∈ (ℤ‘2) ↔ (2 ∈ ℤ ∧ (2 pCnt ((od‘𝐺)‘𝑥)) ∈ ℤ ∧ 2 ≤ (2 pCnt ((od‘𝐺)‘𝑥))))
162122, 127, 160, 161syl3anbrc 1362 . . . . . . . . . . . . . . . . . 18 (((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) ∧ (𝑥𝐵 ∧ ¬ ((od‘𝐺)‘𝑥) ∥ 2)) → (2 pCnt ((od‘𝐺)‘𝑥)) ∈ (ℤ‘2))
163 dvdsexp 16381 . . . . . . . . . . . . . . . . . 18 ((2 ∈ ℤ ∧ 2 ∈ ℕ0 ∧ (2 pCnt ((od‘𝐺)‘𝑥)) ∈ (ℤ‘2)) → (2↑2) ∥ (2↑(2 pCnt ((od‘𝐺)‘𝑥))))
16496, 121, 162, 163mp3an12i 1494 . . . . . . . . . . . . . . . . 17 (((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) ∧ (𝑥𝐵 ∧ ¬ ((od‘𝐺)‘𝑥) ∥ 2)) → (2↑2) ∥ (2↑(2 pCnt ((od‘𝐺)‘𝑥))))
165120, 164eqbrtrrid 5147 . . . . . . . . . . . . . . . 16 (((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) ∧ (𝑥𝐵 ∧ ¬ ((od‘𝐺)‘𝑥) ∥ 2)) → 4 ∥ (2↑(2 pCnt ((od‘𝐺)‘𝑥))))
166165, 143breqtrrd 5139 . . . . . . . . . . . . . . 15 (((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) ∧ (𝑥𝐵 ∧ ¬ ((od‘𝐺)‘𝑥) ∥ 2)) → 4 ∥ ((od‘𝐺)‘𝑥))
167 dvdseq 16367 . . . . . . . . . . . . . . 15 (((((od‘𝐺)‘𝑥) ∈ ℕ0 ∧ 4 ∈ ℕ0) ∧ (((od‘𝐺)‘𝑥) ∥ 4 ∧ 4 ∥ ((od‘𝐺)‘𝑥))) → ((od‘𝐺)‘𝑥) = 4)
168109, 111, 119, 166, 167syl22anc 851 . . . . . . . . . . . . . 14 (((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) ∧ (𝑥𝐵 ∧ ¬ ((od‘𝐺)‘𝑥) ∥ 2)) → ((od‘𝐺)‘𝑥) = 4)
169168, 118eqtr4d 2801 . . . . . . . . . . . . 13 (((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) ∧ (𝑥𝐵 ∧ ¬ ((od‘𝐺)‘𝑥) ∥ 2)) → ((od‘𝐺)‘𝑥) = (♯‘𝐵))
1701, 98, 106, 107, 169iscygodd 19953 . . . . . . . . . . . 12 (((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) ∧ (𝑥𝐵 ∧ ¬ ((od‘𝐺)‘𝑥) ∥ 2)) → 𝐺 ∈ CycGrp)
171170, 76syl 18 . . . . . . . . . . 11 (((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) ∧ (𝑥𝐵 ∧ ¬ ((od‘𝐺)‘𝑥) ∥ 2)) → 𝐺 ∈ Abel)
172171rexlimdvaa 3167 . . . . . . . . . 10 ((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) → (∃𝑥𝐵 ¬ ((od‘𝐺)‘𝑥) ∥ 2 → 𝐺 ∈ Abel))
173105, 172biimtrrid 246 . . . . . . . . 9 ((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) → (¬ ∀𝑥𝐵 ((od‘𝐺)‘𝑥) ∥ 2 → 𝐺 ∈ Abel))
174104, 173pm2.61d 181 . . . . . . . 8 ((𝐺 ∈ Grp ∧ (♯‘𝐵) = 4) → 𝐺 ∈ Abel)
175174ex 417 . . . . . . 7 (𝐺 ∈ Grp → ((♯‘𝐵) = 4 → 𝐺 ∈ Abel))
17694, 175jaod 872 . . . . . 6 (𝐺 ∈ Grp → (((♯‘𝐵) ∈ (1..^4) ∨ (♯‘𝐵) = 4) → 𝐺 ∈ Abel))
17742, 176biimtrid 245 . . . . 5 (𝐺 ∈ Grp → ((♯‘𝐵) ∈ (1..^5) → 𝐺 ∈ Abel))
178 id 23 . . . . . . 7 ((♯‘𝐵) = 5 → (♯‘𝐵) = 5)
179 5prm 17163 . . . . . . 7 5 ∈ ℙ
180178, 179eqeltrdi 2871 . . . . . 6 ((♯‘𝐵) = 5 → (♯‘𝐵) ∈ ℙ)
181180, 85syl5 35 . . . . 5 (𝐺 ∈ Grp → ((♯‘𝐵) = 5 → 𝐺 ∈ Abel))
182177, 181jaod 872 . . . 4 (𝐺 ∈ Grp → (((♯‘𝐵) ∈ (1..^5) ∨ (♯‘𝐵) = 5) → 𝐺 ∈ Abel))
18334, 182biimtrid 245 . . 3 (𝐺 ∈ Grp → ((♯‘𝐵) ∈ (1..^6) → 𝐺 ∈ Abel))
184183imp 411 . 2 ((𝐺 ∈ Grp ∧ (♯‘𝐵) ∈ (1..^6)) → 𝐺 ∈ Abel)
18526, 184syldan 602 1 ((𝐺 ∈ Grp ∧ (♯‘𝐵) < 6) → 𝐺 ∈ Abel)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 209  wa 400  wo 860   = wceq 1570  wcel 2143  wne 2958  wral 3079  wrex 3089  Vcvv 3455  c0 4286  {csn 4589   class class class wbr 5109  cfv 6536  (class class class)co 7410  ωcom 7858  1oc1o 8442  cen 8936  Fincfn 8939  cc 11093  cr 11094  1c1 11096   + caddc 11098  +∞cpnf 11235  *cxr 11237   < clt 11238  cle 11239  cn 12228  2c2 12290  3c3 12291  4c4 12292  5c5 12293  6c6 12294  0cn0 12499  cz 12586  cuz 12857  ..^cfzo 13678  cexp 14093  chash 14362  cdvds 16305  cprime 16724   pCnt cpc 16891  Basecbs 17264  Grpcgrp 18995  odcod 19589  gExcgex 19590  Abelcabl 19846  CycGrpccyg 19942
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1825  ax-4 1839  ax-5 1940  ax-6 1997  ax-7 2038  ax-8 2145  ax-9 2153  ax-10 2176  ax-11 2192  ax-12 2213  ax-ext 2735  ax-rep 5238  ax-sep 5257  ax-nul 5269  ax-pow 5336  ax-pr 5404  ax-un 7732  ax-inf2 9606  ax-cnex 11151  ax-resscn 11152  ax-1cn 11153  ax-icn 11154  ax-addcl 11155  ax-addrcl 11156  ax-mulcl 11157  ax-mulrcl 11158  ax-mulcom 11159  ax-addass 11160  ax-mulass 11161  ax-distr 11162  ax-i2m1 11163  ax-1ne0 11164  ax-1rid 11165  ax-rnegex 11166  ax-rrecex 11167  ax-cnre 11168  ax-pre-lttri 11169  ax-pre-lttrn 11170  ax-pre-ltadd 11171  ax-pre-mulgt0 11172  ax-pre-sup 11173
This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1810  df-nf 1814  df-sb 2097  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-nel 3065  df-ral 3080  df-rex 3090  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3457  df-sbc 3745  df-csb 3854  df-dif 3908  df-un 3910  df-in 3912  df-ss 3922  df-pss 3925  df-nul 4287  df-if 4488  df-pw 4564  df-sn 4590  df-pr 4592  df-op 4596  df-uni 4873  df-int 4913  df-iun 4958  df-disj 5077  df-br 5110  df-opab 5174  df-mpt 5193  df-tr 5219  df-id 5556  df-eprel 5561  df-po 5569  df-so 5570  df-fr 5614  df-se 5615  df-we 5616  df-xp 5667  df-rel 5668  df-cnv 5669  df-co 5670  df-dm 5671  df-rn 5672  df-res 5673  df-ima 5674  df-pred 6302  df-ord 6363  df-on 6364  df-lim 6365  df-suc 6366  df-iota 6492  df-fun 6538  df-fn 6539  df-f 6540  df-f1 6541  df-fo 6542  df-f1o 6543  df-fv 6544  df-isom 6545  df-riota 7367  df-ov 7413  df-oprab 7414  df-mpo 7415  df-om 7859  df-1st 7982  df-2nd 7983  df-frecs 8274  df-wrecs 8305  df-recs 8354  df-rdg 8393  df-1o 8449  df-2o 8450  df-oadd 8453  df-omul 8454  df-er 8690  df-ec 8692  df-qs 8696  df-map 8822  df-en 8940  df-dom 8941  df-sdom 8942  df-fin 8943  df-sup 9398  df-inf 9399  df-oi 9468  df-dju 9883  df-card 9921  df-acn 9924  df-pnf 11240  df-mnf 11241  df-xr 11242  df-ltxr 11243  df-le 11244  df-sub 11438  df-neg 11439  df-div 11867  df-nn 12229  df-2 12298  df-3 12299  df-4 12300  df-5 12301  df-6 12302  df-7 12303  df-8 12304  df-9 12305  df-n0 12500  df-z 12587  df-dec 12707  df-uz 12858  df-q 12968  df-rp 13012  df-fz 13531  df-fzo 13679  df-fl 13821  df-mod 13899  df-seq 14034  df-exp 14094  df-hash 14363  df-cj 15146  df-re 15147  df-im 15148  df-sqrt 15282  df-abs 15283  df-clim 15535  df-sum 15734  df-dvds 16306  df-gcd 16548  df-prm 16725  df-pc 16892  df-sets 17219  df-slot 17237  df-ndx 17249  df-base 17265  df-ress 17286  df-plusg 17318  df-0g 17489  df-mgm 18693  df-sgrp 18772  df-mnd 18788  df-grp 18998  df-minusg 18999  df-sbg 19000  df-mulg 19129  df-subg 19184  df-eqg 19186  df-od 19593  df-gex 19594  df-cmn 19847  df-abl 19848  df-cyg 19943
This theorem is referenced by:  pgrple2abl  49165
  Copyright terms: Public domain W3C validator