Users' Mathboxes Mathbox for Stefan O'Rear < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  idomsubgmo Structured version   Visualization version   GIF version

Theorem idomsubgmo 40759
Description: The units of an integral domain have at most one subgroup of any single finite cardinality. (Contributed by Stefan O'Rear, 12-Sep-2015.) (Revised by NM, 17-Jun-2017.)
Hypothesis
Ref Expression
idomsubgmo.g 𝐺 = ((mulGrp‘𝑅) ↾s (Unit‘𝑅))
Assertion
Ref Expression
idomsubgmo ((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) → ∃*𝑦 ∈ (SubGrp‘𝐺)(♯‘𝑦) = 𝑁)
Distinct variable groups:   𝑦,𝐺   𝑦,𝑁   𝑦,𝑅

Proof of Theorem idomsubgmo
Dummy variables 𝑥 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 fvex 6749 . . . . . . . . 9 (Base‘𝐺) ∈ V
21rabex 5240 . . . . . . . 8 {𝑧 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑧) ∥ 𝑁} ∈ V
3 simp2l 1201 . . . . . . . . . . 11 (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ (SubGrp‘𝐺)) ∧ ((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁)) → 𝑦 ∈ (SubGrp‘𝐺))
4 eqid 2738 . . . . . . . . . . . 12 (Base‘𝐺) = (Base‘𝐺)
54subgss 18572 . . . . . . . . . . 11 (𝑦 ∈ (SubGrp‘𝐺) → 𝑦 ⊆ (Base‘𝐺))
63, 5syl 17 . . . . . . . . . 10 (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ (SubGrp‘𝐺)) ∧ ((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁)) → 𝑦 ⊆ (Base‘𝐺))
7 simpl2l 1228 . . . . . . . . . . . 12 ((((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ (SubGrp‘𝐺)) ∧ ((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁)) ∧ 𝑧𝑦) → 𝑦 ∈ (SubGrp‘𝐺))
8 simp3l 1203 . . . . . . . . . . . . . . 15 (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ (SubGrp‘𝐺)) ∧ ((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁)) → (♯‘𝑦) = 𝑁)
9 simp1r 1200 . . . . . . . . . . . . . . . 16 (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ (SubGrp‘𝐺)) ∧ ((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁)) → 𝑁 ∈ ℕ)
109nnnn0d 12175 . . . . . . . . . . . . . . 15 (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ (SubGrp‘𝐺)) ∧ ((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁)) → 𝑁 ∈ ℕ0)
118, 10eqeltrd 2839 . . . . . . . . . . . . . 14 (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ (SubGrp‘𝐺)) ∧ ((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁)) → (♯‘𝑦) ∈ ℕ0)
12 vex 3425 . . . . . . . . . . . . . . 15 𝑦 ∈ V
13 hashclb 13953 . . . . . . . . . . . . . . 15 (𝑦 ∈ V → (𝑦 ∈ Fin ↔ (♯‘𝑦) ∈ ℕ0))
1412, 13ax-mp 5 . . . . . . . . . . . . . 14 (𝑦 ∈ Fin ↔ (♯‘𝑦) ∈ ℕ0)
1511, 14sylibr 237 . . . . . . . . . . . . 13 (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ (SubGrp‘𝐺)) ∧ ((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁)) → 𝑦 ∈ Fin)
1615adantr 484 . . . . . . . . . . . 12 ((((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ (SubGrp‘𝐺)) ∧ ((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁)) ∧ 𝑧𝑦) → 𝑦 ∈ Fin)
17 simpr 488 . . . . . . . . . . . 12 ((((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ (SubGrp‘𝐺)) ∧ ((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁)) ∧ 𝑧𝑦) → 𝑧𝑦)
18 eqid 2738 . . . . . . . . . . . . 13 (od‘𝐺) = (od‘𝐺)
1918odsubdvds 18988 . . . . . . . . . . . 12 ((𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑦 ∈ Fin ∧ 𝑧𝑦) → ((od‘𝐺)‘𝑧) ∥ (♯‘𝑦))
207, 16, 17, 19syl3anc 1373 . . . . . . . . . . 11 ((((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ (SubGrp‘𝐺)) ∧ ((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁)) ∧ 𝑧𝑦) → ((od‘𝐺)‘𝑧) ∥ (♯‘𝑦))
218adantr 484 . . . . . . . . . . 11 ((((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ (SubGrp‘𝐺)) ∧ ((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁)) ∧ 𝑧𝑦) → (♯‘𝑦) = 𝑁)
2220, 21breqtrd 5094 . . . . . . . . . 10 ((((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ (SubGrp‘𝐺)) ∧ ((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁)) ∧ 𝑧𝑦) → ((od‘𝐺)‘𝑧) ∥ 𝑁)
236, 22ssrabdv 4002 . . . . . . . . 9 (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ (SubGrp‘𝐺)) ∧ ((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁)) → 𝑦 ⊆ {𝑧 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑧) ∥ 𝑁})
24 simp2r 1202 . . . . . . . . . . 11 (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ (SubGrp‘𝐺)) ∧ ((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁)) → 𝑥 ∈ (SubGrp‘𝐺))
254subgss 18572 . . . . . . . . . . 11 (𝑥 ∈ (SubGrp‘𝐺) → 𝑥 ⊆ (Base‘𝐺))
2624, 25syl 17 . . . . . . . . . 10 (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ (SubGrp‘𝐺)) ∧ ((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁)) → 𝑥 ⊆ (Base‘𝐺))
27 simpl2r 1229 . . . . . . . . . . . 12 ((((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ (SubGrp‘𝐺)) ∧ ((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁)) ∧ 𝑧𝑥) → 𝑥 ∈ (SubGrp‘𝐺))
28 simp3r 1204 . . . . . . . . . . . . . . 15 (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ (SubGrp‘𝐺)) ∧ ((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁)) → (♯‘𝑥) = 𝑁)
2928, 10eqeltrd 2839 . . . . . . . . . . . . . 14 (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ (SubGrp‘𝐺)) ∧ ((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁)) → (♯‘𝑥) ∈ ℕ0)
30 vex 3425 . . . . . . . . . . . . . . 15 𝑥 ∈ V
31 hashclb 13953 . . . . . . . . . . . . . . 15 (𝑥 ∈ V → (𝑥 ∈ Fin ↔ (♯‘𝑥) ∈ ℕ0))
3230, 31ax-mp 5 . . . . . . . . . . . . . 14 (𝑥 ∈ Fin ↔ (♯‘𝑥) ∈ ℕ0)
3329, 32sylibr 237 . . . . . . . . . . . . 13 (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ (SubGrp‘𝐺)) ∧ ((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁)) → 𝑥 ∈ Fin)
3433adantr 484 . . . . . . . . . . . 12 ((((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ (SubGrp‘𝐺)) ∧ ((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁)) ∧ 𝑧𝑥) → 𝑥 ∈ Fin)
35 simpr 488 . . . . . . . . . . . 12 ((((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ (SubGrp‘𝐺)) ∧ ((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁)) ∧ 𝑧𝑥) → 𝑧𝑥)
3618odsubdvds 18988 . . . . . . . . . . . 12 ((𝑥 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ Fin ∧ 𝑧𝑥) → ((od‘𝐺)‘𝑧) ∥ (♯‘𝑥))
3727, 34, 35, 36syl3anc 1373 . . . . . . . . . . 11 ((((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ (SubGrp‘𝐺)) ∧ ((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁)) ∧ 𝑧𝑥) → ((od‘𝐺)‘𝑧) ∥ (♯‘𝑥))
3828adantr 484 . . . . . . . . . . 11 ((((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ (SubGrp‘𝐺)) ∧ ((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁)) ∧ 𝑧𝑥) → (♯‘𝑥) = 𝑁)
3937, 38breqtrd 5094 . . . . . . . . . 10 ((((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ (SubGrp‘𝐺)) ∧ ((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁)) ∧ 𝑧𝑥) → ((od‘𝐺)‘𝑧) ∥ 𝑁)
4026, 39ssrabdv 4002 . . . . . . . . 9 (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ (SubGrp‘𝐺)) ∧ ((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁)) → 𝑥 ⊆ {𝑧 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑧) ∥ 𝑁})
4123, 40unssd 4115 . . . . . . . 8 (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ (SubGrp‘𝐺)) ∧ ((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁)) → (𝑦𝑥) ⊆ {𝑧 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑧) ∥ 𝑁})
42 ssdomg 8697 . . . . . . . 8 ({𝑧 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑧) ∥ 𝑁} ∈ V → ((𝑦𝑥) ⊆ {𝑧 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑧) ∥ 𝑁} → (𝑦𝑥) ≼ {𝑧 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑧) ∥ 𝑁}))
432, 41, 42mpsyl 68 . . . . . . 7 (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ (SubGrp‘𝐺)) ∧ ((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁)) → (𝑦𝑥) ≼ {𝑧 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑧) ∥ 𝑁})
44 idomsubgmo.g . . . . . . . . . . 11 𝐺 = ((mulGrp‘𝑅) ↾s (Unit‘𝑅))
4544, 4, 18idomodle 40757 . . . . . . . . . 10 ((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) → (♯‘{𝑧 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑧) ∥ 𝑁}) ≤ 𝑁)
46453ad2ant1 1135 . . . . . . . . 9 (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ (SubGrp‘𝐺)) ∧ ((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁)) → (♯‘{𝑧 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑧) ∥ 𝑁}) ≤ 𝑁)
4746, 8breqtrrd 5096 . . . . . . . 8 (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ (SubGrp‘𝐺)) ∧ ((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁)) → (♯‘{𝑧 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑧) ∥ 𝑁}) ≤ (♯‘𝑦))
482a1i 11 . . . . . . . . . 10 (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ (SubGrp‘𝐺)) ∧ ((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁)) → {𝑧 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑧) ∥ 𝑁} ∈ V)
49 hashbnd 13930 . . . . . . . . . 10 (({𝑧 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑧) ∥ 𝑁} ∈ V ∧ (♯‘𝑦) ∈ ℕ0 ∧ (♯‘{𝑧 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑧) ∥ 𝑁}) ≤ (♯‘𝑦)) → {𝑧 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑧) ∥ 𝑁} ∈ Fin)
5048, 11, 47, 49syl3anc 1373 . . . . . . . . 9 (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ (SubGrp‘𝐺)) ∧ ((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁)) → {𝑧 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑧) ∥ 𝑁} ∈ Fin)
51 hashdom 13974 . . . . . . . . 9 (({𝑧 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑧) ∥ 𝑁} ∈ Fin ∧ 𝑦 ∈ V) → ((♯‘{𝑧 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑧) ∥ 𝑁}) ≤ (♯‘𝑦) ↔ {𝑧 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑧) ∥ 𝑁} ≼ 𝑦))
5250, 12, 51sylancl 589 . . . . . . . 8 (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ (SubGrp‘𝐺)) ∧ ((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁)) → ((♯‘{𝑧 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑧) ∥ 𝑁}) ≤ (♯‘𝑦) ↔ {𝑧 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑧) ∥ 𝑁} ≼ 𝑦))
5347, 52mpbid 235 . . . . . . 7 (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ (SubGrp‘𝐺)) ∧ ((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁)) → {𝑧 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑧) ∥ 𝑁} ≼ 𝑦)
54 domtr 8704 . . . . . . 7 (((𝑦𝑥) ≼ {𝑧 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑧) ∥ 𝑁} ∧ {𝑧 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑧) ∥ 𝑁} ≼ 𝑦) → (𝑦𝑥) ≼ 𝑦)
5543, 53, 54syl2anc 587 . . . . . 6 (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ (SubGrp‘𝐺)) ∧ ((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁)) → (𝑦𝑥) ≼ 𝑦)
5612, 30unex 7550 . . . . . . 7 (𝑦𝑥) ∈ V
57 ssun1 4101 . . . . . . 7 𝑦 ⊆ (𝑦𝑥)
58 ssdomg 8697 . . . . . . 7 ((𝑦𝑥) ∈ V → (𝑦 ⊆ (𝑦𝑥) → 𝑦 ≼ (𝑦𝑥)))
5956, 57, 58mp2 9 . . . . . 6 𝑦 ≼ (𝑦𝑥)
60 sbth 8789 . . . . . 6 (((𝑦𝑥) ≼ 𝑦𝑦 ≼ (𝑦𝑥)) → (𝑦𝑥) ≈ 𝑦)
6155, 59, 60sylancl 589 . . . . 5 (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ (SubGrp‘𝐺)) ∧ ((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁)) → (𝑦𝑥) ≈ 𝑦)
628, 28eqtr4d 2781 . . . . . . 7 (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ (SubGrp‘𝐺)) ∧ ((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁)) → (♯‘𝑦) = (♯‘𝑥))
63 hashen 13941 . . . . . . . 8 ((𝑦 ∈ Fin ∧ 𝑥 ∈ Fin) → ((♯‘𝑦) = (♯‘𝑥) ↔ 𝑦𝑥))
6415, 33, 63syl2anc 587 . . . . . . 7 (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ (SubGrp‘𝐺)) ∧ ((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁)) → ((♯‘𝑦) = (♯‘𝑥) ↔ 𝑦𝑥))
6562, 64mpbid 235 . . . . . 6 (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ (SubGrp‘𝐺)) ∧ ((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁)) → 𝑦𝑥)
66 fiuneneq 40758 . . . . . 6 ((𝑦𝑥𝑦 ∈ Fin) → ((𝑦𝑥) ≈ 𝑦𝑦 = 𝑥))
6765, 15, 66syl2anc 587 . . . . 5 (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ (SubGrp‘𝐺)) ∧ ((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁)) → ((𝑦𝑥) ≈ 𝑦𝑦 = 𝑥))
6861, 67mpbid 235 . . . 4 (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ (SubGrp‘𝐺)) ∧ ((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁)) → 𝑦 = 𝑥)
69683expia 1123 . . 3 (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑥 ∈ (SubGrp‘𝐺))) → (((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁) → 𝑦 = 𝑥))
7069ralrimivva 3113 . 2 ((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) → ∀𝑦 ∈ (SubGrp‘𝐺)∀𝑥 ∈ (SubGrp‘𝐺)(((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁) → 𝑦 = 𝑥))
71 fveqeq2 6745 . . 3 (𝑦 = 𝑥 → ((♯‘𝑦) = 𝑁 ↔ (♯‘𝑥) = 𝑁))
7271rmo4 3658 . 2 (∃*𝑦 ∈ (SubGrp‘𝐺)(♯‘𝑦) = 𝑁 ↔ ∀𝑦 ∈ (SubGrp‘𝐺)∀𝑥 ∈ (SubGrp‘𝐺)(((♯‘𝑦) = 𝑁 ∧ (♯‘𝑥) = 𝑁) → 𝑦 = 𝑥))
7370, 72sylibr 237 1 ((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) → ∃*𝑦 ∈ (SubGrp‘𝐺)(♯‘𝑦) = 𝑁)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 209  wa 399  w3a 1089   = wceq 1543  wcel 2111  wral 3062  ∃*wrmo 3065  {crab 3066  Vcvv 3421  cun 3879  wss 3881   class class class wbr 5068  cfv 6398  (class class class)co 7232  cen 8644  cdom 8645  Fincfn 8647  cle 10893  cn 11855  0cn0 12115  chash 13924  cdvds 15843  Basecbs 16788  s cress 16812  SubGrpcsubg 18565  odcod 18944  mulGrpcmgp 19532  Unitcui 19685  IDomncidom 20347
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1803  ax-4 1817  ax-5 1918  ax-6 1976  ax-7 2016  ax-8 2113  ax-9 2121  ax-10 2142  ax-11 2159  ax-12 2176  ax-ext 2709  ax-rep 5194  ax-sep 5207  ax-nul 5214  ax-pow 5273  ax-pr 5337  ax-un 7542  ax-inf2 9281  ax-cnex 10810  ax-resscn 10811  ax-1cn 10812  ax-icn 10813  ax-addcl 10814  ax-addrcl 10815  ax-mulcl 10816  ax-mulrcl 10817  ax-mulcom 10818  ax-addass 10819  ax-mulass 10820  ax-distr 10821  ax-i2m1 10822  ax-1ne0 10823  ax-1rid 10824  ax-rnegex 10825  ax-rrecex 10826  ax-cnre 10827  ax-pre-lttri 10828  ax-pre-lttrn 10829  ax-pre-ltadd 10830  ax-pre-mulgt0 10831  ax-pre-sup 10832  ax-addf 10833  ax-mulf 10834
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 848  df-3or 1090  df-3an 1091  df-tru 1546  df-fal 1556  df-ex 1788  df-nf 1792  df-sb 2072  df-mo 2540  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2817  df-nfc 2887  df-ne 2942  df-nel 3048  df-ral 3067  df-rex 3068  df-reu 3069  df-rmo 3070  df-rab 3071  df-v 3423  df-sbc 3710  df-csb 3827  df-dif 3884  df-un 3886  df-in 3888  df-ss 3898  df-pss 3900  df-nul 4253  df-if 4455  df-pw 4530  df-sn 4557  df-pr 4559  df-tp 4561  df-op 4563  df-uni 4835  df-int 4875  df-iun 4921  df-iin 4922  df-disj 5034  df-br 5069  df-opab 5131  df-mpt 5151  df-tr 5177  df-id 5470  df-eprel 5475  df-po 5483  df-so 5484  df-fr 5524  df-se 5525  df-we 5526  df-xp 5572  df-rel 5573  df-cnv 5574  df-co 5575  df-dm 5576  df-rn 5577  df-res 5578  df-ima 5579  df-pred 6176  df-ord 6234  df-on 6235  df-lim 6236  df-suc 6237  df-iota 6356  df-fun 6400  df-fn 6401  df-f 6402  df-f1 6403  df-fo 6404  df-f1o 6405  df-fv 6406  df-isom 6407  df-riota 7189  df-ov 7235  df-oprab 7236  df-mpo 7237  df-of 7488  df-ofr 7489  df-om 7664  df-1st 7780  df-2nd 7781  df-supp 7925  df-tpos 7989  df-wrecs 8068  df-recs 8129  df-rdg 8167  df-1o 8223  df-oadd 8227  df-omul 8228  df-er 8412  df-ec 8414  df-qs 8418  df-map 8531  df-pm 8532  df-ixp 8600  df-en 8648  df-dom 8649  df-sdom 8650  df-fin 8651  df-fsupp 9011  df-sup 9083  df-inf 9084  df-oi 9151  df-dju 9542  df-card 9580  df-acn 9583  df-pnf 10894  df-mnf 10895  df-xr 10896  df-ltxr 10897  df-le 10898  df-sub 11089  df-neg 11090  df-div 11515  df-nn 11856  df-2 11918  df-3 11919  df-4 11920  df-5 11921  df-6 11922  df-7 11923  df-8 11924  df-9 11925  df-n0 12116  df-xnn0 12188  df-z 12202  df-dec 12319  df-uz 12464  df-rp 12612  df-fz 13121  df-fzo 13264  df-fl 13392  df-mod 13470  df-seq 13602  df-exp 13663  df-hash 13925  df-cj 14690  df-re 14691  df-im 14692  df-sqrt 14826  df-abs 14827  df-clim 15077  df-sum 15278  df-dvds 15844  df-struct 16728  df-sets 16745  df-slot 16763  df-ndx 16773  df-base 16789  df-ress 16813  df-plusg 16843  df-mulr 16844  df-starv 16845  df-sca 16846  df-vsca 16847  df-ip 16848  df-tset 16849  df-ple 16850  df-ds 16852  df-unif 16853  df-hom 16854  df-cco 16855  df-0g 16974  df-gsum 16975  df-prds 16980  df-pws 16982  df-mre 17117  df-mrc 17118  df-acs 17120  df-mgm 18142  df-sgrp 18191  df-mnd 18202  df-mhm 18246  df-submnd 18247  df-grp 18396  df-minusg 18397  df-sbg 18398  df-mulg 18517  df-subg 18568  df-eqg 18570  df-ghm 18648  df-cntz 18739  df-od 18948  df-cmn 19200  df-abl 19201  df-mgp 19533  df-ur 19545  df-srg 19549  df-ring 19592  df-cring 19593  df-oppr 19669  df-dvdsr 19687  df-unit 19688  df-invr 19718  df-rnghom 19763  df-subrg 19826  df-lmod 19929  df-lss 19997  df-lsp 20037  df-nzr 20324  df-rlreg 20349  df-domn 20350  df-idom 20351  df-cnfld 20392  df-assa 20843  df-asp 20844  df-ascl 20845  df-psr 20895  df-mvr 20896  df-mpl 20897  df-opsr 20899  df-evls 21059  df-evl 21060  df-psr1 21128  df-vr1 21129  df-ply1 21130  df-coe1 21131  df-evl1 21259  df-mdeg 24977  df-deg1 24978  df-mon1 25055  df-uc1p 25056  df-q1p 25057  df-r1p 25058
This theorem is referenced by:  proot1mul  40760
  Copyright terms: Public domain W3C validator