Theorem r1tr 9669

Description: The cumulative hierarchy of sets is transitive. Lemma 7T of [Enderton] p. 202. (Contributed by NM, 8-Sep-2003.) (Revised by Mario Carneiro, 16-Nov-2014.)

Assertion

Ref	Expression
r1tr	⊢ Tr (𝑅1‘𝐴)

Proof of Theorem r1tr

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

Step	Hyp	Ref	Expression
1		r1funlim 9659	. . . . . 6 ⊢ (Fun 𝑅1 ∧ Lim dom 𝑅1)
2	1	simpri 485	. . . . 5 ⊢ Lim dom 𝑅1
3		limord 6367	. . . . 5 ⊢ (Lim dom 𝑅1 → Ord dom 𝑅1)
4		ordsson 7716	. . . . 5 ⊢ (Ord dom 𝑅1 → dom 𝑅1 ⊆ On)
5	2, 3, 4	mp2b 10	. . . 4 ⊢ dom 𝑅1 ⊆ On
6	5	sseli 3925	. . 3 ⊢ (𝐴 ∈ dom 𝑅1 → 𝐴 ∈ On)
7		fveq2 6822	. . . . . 6 ⊢ (𝑥 = ∅ → (𝑅1‘𝑥) = (𝑅1‘∅))
8		r10 9661	. . . . . 6 ⊢ (𝑅1‘∅) = ∅
9	7, 8	eqtrdi 2782	. . . . 5 ⊢ (𝑥 = ∅ → (𝑅1‘𝑥) = ∅)
10		treq 5203	. . . . 5 ⊢ ((𝑅1‘𝑥) = ∅ → (Tr (𝑅1‘𝑥) ↔ Tr ∅))
11	9, 10	syl 17	. . . 4 ⊢ (𝑥 = ∅ → (Tr (𝑅1‘𝑥) ↔ Tr ∅))
12		fveq2 6822	. . . . 5 ⊢ (𝑥 = 𝑦 → (𝑅1‘𝑥) = (𝑅1‘𝑦))
13		treq 5203	. . . . 5 ⊢ ((𝑅1‘𝑥) = (𝑅1‘𝑦) → (Tr (𝑅1‘𝑥) ↔ Tr (𝑅1‘𝑦)))
14	12, 13	syl 17	. . . 4 ⊢ (𝑥 = 𝑦 → (Tr (𝑅1‘𝑥) ↔ Tr (𝑅1‘𝑦)))
15		fveq2 6822	. . . . 5 ⊢ (𝑥 = suc 𝑦 → (𝑅1‘𝑥) = (𝑅1‘suc 𝑦))
16		treq 5203	. . . . 5 ⊢ ((𝑅1‘𝑥) = (𝑅1‘suc 𝑦) → (Tr (𝑅1‘𝑥) ↔ Tr (𝑅1‘suc 𝑦)))
17	15, 16	syl 17	. . . 4 ⊢ (𝑥 = suc 𝑦 → (Tr (𝑅1‘𝑥) ↔ Tr (𝑅1‘suc 𝑦)))
18		fveq2 6822	. . . . 5 ⊢ (𝑥 = 𝐴 → (𝑅1‘𝑥) = (𝑅1‘𝐴))
19		treq 5203	. . . . 5 ⊢ ((𝑅1‘𝑥) = (𝑅1‘𝐴) → (Tr (𝑅1‘𝑥) ↔ Tr (𝑅1‘𝐴)))
20	18, 19	syl 17	. . . 4 ⊢ (𝑥 = 𝐴 → (Tr (𝑅1‘𝑥) ↔ Tr (𝑅1‘𝐴)))
21		tr0 5208	. . . 4 ⊢ Tr ∅
22		limsuc 7779	. . . . . . . 8 ⊢ (Lim dom 𝑅1 → (𝑦 ∈ dom 𝑅1 ↔ suc 𝑦 ∈ dom 𝑅1))
23	2, 22	ax-mp 5	. . . . . . 7 ⊢ (𝑦 ∈ dom 𝑅1 ↔ suc 𝑦 ∈ dom 𝑅1)
24		simpr 484	. . . . . . . . 9 ⊢ ((𝑦 ∈ On ∧ Tr (𝑅1‘𝑦)) → Tr (𝑅1‘𝑦))
25		pwtr 5391	. . . . . . . . 9 ⊢ (Tr (𝑅1‘𝑦) ↔ Tr 𝒫 (𝑅1‘𝑦))
26	24, 25	sylib 218	. . . . . . . 8 ⊢ ((𝑦 ∈ On ∧ Tr (𝑅1‘𝑦)) → Tr 𝒫 (𝑅1‘𝑦))
27		r1sucg 9662	. . . . . . . . 9 ⊢ (𝑦 ∈ dom 𝑅1 → (𝑅1‘suc 𝑦) = 𝒫 (𝑅1‘𝑦))
28		treq 5203	. . . . . . . . 9 ⊢ ((𝑅1‘suc 𝑦) = 𝒫 (𝑅1‘𝑦) → (Tr (𝑅1‘suc 𝑦) ↔ Tr 𝒫 (𝑅1‘𝑦)))
29	27, 28	syl 17	. . . . . . . 8 ⊢ (𝑦 ∈ dom 𝑅1 → (Tr (𝑅1‘suc 𝑦) ↔ Tr 𝒫 (𝑅1‘𝑦)))
30	26, 29	syl5ibrcom 247	. . . . . . 7 ⊢ ((𝑦 ∈ On ∧ Tr (𝑅1‘𝑦)) → (𝑦 ∈ dom 𝑅1 → Tr (𝑅1‘suc 𝑦)))
31	23, 30	biimtrrid 243	. . . . . 6 ⊢ ((𝑦 ∈ On ∧ Tr (𝑅1‘𝑦)) → (suc 𝑦 ∈ dom 𝑅1 → Tr (𝑅1‘suc 𝑦)))
32		ndmfv 6854	. . . . . . . 8 ⊢ (¬ suc 𝑦 ∈ dom 𝑅1 → (𝑅1‘suc 𝑦) = ∅)
33		treq 5203	. . . . . . . 8 ⊢ ((𝑅1‘suc 𝑦) = ∅ → (Tr (𝑅1‘suc 𝑦) ↔ Tr ∅))
34	32, 33	syl 17	. . . . . . 7 ⊢ (¬ suc 𝑦 ∈ dom 𝑅1 → (Tr (𝑅1‘suc 𝑦) ↔ Tr ∅))
35	21, 34	mpbiri 258	. . . . . 6 ⊢ (¬ suc 𝑦 ∈ dom 𝑅1 → Tr (𝑅1‘suc 𝑦))
36	31, 35	pm2.61d1 180	. . . . 5 ⊢ ((𝑦 ∈ On ∧ Tr (𝑅1‘𝑦)) → Tr (𝑅1‘suc 𝑦))
37	36	ex 412	. . . 4 ⊢ (𝑦 ∈ On → (Tr (𝑅1‘𝑦) → Tr (𝑅1‘suc 𝑦)))
38		triun 5210	. . . . . . . 8 ⊢ (∀𝑦 ∈ 𝑥 Tr (𝑅1‘𝑦) → Tr ∪ 𝑦 ∈ 𝑥 (𝑅1‘𝑦))
39		r1limg 9664	. . . . . . . . . 10 ⊢ ((𝑥 ∈ dom 𝑅1 ∧ Lim 𝑥) → (𝑅1‘𝑥) = ∪ 𝑦 ∈ 𝑥 (𝑅1‘𝑦))
40	39	ancoms 458	. . . . . . . . 9 ⊢ ((Lim 𝑥 ∧ 𝑥 ∈ dom 𝑅1) → (𝑅1‘𝑥) = ∪ 𝑦 ∈ 𝑥 (𝑅1‘𝑦))
41		treq 5203	. . . . . . . . 9 ⊢ ((𝑅1‘𝑥) = ∪ 𝑦 ∈ 𝑥 (𝑅1‘𝑦) → (Tr (𝑅1‘𝑥) ↔ Tr ∪ 𝑦 ∈ 𝑥 (𝑅1‘𝑦)))
42	40, 41	syl 17	. . . . . . . 8 ⊢ ((Lim 𝑥 ∧ 𝑥 ∈ dom 𝑅1) → (Tr (𝑅1‘𝑥) ↔ Tr ∪ 𝑦 ∈ 𝑥 (𝑅1‘𝑦)))
43	38, 42	imbitrrid 246	. . . . . . 7 ⊢ ((Lim 𝑥 ∧ 𝑥 ∈ dom 𝑅1) → (∀𝑦 ∈ 𝑥 Tr (𝑅1‘𝑦) → Tr (𝑅1‘𝑥)))
44	43	impancom 451	. . . . . 6 ⊢ ((Lim 𝑥 ∧ ∀𝑦 ∈ 𝑥 Tr (𝑅1‘𝑦)) → (𝑥 ∈ dom 𝑅1 → Tr (𝑅1‘𝑥)))
45		ndmfv 6854	. . . . . . . 8 ⊢ (¬ 𝑥 ∈ dom 𝑅1 → (𝑅1‘𝑥) = ∅)
46	45, 10	syl 17	. . . . . . 7 ⊢ (¬ 𝑥 ∈ dom 𝑅1 → (Tr (𝑅1‘𝑥) ↔ Tr ∅))
47	21, 46	mpbiri 258	. . . . . 6 ⊢ (¬ 𝑥 ∈ dom 𝑅1 → Tr (𝑅1‘𝑥))
48	44, 47	pm2.61d1 180	. . . . 5 ⊢ ((Lim 𝑥 ∧ ∀𝑦 ∈ 𝑥 Tr (𝑅1‘𝑦)) → Tr (𝑅1‘𝑥))
49	48	ex 412	. . . 4 ⊢ (Lim 𝑥 → (∀𝑦 ∈ 𝑥 Tr (𝑅1‘𝑦) → Tr (𝑅1‘𝑥)))
50	11, 14, 17, 20, 21, 37, 49	tfinds 7790	. . 3 ⊢ (𝐴 ∈ On → Tr (𝑅1‘𝐴))
51	6, 50	syl 17	. 2 ⊢ (𝐴 ∈ dom 𝑅1 → Tr (𝑅1‘𝐴))
52		ndmfv 6854	. . . 4 ⊢ (¬ 𝐴 ∈ dom 𝑅1 → (𝑅1‘𝐴) = ∅)
53		treq 5203	. . . 4 ⊢ ((𝑅1‘𝐴) = ∅ → (Tr (𝑅1‘𝐴) ↔ Tr ∅))
54	52, 53	syl 17	. . 3 ⊢ (¬ 𝐴 ∈ dom 𝑅1 → (Tr (𝑅1‘𝐴) ↔ Tr ∅))
55	21, 54	mpbiri 258	. 2 ⊢ (¬ 𝐴 ∈ dom 𝑅1 → Tr (𝑅1‘𝐴))
56	51, 55	pm2.61i 182	1 ⊢ Tr (𝑅1‘𝐴)

