Theorem isnumbasgrplem2 44371

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 17435	. . 3 ⊢ Base Fn V
2		ssv 3937	. . 3 ⊢ Grp ⊆ V
3		fvelimab 6988	. . 3 ⊢ ((Base Fn V ∧ Grp ⊆ V) → ((𝑆 ∪ (har‘𝑆)) ∈ (Base “ Grp) ↔ ∃𝑥 ∈ Grp (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))))
4	1, 2, 3	mp2an 705	. 2 ⊢ ((𝑆 ∪ (har‘𝑆)) ∈ (Base “ Grp) ↔ ∃𝑥 ∈ Grp (Base‘𝑥) = (𝑆 ∪ (har‘𝑆)))
5		harcl 9590	. . . . . 6 ⊢ (har‘𝑆) ∈ On
6		onenon 10067	. . . . . 6 ⊢ ((har‘𝑆) ∈ On → (har‘𝑆) ∈ dom card)
7	5, 6	ax-mp 5	. . . . 5 ⊢ (har‘𝑆) ∈ dom card
8		xpnum 10069	. . . . 5 ⊢ (((har‘𝑆) ∈ dom card ∧ (har‘𝑆) ∈ dom card) → ((har‘𝑆) × (har‘𝑆)) ∈ dom card)
9	7, 7, 8	mp2an 705	. . . 4 ⊢ ((har‘𝑆) × (har‘𝑆)) ∈ dom card
10		ssun1 4179	. . . . . . . 8 ⊢ 𝑆 ⊆ (𝑆 ∪ (har‘𝑆))
11		simpr 490	. . . . . . . 8 ⊢ ((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) → (Base‘𝑥) = (𝑆 ∪ (har‘𝑆)))
12	10, 11	sseqtrrid 3956	. . . . . . 7 ⊢ ((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) → 𝑆 ⊆ (Base‘𝑥))
13		fvex 6929	. . . . . . . 8 ⊢ (Base‘𝑥) ∈ V
14	13	ssex 5289	. . . . . . 7 ⊢ (𝑆 ⊆ (Base‘𝑥) → 𝑆 ∈ V)
15	12, 14	syl 18	. . . . . 6 ⊢ ((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) → 𝑆 ∈ V)
16	7	a1i 11	. . . . . 6 ⊢ ((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) → (har‘𝑆) ∈ dom card)
17		simp1l 1216	. . . . . . . 8 ⊢ (((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑎 ∈ 𝑆 ∧ 𝑐 ∈ (har‘𝑆)) → 𝑥 ∈ Grp)
18	12	3ad2ant1 1151	. . . . . . . . 9 ⊢ (((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑎 ∈ 𝑆 ∧ 𝑐 ∈ (har‘𝑆)) → 𝑆 ⊆ (Base‘𝑥))
19		simp2 1155	. . . . . . . . 9 ⊢ (((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑎 ∈ 𝑆 ∧ 𝑐 ∈ (har‘𝑆)) → 𝑎 ∈ 𝑆)
20	18, 19	sseldd 3914	. . . . . . . 8 ⊢ (((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑎 ∈ 𝑆 ∧ 𝑐 ∈ (har‘𝑆)) → 𝑎 ∈ (Base‘𝑥))
21		ssun2 4180	. . . . . . . . . . 11 ⊢ (har‘𝑆) ⊆ (𝑆 ∪ (har‘𝑆))
22	21, 11	sseqtrrid 3956	. . . . . . . . . 10 ⊢ ((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) → (har‘𝑆) ⊆ (Base‘𝑥))
23	22	3ad2ant1 1151	. . . . . . . . 9 ⊢ (((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑎 ∈ 𝑆 ∧ 𝑐 ∈ (har‘𝑆)) → (har‘𝑆) ⊆ (Base‘𝑥))
24		simp3 1156	. . . . . . . . 9 ⊢ (((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑎 ∈ 𝑆 ∧ 𝑐 ∈ (har‘𝑆)) → 𝑐 ∈ (har‘𝑆))
25	23, 24	sseldd 3914	. . . . . . . 8 ⊢ (((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑎 ∈ 𝑆 ∧ 𝑐 ∈ (har‘𝑆)) → 𝑐 ∈ (Base‘𝑥))
26		eqid 2763	. . . . . . . . 9 ⊢ (Base‘𝑥) = (Base‘𝑥)
27		eqid 2763	. . . . . . . . 9 ⊢ (+g‘𝑥) = (+g‘𝑥)
28	26, 27	grpcl 19202	. . . . . . . 8 ⊢ ((𝑥 ∈ Grp ∧ 𝑎 ∈ (Base‘𝑥) ∧ 𝑐 ∈ (Base‘𝑥)) → (𝑎(+g‘𝑥)𝑐) ∈ (Base‘𝑥))
29	17, 20, 25, 28	syl3anc 1399	. . . . . . 7 ⊢ (((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑎 ∈ 𝑆 ∧ 𝑐 ∈ (har‘𝑆)) → (𝑎(+g‘𝑥)𝑐) ∈ (Base‘𝑥))
30		simp1r 1217	. . . . . . 7 ⊢ (((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑎 ∈ 𝑆 ∧ 𝑐 ∈ (har‘𝑆)) → (Base‘𝑥) = (𝑆 ∪ (har‘𝑆)))
31	29, 30	eleqtrd 2866	. . . . . 6 ⊢ (((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑎 ∈ 𝑆 ∧ 𝑐 ∈ (har‘𝑆)) → (𝑎(+g‘𝑥)𝑐) ∈ (𝑆 ∪ (har‘𝑆)))
32		simplll 787	. . . . . . 7 ⊢ ((((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑎 ∈ 𝑆) ∧ (𝑐 ∈ (har‘𝑆) ∧ 𝑑 ∈ (har‘𝑆))) → 𝑥 ∈ Grp)
33	22	ad2antrr 739	. . . . . . . 8 ⊢ ((((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑎 ∈ 𝑆) ∧ (𝑐 ∈ (har‘𝑆) ∧ 𝑑 ∈ (har‘𝑆))) → (har‘𝑆) ⊆ (Base‘𝑥))
34		simprl 783	. . . . . . . 8 ⊢ ((((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑎 ∈ 𝑆) ∧ (𝑐 ∈ (har‘𝑆) ∧ 𝑑 ∈ (har‘𝑆))) → 𝑐 ∈ (har‘𝑆))
35	33, 34	sseldd 3914	. . . . . . 7 ⊢ ((((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑎 ∈ 𝑆) ∧ (𝑐 ∈ (har‘𝑆) ∧ 𝑑 ∈ (har‘𝑆))) → 𝑐 ∈ (Base‘𝑥))
36		simprr 785	. . . . . . . 8 ⊢ ((((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑎 ∈ 𝑆) ∧ (𝑐 ∈ (har‘𝑆) ∧ 𝑑 ∈ (har‘𝑆))) → 𝑑 ∈ (har‘𝑆))
37	33, 36	sseldd 3914	. . . . . . 7 ⊢ ((((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑎 ∈ 𝑆) ∧ (𝑐 ∈ (har‘𝑆) ∧ 𝑑 ∈ (har‘𝑆))) → 𝑑 ∈ (Base‘𝑥))
38	12	ad2antrr 739	. . . . . . . 8 ⊢ ((((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑎 ∈ 𝑆) ∧ (𝑐 ∈ (har‘𝑆) ∧ 𝑑 ∈ (har‘𝑆))) → 𝑆 ⊆ (Base‘𝑥))
39		simplr 781	. . . . . . . 8 ⊢ ((((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑎 ∈ 𝑆) ∧ (𝑐 ∈ (har‘𝑆) ∧ 𝑑 ∈ (har‘𝑆))) → 𝑎 ∈ 𝑆)
40	38, 39	sseldd 3914	. . . . . . 7 ⊢ ((((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑎 ∈ 𝑆) ∧ (𝑐 ∈ (har‘𝑆) ∧ 𝑑 ∈ (har‘𝑆))) → 𝑎 ∈ (Base‘𝑥))
41	26, 27	grplcan 19261	. . . . . . 7 ⊢ ((𝑥 ∈ Grp ∧ (𝑐 ∈ (Base‘𝑥) ∧ 𝑑 ∈ (Base‘𝑥) ∧ 𝑎 ∈ (Base‘𝑥))) → ((𝑎(+g‘𝑥)𝑐) = (𝑎(+g‘𝑥)𝑑) ↔ 𝑐 = 𝑑))
42	32, 35, 37, 40, 41	syl13anc 1400	. . . . . 6 ⊢ ((((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑎 ∈ 𝑆) ∧ (𝑐 ∈ (har‘𝑆) ∧ 𝑑 ∈ (har‘𝑆))) → ((𝑎(+g‘𝑥)𝑐) = (𝑎(+g‘𝑥)𝑑) ↔ 𝑐 = 𝑑))
43		simplll 787	. . . . . . 7 ⊢ ((((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑏 ∈ (har‘𝑆)) ∧ (𝑎 ∈ 𝑆 ∧ 𝑑 ∈ 𝑆)) → 𝑥 ∈ Grp)
44	12	ad2antrr 739	. . . . . . . 8 ⊢ ((((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑏 ∈ (har‘𝑆)) ∧ (𝑎 ∈ 𝑆 ∧ 𝑑 ∈ 𝑆)) → 𝑆 ⊆ (Base‘𝑥))
45		simprr 785	. . . . . . . 8 ⊢ ((((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑏 ∈ (har‘𝑆)) ∧ (𝑎 ∈ 𝑆 ∧ 𝑑 ∈ 𝑆)) → 𝑑 ∈ 𝑆)
46	44, 45	sseldd 3914	. . . . . . 7 ⊢ ((((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑏 ∈ (har‘𝑆)) ∧ (𝑎 ∈ 𝑆 ∧ 𝑑 ∈ 𝑆)) → 𝑑 ∈ (Base‘𝑥))
47		simprl 783	. . . . . . . 8 ⊢ ((((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑏 ∈ (har‘𝑆)) ∧ (𝑎 ∈ 𝑆 ∧ 𝑑 ∈ 𝑆)) → 𝑎 ∈ 𝑆)
48	44, 47	sseldd 3914	. . . . . . 7 ⊢ ((((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑏 ∈ (har‘𝑆)) ∧ (𝑎 ∈ 𝑆 ∧ 𝑑 ∈ 𝑆)) → 𝑎 ∈ (Base‘𝑥))
49	22	ad2antrr 739	. . . . . . . 8 ⊢ ((((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑏 ∈ (har‘𝑆)) ∧ (𝑎 ∈ 𝑆 ∧ 𝑑 ∈ 𝑆)) → (har‘𝑆) ⊆ (Base‘𝑥))
50		simplr 781	. . . . . . . 8 ⊢ ((((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑏 ∈ (har‘𝑆)) ∧ (𝑎 ∈ 𝑆 ∧ 𝑑 ∈ 𝑆)) → 𝑏 ∈ (har‘𝑆))
51	49, 50	sseldd 3914	. . . . . . 7 ⊢ ((((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑏 ∈ (har‘𝑆)) ∧ (𝑎 ∈ 𝑆 ∧ 𝑑 ∈ 𝑆)) → 𝑏 ∈ (Base‘𝑥))
52	26, 27	grprcan 19234	. . . . . . 7 ⊢ ((𝑥 ∈ Grp ∧ (𝑑 ∈ (Base‘𝑥) ∧ 𝑎 ∈ (Base‘𝑥) ∧ 𝑏 ∈ (Base‘𝑥))) → ((𝑑(+g‘𝑥)𝑏) = (𝑎(+g‘𝑥)𝑏) ↔ 𝑑 = 𝑎))
53	43, 46, 48, 51, 52	syl13anc 1400	. . . . . 6 ⊢ ((((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) ∧ 𝑏 ∈ (har‘𝑆)) ∧ (𝑎 ∈ 𝑆 ∧ 𝑑 ∈ 𝑆)) → ((𝑑(+g‘𝑥)𝑏) = (𝑎(+g‘𝑥)𝑏) ↔ 𝑑 = 𝑎))
54		harndom 9593	. . . . . . 7 ⊢ ¬ (har‘𝑆) ≼ 𝑆
55	54	a1i 11	. . . . . 6 ⊢ ((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) → ¬ (har‘𝑆) ≼ 𝑆)
56	15, 16, 16, 31, 42, 53, 55	unxpwdom3 44363	. . . . 5 ⊢ ((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) → 𝑆 ≼* ((har‘𝑆) × (har‘𝑆)))
57		wdomnumr 10182	. . . . . 6 ⊢ (((har‘𝑆) × (har‘𝑆)) ∈ dom card → (𝑆 ≼* ((har‘𝑆) × (har‘𝑆)) ↔ 𝑆 ≼ ((har‘𝑆) × (har‘𝑆))))
58	9, 57	ax-mp 5	. . . . 5 ⊢ (𝑆 ≼* ((har‘𝑆) × (har‘𝑆)) ↔ 𝑆 ≼ ((har‘𝑆) × (har‘𝑆)))
59	56, 58	sylib 221	. . . 4 ⊢ ((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) → 𝑆 ≼ ((har‘𝑆) × (har‘𝑆)))
60		numdom 10156	. . . 4 ⊢ ((((har‘𝑆) × (har‘𝑆)) ∈ dom card ∧ 𝑆 ≼ ((har‘𝑆) × (har‘𝑆))) → 𝑆 ∈ dom card)
61	9, 59, 60	sylancr 599	. . 3 ⊢ ((𝑥 ∈ Grp ∧ (Base‘𝑥) = (𝑆 ∪ (har‘𝑆))) → 𝑆 ∈ dom card)
62	61	rexlimiva 3159	. 2 ⊢ (∃𝑥 ∈ Grp (Base‘𝑥) = (𝑆 ∪ (har‘𝑆)) → 𝑆 ∈ dom card)
63	4, 62	sylbi 220	1 ⊢ ((𝑆 ∪ (har‘𝑆)) ∈ (Base “ Grp) → 𝑆 ∈ dom card)

This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 401   ∧ w3a 1103   = wceq 1570   ∈ wcel 2147  ∃wrex 3090  Vcvv 3454   ⊆ wss 3900   ∪ cun 4152   class class class wbr 5108   × cxp 5656  dom cdm 5658   “ cima 5661  Oncon0 6388   Fn wfn 6561  ‘cfv 6566  (class class class)co 7451   ≼ cdom 9009  harchar 9587   ≼^* cwdom 9595  cardccrd 10053  Basecbs 17431  +_gcplusg 17472  Grpcgrp 19194

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1945  ax-6 2002  ax-7 2043  ax-8 2149  ax-9 2157  ax-10 2180  ax-11 2197  ax-12 2216  ax-ext 2735  ax-rep 5238  ax-sep 5255  ax-nul 5266  ax-pow 5334  ax-pr 5398  ax-un 7783  ax-cnex 11295  ax-1cn 11297  ax-addcl 11299

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2102  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2839  df-nfc 2913  df-ne 2960  df-ral 3081  df-rex 3091  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3456  df-sbc 3743  df-csb 3852  df-ss 3901  df-pss 4017  df-dif 4050  df-in 4094  df-un 4154  df-nul 4282  df-if 4486  df-pw 4562  df-sn 4589  df-pr 4591  df-op 4841  df-uni 4873  df-int 4913  df-iun 4958  df-br 5109  df-opab 5174  df-mpt 5193  df-tr 5219  df-id 5553  df-eprel 5558  df-po 5566  df-so 5567  df-fr 5611  df-se 5612  df-we 5613  df-xp 5664  df-rel 5665  df-cnv 5666  df-co 5667  df-dm 5668  df-rn 5669  df-res 5670  df-ima 5671  df-pred 6330  df-ord 6391  df-on 6392  df-lim 6393  df-suc 6394  df-iota 6520  df-fun 6568  df-fn 6569  df-f 6570  df-f1 6571  df-fo 6572  df-f1o 6573  df-fv 6574  df-isom 6575  df-riota 7408  df-ov 7454  df-oprab 7455  df-mpo 7456  df-om 7912  df-1st 8035  df-2nd 8036  df-frecs 8337  df-wrecs 8368  df-recs 8417  df-rdg 8456  df-1o 8514  df-oadd 8518  df-omul 8519  df-er 8755  df-map 8887  df-en 9012  df-dom 9013  df-sdom 9014  df-oi 9541  df-har 9588  df-wdom 9596  df-card 10057  df-acn 10060  df-nn 12376  df-slot 17404  df-ndx 17416  df-base 17432  df-0g 17662  df-mgm 18866  df-sgrp 18958  df-mnd 18974  df-grp 19197  df-minusg 19198

This theorem is used by:  isnumbasabl  44373  isnumbasgrp  44374