Theorem unwf 9855

Description: A binary union is well-founded iff its elements are. (Contributed by Mario Carneiro, 10-Jun-2013.) (Revised by Mario Carneiro, 17-Nov-2014.)

Assertion

Ref	Expression
unwf	⊢ ((𝐴 ∈ ∪ (𝑅1 “ On) ∧ 𝐵 ∈ ∪ (𝑅1 “ On)) ↔ (𝐴 ∪ 𝐵) ∈ ∪ (𝑅1 “ On))

Proof of Theorem unwf

Step	Hyp	Ref	Expression
1		r1rankidb 9849	. . . . . . . 8 ⊢ (𝐴 ∈ ∪ (𝑅1 “ On) → 𝐴 ⊆ (𝑅1‘(rank‘𝐴)))
2	1	adantr 486	. . . . . . 7 ⊢ ((𝐴 ∈ ∪ (𝑅1 “ On) ∧ 𝐵 ∈ ∪ (𝑅1 “ On)) → 𝐴 ⊆ (𝑅1‘(rank‘𝐴)))
3		ssun1 4179	. . . . . . . 8 ⊢ (rank‘𝐴) ⊆ ((rank‘𝐴) ∪ (rank‘𝐵))
4		rankdmr1 9846	. . . . . . . . 9 ⊢ (rank‘𝐴) ∈ dom 𝑅1
5		r1dmlim 9809	. . . . . . . . . . 11 ⊢ Lim dom 𝑅1
6		limord 6450	. . . . . . . . . . 11 ⊢ (Lim dom 𝑅1 → Ord dom 𝑅1)
7	5, 6	ax-mp 5	. . . . . . . . . 10 ⊢ Ord dom 𝑅1
8		rankdmr1 9846	. . . . . . . . . 10 ⊢ (rank‘𝐵) ∈ dom 𝑅1
9		ordunel 7872	. . . . . . . . . 10 ⊢ ((Ord dom 𝑅1 ∧ (rank‘𝐴) ∈ dom 𝑅1 ∧ (rank‘𝐵) ∈ dom 𝑅1) → ((rank‘𝐴) ∪ (rank‘𝐵)) ∈ dom 𝑅1)
10	7, 4, 8, 9	mp3an 1491	. . . . . . . . 9 ⊢ ((rank‘𝐴) ∪ (rank‘𝐵)) ∈ dom 𝑅1
11		r1ord3g 9823	. . . . . . . . 9 ⊢ (((rank‘𝐴) ∈ dom 𝑅1 ∧ ((rank‘𝐴) ∪ (rank‘𝐵)) ∈ dom 𝑅1) → ((rank‘𝐴) ⊆ ((rank‘𝐴) ∪ (rank‘𝐵)) → (𝑅1‘(rank‘𝐴)) ⊆ (𝑅1‘((rank‘𝐴) ∪ (rank‘𝐵)))))
12	4, 10, 11	mp2an 705	. . . . . . . 8 ⊢ ((rank‘𝐴) ⊆ ((rank‘𝐴) ∪ (rank‘𝐵)) → (𝑅1‘(rank‘𝐴)) ⊆ (𝑅1‘((rank‘𝐴) ∪ (rank‘𝐵))))
13	3, 12	ax-mp 5	. . . . . . 7 ⊢ (𝑅1‘(rank‘𝐴)) ⊆ (𝑅1‘((rank‘𝐴) ∪ (rank‘𝐵)))
14	2, 13	sstrdi 3925	. . . . . 6 ⊢ ((𝐴 ∈ ∪ (𝑅1 “ On) ∧ 𝐵 ∈ ∪ (𝑅1 “ On)) → 𝐴 ⊆ (𝑅1‘((rank‘𝐴) ∪ (rank‘𝐵))))
15		r1rankidb 9849	. . . . . . . 8 ⊢ (𝐵 ∈ ∪ (𝑅1 “ On) → 𝐵 ⊆ (𝑅1‘(rank‘𝐵)))
16	15	adantl 487	. . . . . . 7 ⊢ ((𝐴 ∈ ∪ (𝑅1 “ On) ∧ 𝐵 ∈ ∪ (𝑅1 “ On)) → 𝐵 ⊆ (𝑅1‘(rank‘𝐵)))
17		ssun2 4180	. . . . . . . 8 ⊢ (rank‘𝐵) ⊆ ((rank‘𝐴) ∪ (rank‘𝐵))
18		r1ord3g 9823	. . . . . . . . 9 ⊢ (((rank‘𝐵) ∈ dom 𝑅1 ∧ ((rank‘𝐴) ∪ (rank‘𝐵)) ∈ dom 𝑅1) → ((rank‘𝐵) ⊆ ((rank‘𝐴) ∪ (rank‘𝐵)) → (𝑅1‘(rank‘𝐵)) ⊆ (𝑅1‘((rank‘𝐴) ∪ (rank‘𝐵)))))
19	8, 10, 18	mp2an 705	. . . . . . . 8 ⊢ ((rank‘𝐵) ⊆ ((rank‘𝐴) ∪ (rank‘𝐵)) → (𝑅1‘(rank‘𝐵)) ⊆ (𝑅1‘((rank‘𝐴) ∪ (rank‘𝐵))))
20	17, 19	ax-mp 5	. . . . . . 7 ⊢ (𝑅1‘(rank‘𝐵)) ⊆ (𝑅1‘((rank‘𝐴) ∪ (rank‘𝐵)))
21	16, 20	sstrdi 3925	. . . . . 6 ⊢ ((𝐴 ∈ ∪ (𝑅1 “ On) ∧ 𝐵 ∈ ∪ (𝑅1 “ On)) → 𝐵 ⊆ (𝑅1‘((rank‘𝐴) ∪ (rank‘𝐵))))
22	14, 21	unssd 4193	. . . . 5 ⊢ ((𝐴 ∈ ∪ (𝑅1 “ On) ∧ 𝐵 ∈ ∪ (𝑅1 “ On)) → (𝐴 ∪ 𝐵) ⊆ (𝑅1‘((rank‘𝐴) ∪ (rank‘𝐵))))
23		fvex 6929	. . . . . 6 ⊢ (𝑅1‘((rank‘𝐴) ∪ (rank‘𝐵))) ∈ V
24	23	elpw2 5303	. . . . 5 ⊢ ((𝐴 ∪ 𝐵) ∈ 𝒫 (𝑅1‘((rank‘𝐴) ∪ (rank‘𝐵))) ↔ (𝐴 ∪ 𝐵) ⊆ (𝑅1‘((rank‘𝐴) ∪ (rank‘𝐵))))
25	22, 24	sylibr 237	. . . 4 ⊢ ((𝐴 ∈ ∪ (𝑅1 “ On) ∧ 𝐵 ∈ ∪ (𝑅1 “ On)) → (𝐴 ∪ 𝐵) ∈ 𝒫 (𝑅1‘((rank‘𝐴) ∪ (rank‘𝐵))))
26		r1sucg 9813	. . . . 5 ⊢ (((rank‘𝐴) ∪ (rank‘𝐵)) ∈ dom 𝑅1 → (𝑅1‘suc ((rank‘𝐴) ∪ (rank‘𝐵))) = 𝒫 (𝑅1‘((rank‘𝐴) ∪ (rank‘𝐵))))
27	10, 26	ax-mp 5	. . . 4 ⊢ (𝑅1‘suc ((rank‘𝐴) ∪ (rank‘𝐵))) = 𝒫 (𝑅1‘((rank‘𝐴) ∪ (rank‘𝐵)))
28	25, 27	eleqtrrdi 2875	. . 3 ⊢ ((𝐴 ∈ ∪ (𝑅1 “ On) ∧ 𝐵 ∈ ∪ (𝑅1 “ On)) → (𝐴 ∪ 𝐵) ∈ (𝑅1‘suc ((rank‘𝐴) ∪ (rank‘𝐵))))
29		r1elwf 9841	. . 3 ⊢ ((𝐴 ∪ 𝐵) ∈ (𝑅1‘suc ((rank‘𝐴) ∪ (rank‘𝐵))) → (𝐴 ∪ 𝐵) ∈ ∪ (𝑅1 “ On))
30	28, 29	syl 18	. 2 ⊢ ((𝐴 ∈ ∪ (𝑅1 “ On) ∧ 𝐵 ∈ ∪ (𝑅1 “ On)) → (𝐴 ∪ 𝐵) ∈ ∪ (𝑅1 “ On))
31		ssun1 4179	. . . 4 ⊢ 𝐴 ⊆ (𝐴 ∪ 𝐵)
32		sswf 9853	. . . 4 ⊢ (((𝐴 ∪ 𝐵) ∈ ∪ (𝑅1 “ On) ∧ 𝐴 ⊆ (𝐴 ∪ 𝐵)) → 𝐴 ∈ ∪ (𝑅1 “ On))
33	31, 32	mpan2 704	. . 3 ⊢ ((𝐴 ∪ 𝐵) ∈ ∪ (𝑅1 “ On) → 𝐴 ∈ ∪ (𝑅1 “ On))
34		ssun2 4180	. . . 4 ⊢ 𝐵 ⊆ (𝐴 ∪ 𝐵)
35		sswf 9853	. . . 4 ⊢ (((𝐴 ∪ 𝐵) ∈ ∪ (𝑅1 “ On) ∧ 𝐵 ⊆ (𝐴 ∪ 𝐵)) → 𝐵 ∈ ∪ (𝑅1 “ On))
36	34, 35	mpan2 704	. . 3 ⊢ ((𝐴 ∪ 𝐵) ∈ ∪ (𝑅1 “ On) → 𝐵 ∈ ∪ (𝑅1 “ On))
37	33, 36	jca 521	. 2 ⊢ ((𝐴 ∪ 𝐵) ∈ ∪ (𝑅1 “ On) → (𝐴 ∈ ∪ (𝑅1 “ On) ∧ 𝐵 ∈ ∪ (𝑅1 “ On)))
38	30, 37	impbii 212	1 ⊢ ((𝐴 ∈ ∪ (𝑅1 “ On) ∧ 𝐵 ∈ ∪ (𝑅1 “ On)) ↔ (𝐴 ∪ 𝐵) ∈ ∪ (𝑅1 “ On))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   = wceq 1570   ∈ wcel 2147   ⊆ wss 3900   ∪ cun 4152  𝒫 cpw 4560  ∪ cuni 4872  dom cdm 5658   “ cima 5661  Ord word 6387  Oncon0 6388  Lim wlim 6389  suc csuc 6390  ‘cfv 6566  𝑅₁cr1 9803  rankcrnk 9804

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-sep 5255  ax-nul 5266  ax-pow 5334  ax-pr 5398  ax-un 7783

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-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-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-ov 7454  df-om 7912  df-2nd 8036  df-frecs 8337  df-wrecs 8368  df-recs 8417  df-rdg 8456  df-r1 9805  df-rank 9806

This theorem is used by:  prwf  9856  rankunb  9901  xpwf  46218