Theorem isnumbasgrplem2 41832

Description: If the (to be thought of as disjoint, although the proof does not require this) union of a set and its Hartogs number supports a group structure (more generally, a cancellative magma), then the set must be numerable. (Contributed by Stefan O'Rear, 9-Jul-2015.)

Assertion

Ref	Expression
isnumbasgrplem2	⊢ ((𝑆 ∪ (har‘𝑆)) ∈ (Base “ Grp) → 𝑆 ∈ dom card)

Proof of Theorem isnumbasgrplem2

Dummy variables 𝑎 𝑏 𝑐 𝑑 𝑥 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		basfn 17145	. . 3 ⊢ Base Fn V
2		ssv 4006	. . 3 ⊢ Grp ⊆ V
3		fvelimab 6962	. . 3 ⊢ ((Base Fn V ∧ Grp ⊆ V) → ((𝑆 ∪ (har‘𝑆)) ∈ (Base “ Grp) ↔ ∃𝑥 ∈ Grp (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))))
4	1, 2, 3	mp2an 691	. 2 ⊢ ((𝑆 ∪ (har‘𝑆)) ∈ (Base “ Grp) ↔ ∃𝑥 ∈ Grp (Base‘𝑥) = (𝑆 ∪ (har‘𝑆)))
5		harcl 9551	. . . . . 6 ⊢ (har‘𝑆) ∈ On
6		onenon 9941	. . . . . 6 ⊢ ((har‘𝑆) ∈ On → (har‘𝑆) ∈ dom card)
7	5, 6	ax-mp 5	. . . . 5 ⊢ (har‘𝑆) ∈ dom card
8		xpnum 9943	. . . . 5 ⊢ (((har‘𝑆) ∈ dom card ∧ (har‘𝑆) ∈ dom card) → ((har‘𝑆) × (har‘𝑆)) ∈ dom card)
9	7, 7, 8	mp2an 691	. . . 4 ⊢ ((har‘𝑆) × (har‘𝑆)) ∈ dom card
10		ssun1 4172	. . . . . . . 8 ⊢ 𝑆 ⊆ (𝑆 ∪ (har‘𝑆))
11		simpr 486	. . . . . . . 8 ⊢ ((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) → (Base‘𝑥) = (𝑆 ∪ (har‘𝑆)))
12	10, 11	sseqtrrid 4035	. . . . . . 7 ⊢ ((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) → 𝑆 ⊆ (Base‘𝑥))
13		fvex 6902	. . . . . . . 8 ⊢ (Base‘𝑥) ∈ V
14	13	ssex 5321	. . . . . . 7 ⊢ (𝑆 ⊆ (Base‘𝑥) → 𝑆 ∈ V)
15	12, 14	syl 17	. . . . . 6 ⊢ ((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) → 𝑆 ∈ V)
16	7	a1i 11	. . . . . 6 ⊢ ((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) → (har‘𝑆) ∈ dom card)
17		simp1l 1198	. . . . . . . 8 ⊢ (((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑎 ∈ 𝑆 ∧ 𝑐 ∈ (har‘𝑆)) → 𝑥 ∈ Grp)
18	12	3ad2ant1 1134	. . . . . . . . 9 ⊢ (((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑎 ∈ 𝑆 ∧ 𝑐 ∈ (har‘𝑆)) → 𝑆 ⊆ (Base‘𝑥))
19		simp2 1138	. . . . . . . . 9 ⊢ (((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑎 ∈ 𝑆 ∧ 𝑐 ∈ (har‘𝑆)) → 𝑎 ∈ 𝑆)
20	18, 19	sseldd 3983	. . . . . . . 8 ⊢ (((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑎 ∈ 𝑆 ∧ 𝑐 ∈ (har‘𝑆)) → 𝑎 ∈ (Base‘𝑥))
21		ssun2 4173	. . . . . . . . . . 11 ⊢ (har‘𝑆) ⊆ (𝑆 ∪ (har‘𝑆))
22	21, 11	sseqtrrid 4035	. . . . . . . . . 10 ⊢ ((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) → (har‘𝑆) ⊆ (Base‘𝑥))
23	22	3ad2ant1 1134	. . . . . . . . 9 ⊢ (((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑎 ∈ 𝑆 ∧ 𝑐 ∈ (har‘𝑆)) → (har‘𝑆) ⊆ (Base‘𝑥))
24		simp3 1139	. . . . . . . . 9 ⊢ (((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑎 ∈ 𝑆 ∧ 𝑐 ∈ (har‘𝑆)) → 𝑐 ∈ (har‘𝑆))
25	23, 24	sseldd 3983	. . . . . . . 8 ⊢ (((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑎 ∈ 𝑆 ∧ 𝑐 ∈ (har‘𝑆)) → 𝑐 ∈ (Base‘𝑥))
26		eqid 2733	. . . . . . . . 9 ⊢ (Base‘𝑥) = (Base‘𝑥)
27		eqid 2733	. . . . . . . . 9 ⊢ (+g‘𝑥) = (+g‘𝑥)
28	26, 27	grpcl 18824	. . . . . . . 8 ⊢ ((𝑥 ∈ Grp ∧ 𝑎 ∈ (Base‘𝑥) ∧ 𝑐 ∈ (Base‘𝑥)) → (𝑎(+g‘𝑥)𝑐) ∈ (Base‘𝑥))
29	17, 20, 25, 28	syl3anc 1372	. . . . . . 7 ⊢ (((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑎 ∈ 𝑆 ∧ 𝑐 ∈ (har‘𝑆)) → (𝑎(+g‘𝑥)𝑐) ∈ (Base‘𝑥))
30		simp1r 1199	. . . . . . 7 ⊢ (((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑎 ∈ 𝑆 ∧ 𝑐 ∈ (har‘𝑆)) → (Base‘𝑥) = (𝑆 ∪ (har‘𝑆)))
31	29, 30	eleqtrd 2836	. . . . . 6 ⊢ (((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑎 ∈ 𝑆 ∧ 𝑐 ∈ (har‘𝑆)) → (𝑎(+g‘𝑥)𝑐) ∈ (𝑆 ∪ (har‘𝑆)))
32		simplll 774	. . . . . . 7 ⊢ ((((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑎 ∈ 𝑆) ∧ (𝑐 ∈ (har‘𝑆) ∧ 𝑑 ∈ (har‘𝑆))) → 𝑥 ∈ Grp)
33	22	ad2antrr 725	. . . . . . . 8 ⊢ ((((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑎 ∈ 𝑆) ∧ (𝑐 ∈ (har‘𝑆) ∧ 𝑑 ∈ (har‘𝑆))) → (har‘𝑆) ⊆ (Base‘𝑥))
34		simprl 770	. . . . . . . 8 ⊢ ((((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑎 ∈ 𝑆) ∧ (𝑐 ∈ (har‘𝑆) ∧ 𝑑 ∈ (har‘𝑆))) → 𝑐 ∈ (har‘𝑆))
35	33, 34	sseldd 3983	. . . . . . 7 ⊢ ((((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑎 ∈ 𝑆) ∧ (𝑐 ∈ (har‘𝑆) ∧ 𝑑 ∈ (har‘𝑆))) → 𝑐 ∈ (Base‘𝑥))
36		simprr 772	. . . . . . . 8 ⊢ ((((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑎 ∈ 𝑆) ∧ (𝑐 ∈ (har‘𝑆) ∧ 𝑑 ∈ (har‘𝑆))) → 𝑑 ∈ (har‘𝑆))
37	33, 36	sseldd 3983	. . . . . . 7 ⊢ ((((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑎 ∈ 𝑆) ∧ (𝑐 ∈ (har‘𝑆) ∧ 𝑑 ∈ (har‘𝑆))) → 𝑑 ∈ (Base‘𝑥))
38	12	ad2antrr 725	. . . . . . . 8 ⊢ ((((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑎 ∈ 𝑆) ∧ (𝑐 ∈ (har‘𝑆) ∧ 𝑑 ∈ (har‘𝑆))) → 𝑆 ⊆ (Base‘𝑥))
39		simplr 768	. . . . . . . 8 ⊢ ((((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑎 ∈ 𝑆) ∧ (𝑐 ∈ (har‘𝑆) ∧ 𝑑 ∈ (har‘𝑆))) → 𝑎 ∈ 𝑆)
40	38, 39	sseldd 3983	. . . . . . 7 ⊢ ((((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑎 ∈ 𝑆) ∧ (𝑐 ∈ (har‘𝑆) ∧ 𝑑 ∈ (har‘𝑆))) → 𝑎 ∈ (Base‘𝑥))
41	26, 27	grplcan 18882	. . . . . . 7 ⊢ ((𝑥 ∈ Grp ∧ (𝑐 ∈ (Base‘𝑥) ∧ 𝑑 ∈ (Base‘𝑥) ∧ 𝑎 ∈ (Base‘𝑥))) → ((𝑎(+g‘𝑥)𝑐) = (𝑎(+g‘𝑥)𝑑) ↔ 𝑐 = 𝑑))
42	32, 35, 37, 40, 41	syl13anc 1373	. . . . . 6 ⊢ ((((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑎 ∈ 𝑆) ∧ (𝑐 ∈ (har‘𝑆) ∧ 𝑑 ∈ (har‘𝑆))) → ((𝑎(+g‘𝑥)𝑐) = (𝑎(+g‘𝑥)𝑑) ↔ 𝑐 = 𝑑))
43		simplll 774	. . . . . . 7 ⊢ ((((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑏 ∈ (har‘𝑆)) ∧ (𝑎 ∈ 𝑆 ∧ 𝑑 ∈ 𝑆)) → 𝑥 ∈ Grp)
44	12	ad2antrr 725	. . . . . . . 8 ⊢ ((((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑏 ∈ (har‘𝑆)) ∧ (𝑎 ∈ 𝑆 ∧ 𝑑 ∈ 𝑆)) → 𝑆 ⊆ (Base‘𝑥))
45		simprr 772	. . . . . . . 8 ⊢ ((((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑏 ∈ (har‘𝑆)) ∧ (𝑎 ∈ 𝑆 ∧ 𝑑 ∈ 𝑆)) → 𝑑 ∈ 𝑆)
46	44, 45	sseldd 3983	. . . . . . 7 ⊢ ((((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑏 ∈ (har‘𝑆)) ∧ (𝑎 ∈ 𝑆 ∧ 𝑑 ∈ 𝑆)) → 𝑑 ∈ (Base‘𝑥))
47		simprl 770	. . . . . . . 8 ⊢ ((((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑏 ∈ (har‘𝑆)) ∧ (𝑎 ∈ 𝑆 ∧ 𝑑 ∈ 𝑆)) → 𝑎 ∈ 𝑆)
48	44, 47	sseldd 3983	. . . . . . 7 ⊢ ((((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑏 ∈ (har‘𝑆)) ∧ (𝑎 ∈ 𝑆 ∧ 𝑑 ∈ 𝑆)) → 𝑎 ∈ (Base‘𝑥))
49	22	ad2antrr 725	. . . . . . . 8 ⊢ ((((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑏 ∈ (har‘𝑆)) ∧ (𝑎 ∈ 𝑆 ∧ 𝑑 ∈ 𝑆)) → (har‘𝑆) ⊆ (Base‘𝑥))
50		simplr 768	. . . . . . . 8 ⊢ ((((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑏 ∈ (har‘𝑆)) ∧ (𝑎 ∈ 𝑆 ∧ 𝑑 ∈ 𝑆)) → 𝑏 ∈ (har‘𝑆))
51	49, 50	sseldd 3983	. . . . . . 7 ⊢ ((((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑏 ∈ (har‘𝑆)) ∧ (𝑎 ∈ 𝑆 ∧ 𝑑 ∈ 𝑆)) → 𝑏 ∈ (Base‘𝑥))
52	26, 27	grprcan 18855	. . . . . . 7 ⊢ ((𝑥 ∈ Grp ∧ (𝑑 ∈ (Base‘𝑥) ∧ 𝑎 ∈ (Base‘𝑥) ∧ 𝑏 ∈ (Base‘𝑥))) → ((𝑑(+g‘𝑥)𝑏) = (𝑎(+g‘𝑥)𝑏) ↔ 𝑑 = 𝑎))
53	43, 46, 48, 51, 52	syl13anc 1373	. . . . . 6 ⊢ ((((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑏 ∈ (har‘𝑆)) ∧ (𝑎 ∈ 𝑆 ∧ 𝑑 ∈ 𝑆)) → ((𝑑(+g‘𝑥)𝑏) = (𝑎(+g‘𝑥)𝑏) ↔ 𝑑 = 𝑎))
54		harndom 9554	. . . . . . 7 ⊢ ¬ (har‘𝑆) ≼ 𝑆
55	54	a1i 11	. . . . . 6 ⊢ ((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) → ¬ (har‘𝑆) ≼ 𝑆)
56	15, 16, 16, 31, 42, 53, 55	unxpwdom3 41823	. . . . 5 ⊢ ((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) → 𝑆 ≼* ((har‘𝑆) × (har‘𝑆)))
57		wdomnumr 10056	. . . . . 6 ⊢ (((har‘𝑆) × (har‘𝑆)) ∈ dom card → (𝑆 ≼* ((har‘𝑆) × (har‘𝑆)) ↔ 𝑆 ≼ ((har‘𝑆) × (har‘𝑆))))
58	9, 57	ax-mp 5	. . . . 5 ⊢ (𝑆 ≼* ((har‘𝑆) × (har‘𝑆)) ↔ 𝑆 ≼ ((har‘𝑆) × (har‘𝑆)))
59	56, 58	sylib 217	. . . 4 ⊢ ((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) → 𝑆 ≼ ((har‘𝑆) × (har‘𝑆)))
60		numdom 10030	. . . 4 ⊢ ((((har‘𝑆) × (har‘𝑆)) ∈ dom card ∧ 𝑆 ≼ ((har‘𝑆) × (har‘𝑆))) → 𝑆 ∈ dom card)
61	9, 59, 60	sylancr 588	. . 3 ⊢ ((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) → 𝑆 ∈ dom card)
62	61	rexlimiva 3148	. 2 ⊢ (∃𝑥 ∈ Grp (Base‘𝑥) = (𝑆 ∪ (har‘𝑆)) → 𝑆 ∈ dom card)
63	4, 62	sylbi 216	1 ⊢ ((𝑆 ∪ (har‘𝑆)) ∈ (Base “ Grp) → 𝑆 ∈ dom card)

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 205   ∧ wa 397   ∧ w3a 1088   = wceq 1542   ∈ wcel 2107  ∃wrex 3071  Vcvv 3475   ∪ cun 3946   ⊆ wss 3948   class class class wbr 5148   × cxp 5674  dom cdm 5676   “ cima 5679  Oncon0 6362   Fn wfn 6536  ‘cfv 6541  (class class class)co 7406   ≼ cdom 8934  harchar 9548   ≼^* cwdom 9556  cardccrd 9927  Basecbs 17141  +_gcplusg 17194  Grpcgrp 18816

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2704  ax-rep 5285  ax-sep 5299  ax-nul 5306  ax-pow 5363  ax-pr 5427  ax-un 7722  ax-cnex 11163  ax-1cn 11165  ax-addcl 11167

This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2535  df-eu 2564  df-clab 2711  df-cleq 2725  df-clel 2811  df-nfc 2886  df-ne 2942  df-ral 3063  df-rex 3072  df-rmo 3377  df-reu 3378  df-rab 3434  df-v 3477  df-sbc 3778  df-csb 3894  df-dif 3951  df-un 3953  df-in 3955  df-ss 3965  df-pss 3967  df-nul 4323  df-if 4529  df-pw 4604  df-sn 4629  df-pr 4631  df-op 4635  df-uni 4909  df-int 4951  df-iun 4999  df-br 5149  df-opab 5211  df-mpt 5232  df-tr 5266  df-id 5574  df-eprel 5580  df-po 5588  df-so 5589  df-fr 5631  df-se 5632  df-we 5633  df-xp 5682  df-rel 5683  df-cnv 5684  df-co 5685  df-dm 5686  df-rn 5687  df-res 5688  df-ima 5689  df-pred 6298  df-ord 6365  df-on 6366  df-lim 6367  df-suc 6368  df-iota 6493  df-fun 6543  df-fn 6544  df-f 6545  df-f1 6546  df-fo 6547  df-f1o 6548  df-fv 6549  df-isom 6550  df-riota 7362  df-ov 7409  df-oprab 7410  df-mpo 7411  df-om 7853  df-1st 7972  df-2nd 7973  df-frecs 8263  df-wrecs 8294  df-recs 8368  df-rdg 8407  df-1o 8463  df-oadd 8467  df-omul 8468  df-er 8700  df-map 8819  df-en 8937  df-dom 8938  df-sdom 8939  df-oi 9502  df-har 9549  df-wdom 9557  df-card 9931  df-acn 9934  df-nn 12210  df-slot 17112  df-ndx 17124  df-base 17142  df-0g 17384  df-mgm 18558  df-sgrp 18607  df-mnd 18623  df-grp 18819  df-minusg 18820

This theorem is referenced by:  isnumbasabl  41834  isnumbasgrp  41835