Theorem iscard4 44109

Description: Two ways to express the property of being a cardinal number. (Contributed by RP, 8-Nov-2023.)

Assertion

Ref	Expression
iscard4	⊢ ((card‘𝐴) = 𝐴 ↔ 𝐴 ∈ ran card)

Proof of Theorem iscard4

Dummy variables 𝑥 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		eqcom 2769	. 2 ⊢ ((card‘𝐴) = 𝐴 ↔ 𝐴 = (card‘𝐴))
2		mptrel 5798	. . . . 5 ⊢ Rel (𝑥 ∈ V ↦ ∩ {𝑦 ∈ On ∣ 𝑦 ≈ 𝑥})
3		df-card 9897	. . . . . 6 ⊢ card = (𝑥 ∈ V ↦ ∩ {𝑦 ∈ On ∣ 𝑦 ≈ 𝑥})
4	3	releqi 5750	. . . . 5 ⊢ (Rel card ↔ Rel (𝑥 ∈ V ↦ ∩ {𝑦 ∈ On ∣ 𝑦 ≈ 𝑥}))
5	2, 4	mpbir 233	. . . 4 ⊢ Rel card
6		relelrnb 5923	. . . 4 ⊢ (Rel card → (𝐴 ∈ ran card ↔ ∃𝑥 𝑥card𝐴))
7	5, 6	ax-mp 5	. . 3 ⊢ (𝐴 ∈ ran card ↔ ∃𝑥 𝑥card𝐴)
8	3	funmpt2 6560	. . . . . . 7 ⊢ Fun card
9		funbrfv 6915	. . . . . . 7 ⊢ (Fun card → (𝑥card𝐴 → (card‘𝑥) = 𝐴))
10	8, 9	ax-mp 5	. . . . . 6 ⊢ (𝑥card𝐴 → (card‘𝑥) = 𝐴)
11	10	eqcomd 2768	. . . . 5 ⊢ (𝑥card𝐴 → 𝐴 = (card‘𝑥))
12	11	eximi 1855	. . . 4 ⊢ (∃𝑥 𝑥card𝐴 → ∃𝑥 𝐴 = (card‘𝑥))
13		cardidm 9917	. . . . . . 7 ⊢ (card‘(card‘𝑥)) = (card‘𝑥)
14		fveq2 6867	. . . . . . 7 ⊢ (𝐴 = (card‘𝑥) → (card‘𝐴) = (card‘(card‘𝑥)))
15		id 22	. . . . . . 7 ⊢ (𝐴 = (card‘𝑥) → 𝐴 = (card‘𝑥))
16	13, 14, 15	3eqtr4a 2823	. . . . . 6 ⊢ (𝐴 = (card‘𝑥) → (card‘𝐴) = 𝐴)
17	16	exlimiv 1950	. . . . 5 ⊢ (∃𝑥 𝐴 = (card‘𝑥) → (card‘𝐴) = 𝐴)
18	1	biimpi 218	. . . . . . . . . . 11 ⊢ ((card‘𝐴) = 𝐴 → 𝐴 = (card‘𝐴))
19		cardon 9902	. . . . . . . . . . 11 ⊢ (card‘𝐴) ∈ On
20	18, 19	eqeltrdi 2870	. . . . . . . . . 10 ⊢ ((card‘𝐴) = 𝐴 → 𝐴 ∈ On)
21		onenon 9907	. . . . . . . . . 10 ⊢ (𝐴 ∈ On → 𝐴 ∈ dom card)
22	20, 21	syl 17	. . . . . . . . 9 ⊢ ((card‘𝐴) = 𝐴 → 𝐴 ∈ dom card)
23		funfvbrb 7032	. . . . . . . . . 10 ⊢ (Fun card → (𝐴 ∈ dom card ↔ 𝐴card(card‘𝐴)))
24	23	biimpd 231	. . . . . . . . 9 ⊢ (Fun card → (𝐴 ∈ dom card → 𝐴card(card‘𝐴)))
25	8, 22, 24	mpsyl 68	. . . . . . . 8 ⊢ ((card‘𝐴) = 𝐴 → 𝐴card(card‘𝐴))
26		id 22	. . . . . . . 8 ⊢ ((card‘𝐴) = 𝐴 → (card‘𝐴) = 𝐴)
27	25, 26	breqtrd 5126	. . . . . . 7 ⊢ ((card‘𝐴) = 𝐴 → 𝐴card𝐴)
28		id 22	. . . . . . . . . 10 ⊢ (𝐴 = (card‘𝐴) → 𝐴 = (card‘𝐴))
29	28, 19	eqeltrdi 2870	. . . . . . . . 9 ⊢ (𝐴 = (card‘𝐴) → 𝐴 ∈ On)
30	29	eqcoms 2770	. . . . . . . 8 ⊢ ((card‘𝐴) = 𝐴 → 𝐴 ∈ On)
31		sbcbr1g 5157	. . . . . . . . 9 ⊢ (𝐴 ∈ On → ([𝐴 / 𝑥]𝑥card𝐴 ↔ ⦋𝐴 / 𝑥⦌𝑥card𝐴))
32		csbvarg 4388	. . . . . . . . . 10 ⊢ (𝐴 ∈ On → ⦋𝐴 / 𝑥⦌𝑥 = 𝐴)
33	32	breq1d 5110	. . . . . . . . 9 ⊢ (𝐴 ∈ On → (⦋𝐴 / 𝑥⦌𝑥card𝐴 ↔ 𝐴card𝐴))
34	31, 33	bitrd 281	. . . . . . . 8 ⊢ (𝐴 ∈ On → ([𝐴 / 𝑥]𝑥card𝐴 ↔ 𝐴card𝐴))
35	30, 34	syl 17	. . . . . . 7 ⊢ ((card‘𝐴) = 𝐴 → ([𝐴 / 𝑥]𝑥card𝐴 ↔ 𝐴card𝐴))
36	27, 35	mpbird 259	. . . . . 6 ⊢ ((card‘𝐴) = 𝐴 → [𝐴 / 𝑥]𝑥card𝐴)
37	36	spesbcd 3836	. . . . 5 ⊢ ((card‘𝐴) = 𝐴 → ∃𝑥 𝑥card𝐴)
38	17, 37	syl 17	. . . 4 ⊢ (∃𝑥 𝐴 = (card‘𝑥) → ∃𝑥 𝑥card𝐴)
39	12, 38	impbii 211	. . 3 ⊢ (∃𝑥 𝑥card𝐴 ↔ ∃𝑥 𝐴 = (card‘𝑥))
40		oncard 9918	. . 3 ⊢ (∃𝑥 𝐴 = (card‘𝑥) ↔ 𝐴 = (card‘𝐴))
41	7, 39, 40	3bitrri 300	. 2 ⊢ (𝐴 = (card‘𝐴) ↔ 𝐴 ∈ ran card)
42	1, 41	bitri 277	1 ⊢ ((card‘𝐴) = 𝐴 ↔ 𝐴 ∈ ran card)

