Theorem karden 9810

Description: If we allow the Axiom of Regularity, we can avoid the Axiom of Choice by defining the cardinal number of a set as the set of all sets equinumerous to it and having the least possible rank. This theorem proves the equinumerosity relationship for this definition (compare carden 10464). The hypotheses correspond to the definition of kard of [Enderton] p. 222 (which we don't define separately since currently we do not use it elsewhere). This theorem along with kardex 9809 justify the definition of kard. The restriction to the least rank prevents the proper class that would result from {𝑥 ∣ 𝑥 ≈ 𝐴}. (Contributed by NM, 18-Dec-2003.) (Revised by AV, 12-Jul-2022.)

Hypotheses

Ref	Expression
karden.a	⊢ 𝐴 ∈ V
karden.c	⊢ 𝐶 = {𝑥 ∣ (𝑥 ≈ 𝐴 ∧ ∀𝑦(𝑦 ≈ 𝐴 → (rank‘𝑥) ⊆ (rank‘𝑦)))}
karden.d	⊢ 𝐷 = {𝑥 ∣ (𝑥 ≈ 𝐵 ∧ ∀𝑦(𝑦 ≈ 𝐵 → (rank‘𝑥) ⊆ (rank‘𝑦)))}

Assertion

Ref	Expression
karden	⊢ (𝐶 = 𝐷 ↔ 𝐴 ≈ 𝐵)

Distinct variable groups:   𝑥,𝑦,𝐴   𝑥,𝐵,𝑦

Allowed substitution hints:   𝐶(𝑥,𝑦)   𝐷(𝑥,𝑦)

Proof of Theorem karden

Dummy variables 𝑧 𝑤 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		karden.a	. . . . . . 7 ⊢ 𝐴 ∈ V
2		breq1 5089	. . . . . . 7 ⊢ (𝑤 = 𝐴 → (𝑤 ≈ 𝐴 ↔ 𝐴 ≈ 𝐴))
3	1	enref 8925	. . . . . . 7 ⊢ 𝐴 ≈ 𝐴
4	1, 2, 3	ceqsexv2d 3480	. . . . . 6 ⊢ ∃𝑤 𝑤 ≈ 𝐴
5		abn0 4326	. . . . . 6 ⊢ ({𝑤 ∣ 𝑤 ≈ 𝐴} ≠ ∅ ↔ ∃𝑤 𝑤 ≈ 𝐴)
6	4, 5	mpbir 231	. . . . 5 ⊢ {𝑤 ∣ 𝑤 ≈ 𝐴} ≠ ∅
7		scott0 9801	. . . . . 6 ⊢ ({𝑤 ∣ 𝑤 ≈ 𝐴} = ∅ ↔ {𝑧 ∈ {𝑤 ∣ 𝑤 ≈ 𝐴} ∣ ∀𝑦 ∈ {𝑤 ∣ 𝑤 ≈ 𝐴} (rank‘𝑧) ⊆ (rank‘𝑦)} = ∅)
8	7	necon3bii 2985	. . . . 5 ⊢ ({𝑤 ∣ 𝑤 ≈ 𝐴} ≠ ∅ ↔ {𝑧 ∈ {𝑤 ∣ 𝑤 ≈ 𝐴} ∣ ∀𝑦 ∈ {𝑤 ∣ 𝑤 ≈ 𝐴} (rank‘𝑧) ⊆ (rank‘𝑦)} ≠ ∅)
9	6, 8	mpbi 230	. . . 4 ⊢ {𝑧 ∈ {𝑤 ∣ 𝑤 ≈ 𝐴} ∣ ∀𝑦 ∈ {𝑤 ∣ 𝑤 ≈ 𝐴} (rank‘𝑧) ⊆ (rank‘𝑦)} ≠ ∅
10		rabn0 4330	. . . 4 ⊢ ({𝑧 ∈ {𝑤 ∣ 𝑤 ≈ 𝐴} ∣ ∀𝑦 ∈ {𝑤 ∣ 𝑤 ≈ 𝐴} (rank‘𝑧) ⊆ (rank‘𝑦)} ≠ ∅ ↔ ∃𝑧 ∈ {𝑤 ∣ 𝑤 ≈ 𝐴}∀𝑦 ∈ {𝑤 ∣ 𝑤 ≈ 𝐴} (rank‘𝑧) ⊆ (rank‘𝑦))
11	9, 10	mpbi 230	. . 3 ⊢ ∃𝑧 ∈ {𝑤 ∣ 𝑤 ≈ 𝐴}∀𝑦 ∈ {𝑤 ∣ 𝑤 ≈ 𝐴} (rank‘𝑧) ⊆ (rank‘𝑦)
12		vex 3434	. . . . . . . 8 ⊢ 𝑧 ∈ V
13		breq1 5089	. . . . . . . 8 ⊢ (𝑤 = 𝑧 → (𝑤 ≈ 𝐴 ↔ 𝑧 ≈ 𝐴))
14	12, 13	elab 3623	. . . . . . 7 ⊢ (𝑧 ∈ {𝑤 ∣ 𝑤 ≈ 𝐴} ↔ 𝑧 ≈ 𝐴)
15		breq1 5089	. . . . . . . 8 ⊢ (𝑤 = 𝑦 → (𝑤 ≈ 𝐴 ↔ 𝑦 ≈ 𝐴))
16	15	ralab 3640	. . . . . . 7 ⊢ (∀𝑦 ∈ {𝑤 ∣ 𝑤 ≈ 𝐴} (rank‘𝑧) ⊆ (rank‘𝑦) ↔ ∀𝑦(𝑦 ≈ 𝐴 → (rank‘𝑧) ⊆ (rank‘𝑦)))
17	14, 16	anbi12i 629	. . . . . 6 ⊢ ((𝑧 ∈ {𝑤 ∣ 𝑤 ≈ 𝐴} ∧ ∀𝑦 ∈ {𝑤 ∣ 𝑤 ≈ 𝐴} (rank‘𝑧) ⊆ (rank‘𝑦)) ↔ (𝑧 ≈ 𝐴 ∧ ∀𝑦(𝑦 ≈ 𝐴 → (rank‘𝑧) ⊆ (rank‘𝑦))))
18		simpl 482	. . . . . . . . 9 ⊢ ((𝑧 ≈ 𝐴 ∧ ∀𝑦(𝑦 ≈ 𝐴 → (rank‘𝑧) ⊆ (rank‘𝑦))) → 𝑧 ≈ 𝐴)
19	18	a1i 11	. . . . . . . 8 ⊢ (𝐶 = 𝐷 → ((𝑧 ≈ 𝐴 ∧ ∀𝑦(𝑦 ≈ 𝐴 → (rank‘𝑧) ⊆ (rank‘𝑦))) → 𝑧 ≈ 𝐴))
20		karden.c	. . . . . . . . . . . 12 ⊢ 𝐶 = {𝑥 ∣ (𝑥 ≈ 𝐴 ∧ ∀𝑦(𝑦 ≈ 𝐴 → (rank‘𝑥) ⊆ (rank‘𝑦)))}
21		karden.d	. . . . . . . . . . . 12 ⊢ 𝐷 = {𝑥 ∣ (𝑥 ≈ 𝐵 ∧ ∀𝑦(𝑦 ≈ 𝐵 → (rank‘𝑥) ⊆ (rank‘𝑦)))}
22	20, 21	eqeq12i 2755	. . . . . . . . . . 11 ⊢ (𝐶 = 𝐷 ↔ {𝑥 ∣ (𝑥 ≈ 𝐴 ∧ ∀𝑦(𝑦 ≈ 𝐴 → (rank‘𝑥) ⊆ (rank‘𝑦)))} = {𝑥 ∣ (𝑥 ≈ 𝐵 ∧ ∀𝑦(𝑦 ≈ 𝐵 → (rank‘𝑥) ⊆ (rank‘𝑦)))})
23		abbib 2806	. . . . . . . . . . 11 ⊢ ({𝑥 ∣ (𝑥 ≈ 𝐴 ∧ ∀𝑦(𝑦 ≈ 𝐴 → (rank‘𝑥) ⊆ (rank‘𝑦)))} = {𝑥 ∣ (𝑥 ≈ 𝐵 ∧ ∀𝑦(𝑦 ≈ 𝐵 → (rank‘𝑥) ⊆ (rank‘𝑦)))} ↔ ∀𝑥((𝑥 ≈ 𝐴 ∧ ∀𝑦(𝑦 ≈ 𝐴 → (rank‘𝑥) ⊆ (rank‘𝑦))) ↔ (𝑥 ≈ 𝐵 ∧ ∀𝑦(𝑦 ≈ 𝐵 → (rank‘𝑥) ⊆ (rank‘𝑦)))))
24	22, 23	bitri 275	. . . . . . . . . 10 ⊢ (𝐶 = 𝐷 ↔ ∀𝑥((𝑥 ≈ 𝐴 ∧ ∀𝑦(𝑦 ≈ 𝐴 → (rank‘𝑥) ⊆ (rank‘𝑦))) ↔ (𝑥 ≈ 𝐵 ∧ ∀𝑦(𝑦 ≈ 𝐵 → (rank‘𝑥) ⊆ (rank‘𝑦)))))
25		breq1 5089	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑧 → (𝑥 ≈ 𝐴 ↔ 𝑧 ≈ 𝐴))
26		fveq2 6834	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝑧 → (rank‘𝑥) = (rank‘𝑧))
27	26	sseq1d 3954	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = 𝑧 → ((rank‘𝑥) ⊆ (rank‘𝑦) ↔ (rank‘𝑧) ⊆ (rank‘𝑦)))
28	27	imbi2d 340	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝑧 → ((𝑦 ≈ 𝐴 → (rank‘𝑥) ⊆ (rank‘𝑦)) ↔ (𝑦 ≈ 𝐴 → (rank‘𝑧) ⊆ (rank‘𝑦))))
29	28	albidv 1922	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑧 → (∀𝑦(𝑦 ≈ 𝐴 → (rank‘𝑥) ⊆ (rank‘𝑦)) ↔ ∀𝑦(𝑦 ≈ 𝐴 → (rank‘𝑧) ⊆ (rank‘𝑦))))
30	25, 29	anbi12d 633	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑧 → ((𝑥 ≈ 𝐴 ∧ ∀𝑦(𝑦 ≈ 𝐴 → (rank‘𝑥) ⊆ (rank‘𝑦))) ↔ (𝑧 ≈ 𝐴 ∧ ∀𝑦(𝑦 ≈ 𝐴 → (rank‘𝑧) ⊆ (rank‘𝑦)))))
31		breq1 5089	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑧 → (𝑥 ≈ 𝐵 ↔ 𝑧 ≈ 𝐵))
32	27	imbi2d 340	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝑧 → ((𝑦 ≈ 𝐵 → (rank‘𝑥) ⊆ (rank‘𝑦)) ↔ (𝑦 ≈ 𝐵 → (rank‘𝑧) ⊆ (rank‘𝑦))))
33	32	albidv 1922	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑧 → (∀𝑦(𝑦 ≈ 𝐵 → (rank‘𝑥) ⊆ (rank‘𝑦)) ↔ ∀𝑦(𝑦 ≈ 𝐵 → (rank‘𝑧) ⊆ (rank‘𝑦))))
34	31, 33	anbi12d 633	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑧 → ((𝑥 ≈ 𝐵 ∧ ∀𝑦(𝑦 ≈ 𝐵 → (rank‘𝑥) ⊆ (rank‘𝑦))) ↔ (𝑧 ≈ 𝐵 ∧ ∀𝑦(𝑦 ≈ 𝐵 → (rank‘𝑧) ⊆ (rank‘𝑦)))))
35	30, 34	bibi12d 345	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑧 → (((𝑥 ≈ 𝐴 ∧ ∀𝑦(𝑦 ≈ 𝐴 → (rank‘𝑥) ⊆ (rank‘𝑦))) ↔ (𝑥 ≈ 𝐵 ∧ ∀𝑦(𝑦 ≈ 𝐵 → (rank‘𝑥) ⊆ (rank‘𝑦)))) ↔ ((𝑧 ≈ 𝐴 ∧ ∀𝑦(𝑦 ≈ 𝐴 → (rank‘𝑧) ⊆ (rank‘𝑦))) ↔ (𝑧 ≈ 𝐵 ∧ ∀𝑦(𝑦 ≈ 𝐵 → (rank‘𝑧) ⊆ (rank‘𝑦))))))
36	35	spvv 1990	. . . . . . . . . 10 ⊢ (∀𝑥((𝑥 ≈ 𝐴 ∧ ∀𝑦(𝑦 ≈ 𝐴 → (rank‘𝑥) ⊆ (rank‘𝑦))) ↔ (𝑥 ≈ 𝐵 ∧ ∀𝑦(𝑦 ≈ 𝐵 → (rank‘𝑥) ⊆ (rank‘𝑦)))) → ((𝑧 ≈ 𝐴 ∧ ∀𝑦(𝑦 ≈ 𝐴 → (rank‘𝑧) ⊆ (rank‘𝑦))) ↔ (𝑧 ≈ 𝐵 ∧ ∀𝑦(𝑦 ≈ 𝐵 → (rank‘𝑧) ⊆ (rank‘𝑦)))))
37	24, 36	sylbi 217	. . . . . . . . 9 ⊢ (𝐶 = 𝐷 → ((𝑧 ≈ 𝐴 ∧ ∀𝑦(𝑦 ≈ 𝐴 → (rank‘𝑧) ⊆ (rank‘𝑦))) ↔ (𝑧 ≈ 𝐵 ∧ ∀𝑦(𝑦 ≈ 𝐵 → (rank‘𝑧) ⊆ (rank‘𝑦)))))
38		simpl 482	. . . . . . . . 9 ⊢ ((𝑧 ≈ 𝐵 ∧ ∀𝑦(𝑦 ≈ 𝐵 → (rank‘𝑧) ⊆ (rank‘𝑦))) → 𝑧 ≈ 𝐵)
39	37, 38	biimtrdi 253	. . . . . . . 8 ⊢ (𝐶 = 𝐷 → ((𝑧 ≈ 𝐴 ∧ ∀𝑦(𝑦 ≈ 𝐴 → (rank‘𝑧) ⊆ (rank‘𝑦))) → 𝑧 ≈ 𝐵))
40	19, 39	jcad 512	. . . . . . 7 ⊢ (𝐶 = 𝐷 → ((𝑧 ≈ 𝐴 ∧ ∀𝑦(𝑦 ≈ 𝐴 → (rank‘𝑧) ⊆ (rank‘𝑦))) → (𝑧 ≈ 𝐴 ∧ 𝑧 ≈ 𝐵)))
41		ensym 8943	. . . . . . . 8 ⊢ (𝑧 ≈ 𝐴 → 𝐴 ≈ 𝑧)
42		entr 8946	. . . . . . . 8 ⊢ ((𝐴 ≈ 𝑧 ∧ 𝑧 ≈ 𝐵) → 𝐴 ≈ 𝐵)
43	41, 42	sylan 581	. . . . . . 7 ⊢ ((𝑧 ≈ 𝐴 ∧ 𝑧 ≈ 𝐵) → 𝐴 ≈ 𝐵)
44	40, 43	syl6 35	. . . . . 6 ⊢ (𝐶 = 𝐷 → ((𝑧 ≈ 𝐴 ∧ ∀𝑦(𝑦 ≈ 𝐴 → (rank‘𝑧) ⊆ (rank‘𝑦))) → 𝐴 ≈ 𝐵))
45	17, 44	biimtrid 242	. . . . 5 ⊢ (𝐶 = 𝐷 → ((𝑧 ∈ {𝑤 ∣ 𝑤 ≈ 𝐴} ∧ ∀𝑦 ∈ {𝑤 ∣ 𝑤 ≈ 𝐴} (rank‘𝑧) ⊆ (rank‘𝑦)) → 𝐴 ≈ 𝐵))
46	45	expd 415	. . . 4 ⊢ (𝐶 = 𝐷 → (𝑧 ∈ {𝑤 ∣ 𝑤 ≈ 𝐴} → (∀𝑦 ∈ {𝑤 ∣ 𝑤 ≈ 𝐴} (rank‘𝑧) ⊆ (rank‘𝑦) → 𝐴 ≈ 𝐵)))
47	46	rexlimdv 3137	. . 3 ⊢ (𝐶 = 𝐷 → (∃𝑧 ∈ {𝑤 ∣ 𝑤 ≈ 𝐴}∀𝑦 ∈ {𝑤 ∣ 𝑤 ≈ 𝐴} (rank‘𝑧) ⊆ (rank‘𝑦) → 𝐴 ≈ 𝐵))
48	11, 47	mpi 20	. 2 ⊢ (𝐶 = 𝐷 → 𝐴 ≈ 𝐵)
49		enen2 9049	. . . . 5 ⊢ (𝐴 ≈ 𝐵 → (𝑥 ≈ 𝐴 ↔ 𝑥 ≈ 𝐵))
50		enen2 9049	. . . . . . 7 ⊢ (𝐴 ≈ 𝐵 → (𝑦 ≈ 𝐴 ↔ 𝑦 ≈ 𝐵))
51	50	imbi1d 341	. . . . . 6 ⊢ (𝐴 ≈ 𝐵 → ((𝑦 ≈ 𝐴 → (rank‘𝑥) ⊆ (rank‘𝑦)) ↔ (𝑦 ≈ 𝐵 → (rank‘𝑥) ⊆ (rank‘𝑦))))
52	51	albidv 1922	. . . . 5 ⊢ (𝐴 ≈ 𝐵 → (∀𝑦(𝑦 ≈ 𝐴 → (rank‘𝑥) ⊆ (rank‘𝑦)) ↔ ∀𝑦(𝑦 ≈ 𝐵 → (rank‘𝑥) ⊆ (rank‘𝑦))))
53	49, 52	anbi12d 633	. . . 4 ⊢ (𝐴 ≈ 𝐵 → ((𝑥 ≈ 𝐴 ∧ ∀𝑦(𝑦 ≈ 𝐴 → (rank‘𝑥) ⊆ (rank‘𝑦))) ↔ (𝑥 ≈ 𝐵 ∧ ∀𝑦(𝑦 ≈ 𝐵 → (rank‘𝑥) ⊆ (rank‘𝑦)))))
54	53	abbidv 2803	. . 3 ⊢ (𝐴 ≈ 𝐵 → {𝑥 ∣ (𝑥 ≈ 𝐴 ∧ ∀𝑦(𝑦 ≈ 𝐴 → (rank‘𝑥) ⊆ (rank‘𝑦)))} = {𝑥 ∣ (𝑥 ≈ 𝐵 ∧ ∀𝑦(𝑦 ≈ 𝐵 → (rank‘𝑥) ⊆ (rank‘𝑦)))})
55	54, 20, 21	3eqtr4g 2797	. 2 ⊢ (𝐴 ≈ 𝐵 → 𝐶 = 𝐷)
56	48, 55	impbii 209	1 ⊢ (𝐶 = 𝐷 ↔ 𝐴 ≈ 𝐵)

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395  ∀wal 1540   = wceq 1542  ∃wex 1781   ∈ wcel 2114  {cab 2715   ≠ wne 2933  ∀wral 3052  ∃wrex 3062  {crab 3390  Vcvv 3430   ⊆ wss 3890  ∅c0 4274   class class class wbr 5086  ‘cfv 6492   ≈ cen 8883  rankcrnk 9678

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-sep 5231  ax-nul 5241  ax-pow 5302  ax-pr 5370  ax-un 7682

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-ral 3053  df-rex 3063  df-reu 3344  df-rab 3391  df-v 3432  df-sbc 3730  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-pss 3910  df-nul 4275  df-if 4468  df-pw 4544  df-sn 4569  df-pr 4571  df-op 4575  df-uni 4852  df-int 4891  df-iun 4936  df-iin 4937  df-br 5087  df-opab 5149  df-mpt 5168  df-tr 5194  df-id 5519  df-eprel 5524  df-po 5532  df-so 5533  df-fr 5577  df-we 5579  df-xp 5630  df-rel 5631  df-cnv 5632  df-co 5633  df-dm 5634  df-rn 5635  df-res 5636  df-ima 5637  df-pred 6259  df-ord 6320  df-on 6321  df-lim 6322  df-suc 6323  df-iota 6448  df-fun 6494  df-fn 6495  df-f 6496  df-f1 6497  df-fo 6498  df-f1o 6499  df-fv 6500  df-ov 7363  df-om 7811  df-2nd 7936  df-frecs 8224  df-wrecs 8255  df-recs 8304  df-rdg 8342  df-er 8636  df-en 8887  df-r1 9679  df-rank 9680

This theorem is referenced by: (None)