Theorem cardidm 9878

Description: The cardinality function is idempotent. Proposition 10.11 of [TakeutiZaring] p. 85. (Contributed by Mario Carneiro, 7-Jan-2013.)

Assertion

Ref	Expression
cardidm	⊢ (card‘(card‘𝐴)) = (card‘𝐴)

Proof of Theorem cardidm

Dummy variable 𝑦 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		cardid2 9872	. . . . . . . 8 ⊢ (𝐴 ∈ dom card → (card‘𝐴) ≈ 𝐴)
2	1	ensymd 8946	. . . . . . 7 ⊢ (𝐴 ∈ dom card → 𝐴 ≈ (card‘𝐴))
3		entr 8947	. . . . . . . 8 ⊢ ((𝑦 ≈ 𝐴 ∧ 𝐴 ≈ (card‘𝐴)) → 𝑦 ≈ (card‘𝐴))
4	3	expcom 415	. . . . . . 7 ⊢ (𝐴 ≈ (card‘𝐴) → (𝑦 ≈ 𝐴 → 𝑦 ≈ (card‘𝐴)))
5	2, 4	syl 17	. . . . . 6 ⊢ (𝐴 ∈ dom card → (𝑦 ≈ 𝐴 → 𝑦 ≈ (card‘𝐴)))
6		entr 8947	. . . . . . . 8 ⊢ ((𝑦 ≈ (card‘𝐴) ∧ (card‘𝐴) ≈ 𝐴) → 𝑦 ≈ 𝐴)
7	6	expcom 415	. . . . . . 7 ⊢ ((card‘𝐴) ≈ 𝐴 → (𝑦 ≈ (card‘𝐴) → 𝑦 ≈ 𝐴))
8	1, 7	syl 17	. . . . . 6 ⊢ (𝐴 ∈ dom card → (𝑦 ≈ (card‘𝐴) → 𝑦 ≈ 𝐴))
9	5, 8	impbid 214	. . . . 5 ⊢ (𝐴 ∈ dom card → (𝑦 ≈ 𝐴 ↔ 𝑦 ≈ (card‘𝐴)))
10	9	rabbidv 3400	. . . 4 ⊢ (𝐴 ∈ dom card → {𝑦 ∈ On ∣ 𝑦 ≈ 𝐴} = {𝑦 ∈ On ∣ 𝑦 ≈ (card‘𝐴)})
11	10	inteqd 4885	. . 3 ⊢ (𝐴 ∈ dom card → ∩ {𝑦 ∈ On ∣ 𝑦 ≈ 𝐴} = ∩ {𝑦 ∈ On ∣ 𝑦 ≈ (card‘𝐴)})
12		cardval3 9871	. . 3 ⊢ (𝐴 ∈ dom card → (card‘𝐴) = ∩ {𝑦 ∈ On ∣ 𝑦 ≈ 𝐴})
13		cardon 9863	. . . 4 ⊢ (card‘𝐴) ∈ On
14		oncardval 9874	. . . 4 ⊢ ((card‘𝐴) ∈ On → (card‘(card‘𝐴)) = ∩ {𝑦 ∈ On ∣ 𝑦 ≈ (card‘𝐴)})
15	13, 14	mp1i 13	. . 3 ⊢ (𝐴 ∈ dom card → (card‘(card‘𝐴)) = ∩ {𝑦 ∈ On ∣ 𝑦 ≈ (card‘𝐴)})
16	11, 12, 15	3eqtr4rd 2787	. 2 ⊢ (𝐴 ∈ dom card → (card‘(card‘𝐴)) = (card‘𝐴))
17		card0 9877	. . 3 ⊢ (card‘∅) = ∅
18		ndmfv 6863	. . . 4 ⊢ (¬ 𝐴 ∈ dom card → (card‘𝐴) = ∅)
19	18	fveq2d 6835	. . 3 ⊢ (¬ 𝐴 ∈ dom card → (card‘(card‘𝐴)) = (card‘∅))
20	17, 19, 18	3eqtr4a 2802	. 2 ⊢ (¬ 𝐴 ∈ dom card → (card‘(card‘𝐴)) = (card‘𝐴))
21	16, 20	pm2.61i 183	1 ⊢ (card‘(card‘𝐴)) = (card‘𝐴)

Syntax hints:  ¬ wn 3   → wi 4   = wceq 1548   ∈ wcel 2121  {crab 3393  ∅c0 4264  ∩ cint 4880   class class class wbr 5075  dom cdm 5621  Oncon0 6314  ‘cfv 6489   ≈ cen 8884  cardccrd 9854

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 1975  ax-7 2016  ax-8 2123  ax-9 2131  ax-10 2154  ax-11 2170  ax-12 2191  ax-ext 2713  ax-sep 5221  ax-nul 5231  ax-pow 5297  ax-pr 5365  ax-un 7682

This theorem depends on definitions:  df-bi 209  df-an 398  df-or 855  df-3or 1094  df-3an 1095  df-tru 1551  df-fal 1561  df-ex 1788  df-nf 1792  df-sb 2075  df-mo 2545  df-eu 2575  df-clab 2720  df-cleq 2733  df-clel 2816  df-nfc 2890  df-ne 2937  df-ral 3056  df-rex 3066  df-rab 3394  df-v 3435  df-dif 3888  df-un 3890  df-in 3892  df-ss 3902  df-pss 3905  df-nul 4265  df-if 4458  df-pw 4534  df-sn 4559  df-pr 4561  df-op 4565  df-uni 4842  df-int 4881  df-br 5076  df-opab 5138  df-mpt 5157  df-tr 5183  df-id 5516  df-eprel 5521  df-po 5529  df-so 5530  df-fr 5574  df-we 5576  df-xp 5627  df-rel 5628  df-cnv 5629  df-co 5630  df-dm 5631  df-rn 5632  df-res 5633  df-ima 5634  df-ord 6317  df-on 6318  df-iota 6445  df-fun 6491  df-fn 6492  df-f 6493  df-f1 6494  df-fo 6495  df-f1o 6496  df-fv 6497  df-er 8637  df-en 8888  df-card 9858

This theorem is referenced by:  oncard  9879  cardlim  9891  cardiun  9901  alephnbtwn2  9989  infenaleph  10008  dfac12k  10065  pwsdompw  10120  cardcf  10169  cfeq0  10173  cfflb  10176  alephval2  10490  cfpwsdom  10502  gch2  10593  tskcard  10699  hashcard  14312  iscard4  43992