Syntax hints:   → wi 4   ↔ wb 208   = wceq 1560  ∃wex 1799   ∈ wcel 2142  {crab 3414  Vcvv 3454  [wsbc 3744  ⦋csb 3852  ∩ cint 4905   class class class wbr 5100   ↦ cmpt 5181  dom cdm 5647  ran crn 5648  Rel wrel 5652  Oncon0 6346  Fun wfun 6515  ‘cfv 6521   ≈ cen 8924  cardccrd 9893

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1815  ax-4 1829  ax-5 1930  ax-6 1987  ax-7 2028  ax-8 2144  ax-9 2152  ax-10 2175  ax-11 2191  ax-12 2212  ax-ext 2734  ax-sep 5246  ax-nul 5256  ax-pow 5322  ax-pr 5390  ax-un 7718

This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3or 1099  df-3an 1100  df-tru 1563  df-fal 1573  df-ex 1800  df-nf 1804  df-sb 2091  df-mo 2566  df-eu 2596  df-clab 2741  df-cleq 2754  df-clel 2837  df-nfc 2911  df-ne 2958  df-ral 3077  df-rex 3087  df-rab 3415  df-v 3456  df-sbc 3745  df-csb 3853  df-dif 3907  df-un 3909  df-in 3911  df-ss 3921  df-pss 3924  df-nul 4286  df-if 4481  df-pw 4557  df-sn 4583  df-pr 4585  df-op 4589  df-uni 4866  df-int 4906  df-br 5101  df-opab 5163  df-mpt 5182  df-tr 5208  df-id 5542  df-eprel 5547  df-po 5555  df-so 5556  df-fr 5600  df-we 5602  df-xp 5653  df-rel 5654  df-cnv 5655  df-co 5656  df-dm 5657  df-rn 5658  df-res 5659  df-ima 5660  df-ord 6349  df-on 6350  df-iota 6477  df-fun 6523  df-fn 6524  df-f 6525  df-f1 6526  df-fo 6527  df-f1o 6528  df-fv 6529  df-er 8678  df-en 8928  df-card 9897

This theorem is referenced by:  minregex  44110  minregex2  44111  elrncard  44113  alephiso2  44134