Theorem elhf2 36169

Description: Alternate form of membership in the hereditarily finite sets. (Contributed by Scott Fenton, 13-Jul-2015.)

Hypothesis

Ref	Expression
elhf2.1	⊢ 𝐴 ∈ V

Assertion

Ref	Expression
elhf2	⊢ (𝐴 ∈ Hf ↔ (rank‘𝐴) ∈ ω)

Proof of Theorem elhf2

Dummy variable 𝑥 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		elhf 36168	. 2 ⊢ (𝐴 ∈ Hf ↔ ∃𝑥 ∈ ω 𝐴 ∈ (𝑅1‘𝑥))
2		omon 7903	. . 3 ⊢ (ω ∈ On ∨ ω = On)
3		nnon 7897	. . . . . . . . 9 ⊢ (𝑥 ∈ ω → 𝑥 ∈ On)
4		elhf2.1	. . . . . . . . . 10 ⊢ 𝐴 ∈ V
5	4	rankr1a 9880	. . . . . . . . 9 ⊢ (𝑥 ∈ On → (𝐴 ∈ (𝑅1‘𝑥) ↔ (rank‘𝐴) ∈ 𝑥))
6	3, 5	syl 17	. . . . . . . 8 ⊢ (𝑥 ∈ ω → (𝐴 ∈ (𝑅1‘𝑥) ↔ (rank‘𝐴) ∈ 𝑥))
7	6	adantl 481	. . . . . . 7 ⊢ ((ω ∈ On ∧ 𝑥 ∈ ω) → (𝐴 ∈ (𝑅1‘𝑥) ↔ (rank‘𝐴) ∈ 𝑥))
8		elnn 7902	. . . . . . . . 9 ⊢ (((rank‘𝐴) ∈ 𝑥 ∧ 𝑥 ∈ ω) → (rank‘𝐴) ∈ ω)
9	8	expcom 413	. . . . . . . 8 ⊢ (𝑥 ∈ ω → ((rank‘𝐴) ∈ 𝑥 → (rank‘𝐴) ∈ ω))
10	9	adantl 481	. . . . . . 7 ⊢ ((ω ∈ On ∧ 𝑥 ∈ ω) → ((rank‘𝐴) ∈ 𝑥 → (rank‘𝐴) ∈ ω))
11	7, 10	sylbid 240	. . . . . 6 ⊢ ((ω ∈ On ∧ 𝑥 ∈ ω) → (𝐴 ∈ (𝑅1‘𝑥) → (rank‘𝐴) ∈ ω))
12	11	rexlimdva 3154	. . . . 5 ⊢ (ω ∈ On → (∃𝑥 ∈ ω 𝐴 ∈ (𝑅1‘𝑥) → (rank‘𝐴) ∈ ω))
13		peano2 7917	. . . . . . . 8 ⊢ ((rank‘𝐴) ∈ ω → suc (rank‘𝐴) ∈ ω)
14	13	adantr 480	. . . . . . 7 ⊢ (((rank‘𝐴) ∈ ω ∧ ω ∈ On) → suc (rank‘𝐴) ∈ ω)
15		r1rankid 9903	. . . . . . . . . 10 ⊢ (𝐴 ∈ V → 𝐴 ⊆ (𝑅1‘(rank‘𝐴)))
16	4, 15	mp1i 13	. . . . . . . . 9 ⊢ (((rank‘𝐴) ∈ ω ∧ ω ∈ On) → 𝐴 ⊆ (𝑅1‘(rank‘𝐴)))
17	4	elpw 4610	. . . . . . . . 9 ⊢ (𝐴 ∈ 𝒫 (𝑅1‘(rank‘𝐴)) ↔ 𝐴 ⊆ (𝑅1‘(rank‘𝐴)))
18	16, 17	sylibr 234	. . . . . . . 8 ⊢ (((rank‘𝐴) ∈ ω ∧ ω ∈ On) → 𝐴 ∈ 𝒫 (𝑅1‘(rank‘𝐴)))
19		nnon 7897	. . . . . . . . . 10 ⊢ ((rank‘𝐴) ∈ ω → (rank‘𝐴) ∈ On)
20		r1suc 9814	. . . . . . . . . 10 ⊢ ((rank‘𝐴) ∈ On → (𝑅1‘suc (rank‘𝐴)) = 𝒫 (𝑅1‘(rank‘𝐴)))
21	19, 20	syl 17	. . . . . . . . 9 ⊢ ((rank‘𝐴) ∈ ω → (𝑅1‘suc (rank‘𝐴)) = 𝒫 (𝑅1‘(rank‘𝐴)))
22	21	adantr 480	. . . . . . . 8 ⊢ (((rank‘𝐴) ∈ ω ∧ ω ∈ On) → (𝑅1‘suc (rank‘𝐴)) = 𝒫 (𝑅1‘(rank‘𝐴)))
23	18, 22	eleqtrrd 2843	. . . . . . 7 ⊢ (((rank‘𝐴) ∈ ω ∧ ω ∈ On) → 𝐴 ∈ (𝑅1‘suc (rank‘𝐴)))
24		fveq2 6911	. . . . . . . . 9 ⊢ (𝑥 = suc (rank‘𝐴) → (𝑅1‘𝑥) = (𝑅1‘suc (rank‘𝐴)))
25	24	eleq2d 2826	. . . . . . . 8 ⊢ (𝑥 = suc (rank‘𝐴) → (𝐴 ∈ (𝑅1‘𝑥) ↔ 𝐴 ∈ (𝑅1‘suc (rank‘𝐴))))
26	25	rspcev 3623	. . . . . . 7 ⊢ ((suc (rank‘𝐴) ∈ ω ∧ 𝐴 ∈ (𝑅1‘suc (rank‘𝐴))) → ∃𝑥 ∈ ω 𝐴 ∈ (𝑅1‘𝑥))
27	14, 23, 26	syl2anc 584	. . . . . 6 ⊢ (((rank‘𝐴) ∈ ω ∧ ω ∈ On) → ∃𝑥 ∈ ω 𝐴 ∈ (𝑅1‘𝑥))
28	27	expcom 413	. . . . 5 ⊢ (ω ∈ On → ((rank‘𝐴) ∈ ω → ∃𝑥 ∈ ω 𝐴 ∈ (𝑅1‘𝑥)))
29	12, 28	impbid 212	. . . 4 ⊢ (ω ∈ On → (∃𝑥 ∈ ω 𝐴 ∈ (𝑅1‘𝑥) ↔ (rank‘𝐴) ∈ ω))
30	4	tz9.13 9835	. . . . . 6 ⊢ ∃𝑥 ∈ On 𝐴 ∈ (𝑅1‘𝑥)
31		rankon 9839	. . . . . 6 ⊢ (rank‘𝐴) ∈ On
32	30, 31	2th 264	. . . . 5 ⊢ (∃𝑥 ∈ On 𝐴 ∈ (𝑅1‘𝑥) ↔ (rank‘𝐴) ∈ On)
33		rexeq 3321	. . . . . 6 ⊢ (ω = On → (∃𝑥 ∈ ω 𝐴 ∈ (𝑅1‘𝑥) ↔ ∃𝑥 ∈ On 𝐴 ∈ (𝑅1‘𝑥)))
34		eleq2 2829	. . . . . 6 ⊢ (ω = On → ((rank‘𝐴) ∈ ω ↔ (rank‘𝐴) ∈ On))
35	33, 34	bibi12d 345	. . . . 5 ⊢ (ω = On → ((∃𝑥 ∈ ω 𝐴 ∈ (𝑅1‘𝑥) ↔ (rank‘𝐴) ∈ ω) ↔ (∃𝑥 ∈ On 𝐴 ∈ (𝑅1‘𝑥) ↔ (rank‘𝐴) ∈ On)))
36	32, 35	mpbiri 258	. . . 4 ⊢ (ω = On → (∃𝑥 ∈ ω 𝐴 ∈ (𝑅1‘𝑥) ↔ (rank‘𝐴) ∈ ω))
37	29, 36	jaoi 857	. . 3 ⊢ ((ω ∈ On ∨ ω = On) → (∃𝑥 ∈ ω 𝐴 ∈ (𝑅1‘𝑥) ↔ (rank‘𝐴) ∈ ω))
38	2, 37	ax-mp 5	. 2 ⊢ (∃𝑥 ∈ ω 𝐴 ∈ (𝑅1‘𝑥) ↔ (rank‘𝐴) ∈ ω)
39	1, 38	bitri 275	1 ⊢ (𝐴 ∈ Hf ↔ (rank‘𝐴) ∈ ω)

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   ∨ wo 847   = wceq 1538   ∈ wcel 2107  ∃wrex 3069  Vcvv 3479   ⊆ wss 3964  𝒫 cpw 4606  Oncon0 6389  suc csuc 6391  ‘cfv 6566  ωcom 7891  𝑅₁cr1 9806  rankcrnk 9807   Hf chf 36166

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1793  ax-4 1807  ax-5 1909  ax-6 1966  ax-7 2006  ax-8 2109  ax-9 2117  ax-10 2140  ax-11 2156  ax-12 2176  ax-ext 2707  ax-rep 5286  ax-sep 5303  ax-nul 5313  ax-pow 5372  ax-pr 5439  ax-un 7758  ax-reg 9636  ax-inf2 9685

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1541  df-fal 1551  df-ex 1778  df-nf 1782  df-sb 2064  df-mo 2539  df-eu 2568  df-clab 2714  df-cleq 2728  df-clel 2815  df-nfc 2891  df-ne 2940  df-ral 3061  df-rex 3070  df-reu 3380  df-rab 3435  df-v 3481  df-sbc 3793  df-csb 3910  df-dif 3967  df-un 3969  df-in 3971  df-ss 3981  df-pss 3984  df-nul 4341  df-if 4533  df-pw 4608  df-sn 4633  df-pr 4635  df-op 4639  df-uni 4914  df-int 4953  df-iun 4999  df-br 5150  df-opab 5212  df-mpt 5233  df-tr 5267  df-id 5584  df-eprel 5590  df-po 5598  df-so 5599  df-fr 5642  df-we 5644  df-xp 5696  df-rel 5697  df-cnv 5698  df-co 5699  df-dm 5700  df-rn 5701  df-res 5702  df-ima 5703  df-pred 6326  df-ord 6392  df-on 6393  df-lim 6394  df-suc 6395  df-iota 6519  df-fun 6568  df-fn 6569  df-f 6570  df-f1 6571  df-fo 6572  df-f1o 6573  df-fv 6574  df-ov 7438  df-om 7892  df-2nd 8020  df-frecs 8311  df-wrecs 8342  df-recs 8416  df-rdg 8455  df-er 8750  df-en 8991  df-dom 8992  df-sdom 8993  df-r1 9808  df-rank 9809  df-hf 36167

This theorem is referenced by:  elhf2g  36170  hfsn  36173