Syntax hints:  ¬ wn 3   ↔ wb 206   ∧ wa 395   = wceq 1541   ∈ wcel 2111  ∀wral 3047   ⊆ wss 3897  ∅c0 4280  𝒫 cpw 4547  ∪ ciun 4939  Tr wtr 5196  dom cdm 5614  Ord word 6305  Oncon0 6306  Lim wlim 6307  suc csuc 6308  Fun wfun 6475  ‘cfv 6481  𝑅₁cr1 9655

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2113  ax-9 2121  ax-10 2144  ax-11 2160  ax-12 2180  ax-ext 2703  ax-sep 5232  ax-nul 5242  ax-pow 5301  ax-pr 5368  ax-un 7668

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2535  df-eu 2564  df-clab 2710  df-cleq 2723  df-clel 2806  df-nfc 2881  df-ne 2929  df-ral 3048  df-rex 3057  df-reu 3347  df-rab 3396  df-v 3438  df-sbc 3737  df-csb 3846  df-dif 3900  df-un 3902  df-in 3904  df-ss 3914  df-pss 3917  df-nul 4281  df-if 4473  df-pw 4549  df-sn 4574  df-pr 4576  df-op 4580  df-uni 4857  df-iun 4941  df-br 5090  df-opab 5152  df-mpt 5171  df-tr 5197  df-id 5509  df-eprel 5514  df-po 5522  df-so 5523  df-fr 5567  df-we 5569  df-xp 5620  df-rel 5621  df-cnv 5622  df-co 5623  df-dm 5624  df-rn 5625  df-res 5626  df-ima 5627  df-pred 6248  df-ord 6309  df-on 6310  df-lim 6311  df-suc 6312  df-iota 6437  df-fun 6483  df-fn 6484  df-f 6485  df-f1 6486  df-fo 6487  df-f1o 6488  df-fv 6489  df-ov 7349  df-om 7797  df-2nd 7922  df-frecs 8211  df-wrecs 8242  df-recs 8291  df-rdg 8329  df-r1 9657

This theorem is referenced by:  r1tr2  9670  r1ordg  9671  r1ord3g  9672  r1ord2  9674  r1sssuc  9676  r1pwss  9677  r1val1  9679  rankwflemb  9686  r1elwf  9689  r1elssi  9698  uniwf  9712  tcrank  9777  ackbij2lem3  10131  r1limwun  10627  tskr1om2  10659  inagrud  44388