isnumbasgrplem3 - Mathbox for Stefan O'Rear

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

Theorem isnumbasgrplem3 43138

Description: Every nonempty numerable set can be given the structure of an Abelian group, either a finite cyclic group or a vector space over Z/2Z. (Contributed by Stefan O'Rear, 10-Jul-2015.)

**Assertion**
Ref	Expression
isnumbasgrplem3	⊢ ((𝑆 ∈ dom card ∧ 𝑆 ≠ ∅) → 𝑆 ∈ (Base “ Abel))

**Proof of Theorem isnumbasgrplem3**
Step	Hyp	Ref	Expression
1		hashcl 14258	. . . . . 6 ⊢ (𝑆 ∈ Fin → (♯‘𝑆) ∈ ℕ₀)
2	1	adantl 481	. . . . 5 ⊢ ((𝑆 ≠ ∅ ∧ 𝑆 ∈ Fin) → (♯‘𝑆) ∈ ℕ₀)
3		eqid 2731	. . . . . 6 ⊢ (ℤ/nℤ‘(♯‘𝑆)) = (ℤ/nℤ‘(♯‘𝑆))
4	3	zncrng 21476	. . . . 5 ⊢ ((♯‘𝑆) ∈ ℕ₀ → (ℤ/nℤ‘(♯‘𝑆)) ∈ CRing)
5		crngring 20158	. . . . 5 ⊢ ((ℤ/nℤ‘(♯‘𝑆)) ∈ CRing → (ℤ/nℤ‘(♯‘𝑆)) ∈ Ring)
6		ringabl 20194	. . . . 5 ⊢ ((ℤ/nℤ‘(♯‘𝑆)) ∈ Ring → (ℤ/nℤ‘(♯‘𝑆)) ∈ Abel)
7	2, 4, 5, 6	4syl 19	. . . 4 ⊢ ((𝑆 ≠ ∅ ∧ 𝑆 ∈ Fin) → (ℤ/nℤ‘(♯‘𝑆)) ∈ Abel)
8		hashnncl 14268	. . . . . . . 8 ⊢ (𝑆 ∈ Fin → ((♯‘𝑆) ∈ ℕ ↔ 𝑆 ≠ ∅))
9	8	biimparc 479	. . . . . . 7 ⊢ ((𝑆 ≠ ∅ ∧ 𝑆 ∈ Fin) → (♯‘𝑆) ∈ ℕ)
10		eqid 2731	. . . . . . . 8 ⊢ (Base‘(ℤ/nℤ‘(♯‘𝑆))) = (Base‘(ℤ/nℤ‘(♯‘𝑆)))
11	3, 10	znhash 21490	. . . . . . 7 ⊢ ((♯‘𝑆) ∈ ℕ → (♯‘(Base‘(ℤ/nℤ‘(♯‘𝑆)))) = (♯‘𝑆))
12	9, 11	syl 17	. . . . . 6 ⊢ ((𝑆 ≠ ∅ ∧ 𝑆 ∈ Fin) → (♯‘(Base‘(ℤ/nℤ‘(♯‘𝑆)))) = (♯‘𝑆))
13	12	eqcomd 2737	. . . . 5 ⊢ ((𝑆 ≠ ∅ ∧ 𝑆 ∈ Fin) → (♯‘𝑆) = (♯‘(Base‘(ℤ/nℤ‘(♯‘𝑆)))))
14		simpr 484	. . . . . 6 ⊢ ((𝑆 ≠ ∅ ∧ 𝑆 ∈ Fin) → 𝑆 ∈ Fin)
15	3, 10	znfi 21491	. . . . . . 7 ⊢ ((♯‘𝑆) ∈ ℕ → (Base‘(ℤ/nℤ‘(♯‘𝑆))) ∈ Fin)
16	9, 15	syl 17	. . . . . 6 ⊢ ((𝑆 ≠ ∅ ∧ 𝑆 ∈ Fin) → (Base‘(ℤ/nℤ‘(♯‘𝑆))) ∈ Fin)
17		hashen 14249	. . . . . 6 ⊢ ((𝑆 ∈ Fin ∧ (Base‘(ℤ/nℤ‘(♯‘𝑆))) ∈ Fin) → ((♯‘𝑆) = (♯‘(Base‘(ℤ/nℤ‘(♯‘𝑆)))) ↔ 𝑆 ≈ (Base‘(ℤ/nℤ‘(♯‘𝑆)))))
18	14, 16, 17	syl2anc 584	. . . . 5 ⊢ ((𝑆 ≠ ∅ ∧ 𝑆 ∈ Fin) → ((♯‘𝑆) = (♯‘(Base‘(ℤ/nℤ‘(♯‘𝑆)))) ↔ 𝑆 ≈ (Base‘(ℤ/nℤ‘(♯‘𝑆)))))
19	13, 18	mpbid 232	. . . 4 ⊢ ((𝑆 ≠ ∅ ∧ 𝑆 ∈ Fin) → 𝑆 ≈ (Base‘(ℤ/nℤ‘(♯‘𝑆))))
20	10	isnumbasgrplem1 43134	. . . 4 ⊢ (((ℤ/nℤ‘(♯‘𝑆)) ∈ Abel ∧ 𝑆 ≈ (Base‘(ℤ/nℤ‘(♯‘𝑆)))) → 𝑆 ∈ (Base “ Abel))
21	7, 19, 20	syl2anc 584	. . 3 ⊢ ((𝑆 ≠ ∅ ∧ 𝑆 ∈ Fin) → 𝑆 ∈ (Base “ Abel))
22	21	adantll 714	. 2 ⊢ (((𝑆 ∈ dom card ∧ 𝑆 ≠ ∅) ∧ 𝑆 ∈ Fin) → 𝑆 ∈ (Base “ Abel))
23		2nn0 12393	. . . . . . 7 ⊢ 2 ∈ ℕ₀
24		eqid 2731	. . . . . . . 8 ⊢ (ℤ/nℤ‘2) = (ℤ/nℤ‘2)
25	24	zncrng 21476	. . . . . . 7 ⊢ (2 ∈ ℕ₀ → (ℤ/nℤ‘2) ∈ CRing)
26		crngring 20158	. . . . . . 7 ⊢ ((ℤ/nℤ‘2) ∈ CRing → (ℤ/nℤ‘2) ∈ Ring)
27	23, 25, 26	mp2b 10	. . . . . 6 ⊢ (ℤ/nℤ‘2) ∈ Ring
28		eqid 2731	. . . . . . 7 ⊢ ((ℤ/nℤ‘2) freeLMod 𝑆) = ((ℤ/nℤ‘2) freeLMod 𝑆)
29	28	frlmlmod 21681	. . . . . 6 ⊢ (((ℤ/nℤ‘2) ∈ Ring ∧ 𝑆 ∈ dom card) → ((ℤ/nℤ‘2) freeLMod 𝑆) ∈ LMod)
30	27, 29	mpan 690	. . . . 5 ⊢ (𝑆 ∈ dom card → ((ℤ/nℤ‘2) freeLMod 𝑆) ∈ LMod)
31		lmodabl 20837	. . . . 5 ⊢ (((ℤ/nℤ‘2) freeLMod 𝑆) ∈ LMod → ((ℤ/nℤ‘2) freeLMod 𝑆) ∈ Abel)
32	30, 31	syl 17	. . . 4 ⊢ (𝑆 ∈ dom card → ((ℤ/nℤ‘2) freeLMod 𝑆) ∈ Abel)
33	32	ad2antrr 726	. . 3 ⊢ (((𝑆 ∈ dom card ∧ 𝑆 ≠ ∅) ∧ ¬ 𝑆 ∈ Fin) → ((ℤ/nℤ‘2) freeLMod 𝑆) ∈ Abel)
34		eqid 2731	. . . . . . 7 ⊢ (Base‘((ℤ/nℤ‘2) freeLMod 𝑆)) = (Base‘((ℤ/nℤ‘2) freeLMod 𝑆))
35	24, 28, 34	frlmpwfi 43131	. . . . . 6 ⊢ (𝑆 ∈ dom card → (Base‘((ℤ/nℤ‘2) freeLMod 𝑆)) ≈ (𝒫 𝑆 ∩ Fin))
36	35	ad2antrr 726	. . . . 5 ⊢ (((𝑆 ∈ dom card ∧ 𝑆 ≠ ∅) ∧ ¬ 𝑆 ∈ Fin) → (Base‘((ℤ/nℤ‘2) freeLMod 𝑆)) ≈ (𝒫 𝑆 ∩ Fin))
37		simpll 766	. . . . . 6 ⊢ (((𝑆 ∈ dom card ∧ 𝑆 ≠ ∅) ∧ ¬ 𝑆 ∈ Fin) → 𝑆 ∈ dom card)
38		numinfctb 43136	. . . . . . 7 ⊢ ((𝑆 ∈ dom card ∧ ¬ 𝑆 ∈ Fin) → ω ≼ 𝑆)
39	38	adantlr 715	. . . . . 6 ⊢ (((𝑆 ∈ dom card ∧ 𝑆 ≠ ∅) ∧ ¬ 𝑆 ∈ Fin) → ω ≼ 𝑆)
40		infpwfien 9948	. . . . . 6 ⊢ ((𝑆 ∈ dom card ∧ ω ≼ 𝑆) → (𝒫 𝑆 ∩ Fin) ≈ 𝑆)
41	37, 39, 40	syl2anc 584	. . . . 5 ⊢ (((𝑆 ∈ dom card ∧ 𝑆 ≠ ∅) ∧ ¬ 𝑆 ∈ Fin) → (𝒫 𝑆 ∩ Fin) ≈ 𝑆)
42		entr 8923	. . . . 5 ⊢ (((Base‘((ℤ/nℤ‘2) freeLMod 𝑆)) ≈ (𝒫 𝑆 ∩ Fin) ∧ (𝒫 𝑆 ∩ Fin) ≈ 𝑆) → (Base‘((ℤ/nℤ‘2) freeLMod 𝑆)) ≈ 𝑆)
43	36, 41, 42	syl2anc 584	. . . 4 ⊢ (((𝑆 ∈ dom card ∧ 𝑆 ≠ ∅) ∧ ¬ 𝑆 ∈ Fin) → (Base‘((ℤ/nℤ‘2) freeLMod 𝑆)) ≈ 𝑆)
44	43	ensymd 8922	. . 3 ⊢ (((𝑆 ∈ dom card ∧ 𝑆 ≠ ∅) ∧ ¬ 𝑆 ∈ Fin) → 𝑆 ≈ (Base‘((ℤ/nℤ‘2) freeLMod 𝑆)))
45	34	isnumbasgrplem1 43134	. . 3 ⊢ ((((ℤ/nℤ‘2) freeLMod 𝑆) ∈ Abel ∧ 𝑆 ≈ (Base‘((ℤ/nℤ‘2) freeLMod 𝑆))) → 𝑆 ∈ (Base “ Abel))
46	33, 44, 45	syl2anc 584	. 2 ⊢ (((𝑆 ∈ dom card ∧ 𝑆 ≠ ∅) ∧ ¬ 𝑆 ∈ Fin) → 𝑆 ∈ (Base “ Abel))
47	22, 46	pm2.61dan 812	1 ⊢ ((𝑆 ∈ dom card ∧ 𝑆 ≠ ∅) → 𝑆 ∈ (Base “ Abel))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 206 ∧ wa 395 = wceq 1541 ∈ wcel 2111 ≠ wne 2928 ∩ cin 3896 ∅c0 4278 𝒫 cpw 4545 class class class wbr 5086 dom cdm 5611 “ cima 5614 ‘cfv 6476 (class class class)co 7341 ωcom 7791 ≈ cen 8861 ≼ cdom 8862 Fincfn 8864 cardccrd 9823 ℕcn 12120 2c2 12175 ℕ₀cn0 12376 ♯chash 14232 Basecbs 17115 Abelcabl 19688 Ringcrg 20146 CRingccrg 20147 LModclmod 20788 ℤ/nℤczn 21434 freeLMod cfrlm 21678

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1796 ax-4 1810 ax-5 1911 ax-6 1968 ax-7 2009 ax-8 2113 ax-9 2121 ax-10 2144 ax-11 2160 ax-12 2180 ax-ext 2703 ax-rep 5212 ax-sep 5229 ax-nul 5239 ax-pow 5298 ax-pr 5365 ax-un 7663 ax-inf2 9526 ax-cnex 11057 ax-resscn 11058 ax-1cn 11059 ax-icn 11060 ax-addcl 11061 ax-addrcl 11062 ax-mulcl 11063 ax-mulrcl 11064 ax-mulcom 11065 ax-addass 11066 ax-mulass 11067 ax-distr 11068 ax-i2m1 11069 ax-1ne0 11070 ax-1rid 11071 ax-rnegex 11072 ax-rrecex 11073 ax-cnre 11074 ax-pre-lttri 11075 ax-pre-lttrn 11076 ax-pre-ltadd 11077 ax-pre-mulgt0 11078 ax-pre-sup 11079 ax-addf 11080 ax-mulf 11081

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1544 df-fal 1554 df-ex 1781 df-nf 1785 df-sb 2068 df-mo 2535 df-eu 2564 df-clab 2710 df-cleq 2723 df-clel 2806 df-nfc 2881 df-ne 2929 df-nel 3033 df-ral 3048 df-rex 3057 df-rmo 3346 df-reu 3347 df-rab 3396 df-v 3438 df-sbc 3737 df-csb 3846 df-dif 3900 df-un 3902 df-in 3904 df-ss 3914 df-pss 3917 df-nul 4279 df-if 4471 df-pw 4547 df-sn 4572 df-pr 4574 df-tp 4576 df-op 4578 df-uni 4855 df-int 4893 df-iun 4938 df-br 5087 df-opab 5149 df-mpt 5168 df-tr 5194 df-id 5506 df-eprel 5511 df-po 5519 df-so 5520 df-fr 5564 df-se 5565 df-we 5566 df-xp 5617 df-rel 5618 df-cnv 5619 df-co 5620 df-dm 5621 df-rn 5622 df-res 5623 df-ima 5624 df-pred 6243 df-ord 6304 df-on 6305 df-lim 6306 df-suc 6307 df-iota 6432 df-fun 6478 df-fn 6479 df-f 6480 df-f1 6481 df-fo 6482 df-f1o 6483 df-fv 6484 df-isom 6485 df-riota 7298 df-ov 7344 df-oprab 7345 df-mpo 7346 df-om 7792 df-1st 7916 df-2nd 7917 df-supp 8086 df-tpos 8151 df-frecs 8206 df-wrecs 8237 df-recs 8286 df-rdg 8324 df-seqom 8362 df-1o 8380 df-2o 8381 df-oadd 8384 df-er 8617 df-ec 8619 df-qs 8623 df-map 8747 df-ixp 8817 df-en 8865 df-dom 8866 df-sdom 8867 df-fin 8868 df-fsupp 9241 df-sup 9321 df-inf 9322 df-oi 9391 df-dju 9789 df-card 9827 df-acn 9830 df-pnf 11143 df-mnf 11144 df-xr 11145 df-ltxr 11146 df-le 11147 df-sub 11341 df-neg 11342 df-div 11770 df-nn 12121 df-2 12183 df-3 12184 df-4 12185 df-5 12186 df-6 12187 df-7 12188 df-8 12189 df-9 12190 df-n0 12377 df-z 12464 df-dec 12584 df-uz 12728 df-rp 12886 df-fz 13403 df-fzo 13550 df-fl 13691 df-mod 13769 df-seq 13904 df-hash 14233 df-dvds 16159 df-struct 17053 df-sets 17070 df-slot 17088 df-ndx 17100 df-base 17116 df-ress 17137 df-plusg 17169 df-mulr 17170 df-starv 17171 df-sca 17172 df-vsca 17173 df-ip 17174 df-tset 17175 df-ple 17176 df-ds 17178 df-unif 17179 df-hom 17180 df-cco 17181 df-0g 17340 df-prds 17346 df-pws 17348 df-imas 17407 df-qus 17408 df-mgm 18543 df-sgrp 18622 df-mnd 18638 df-mhm 18686 df-grp 18844 df-minusg 18845 df-sbg 18846 df-mulg 18976 df-subg 19031 df-nsg 19032 df-eqg 19033 df-ghm 19120 df-gim 19166 df-gic 19167 df-cmn 19689 df-abl 19690 df-mgp 20054 df-rng 20066 df-ur 20095 df-ring 20148 df-cring 20149 df-oppr 20250 df-dvdsr 20270 df-rhm 20385 df-subrng 20456 df-subrg 20480 df-lmod 20790 df-lss 20860 df-lsp 20900 df-sra 21102 df-rgmod 21103 df-lidl 21140 df-rsp 21141 df-2idl 21182 df-cnfld 21287 df-zring 21379 df-zrh 21435 df-zn 21438 df-dsmm 21664 df-frlm 21679

This theorem is referenced by: isnumbasabl 43139 dfacbasgrp 43141

W3C validator