Theorem trcl 9733

Description: For any set 𝐴, show the properties of its transitive closure 𝐶. Similar to Theorem 9.1 of [TakeutiZaring] p. 73 except that we show an explicit expression for the transitive closure rather than just its existence. See tz9.1 9734 for an abbreviated version showing existence. (Contributed by NM, 14-Sep-2003.) (Revised by Mario Carneiro, 11-Sep-2015.)

Hypotheses

Ref	Expression
trcl.1	⊢ 𝐴 ∈ V
trcl.2	⊢ 𝐹 = (rec((𝑧 ∈ V ↦ (𝑧 ∪ ∪ 𝑧)), 𝐴) ↾ ω)
trcl.3	⊢ 𝐶 = ∪ 𝑦 ∈ ω (𝐹‘𝑦)

Assertion

Ref	Expression
trcl	⊢ (𝐴 ⊆ 𝐶 ∧ Tr 𝐶 ∧ ∀𝑥((𝐴 ⊆ 𝑥 ∧ Tr 𝑥) → 𝐶 ⊆ 𝑥))

Distinct variable groups:   𝑥,𝑧   𝑥,𝑦,𝐴   𝑥,𝐹,𝑦

Allowed substitution hints:   𝐴(𝑧)   𝐶(𝑥, 𝑦, 𝑧)   𝐹(𝑧)

Proof of Theorem trcl

Dummy variables 𝑣 𝑢 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		peano1 7901	. . . . 5 ⊢ ∅ ∈ ω
2		trcl.2	. . . . . . . 8 ⊢ 𝐹 = (rec((𝑧 ∈ V ↦ (𝑧 ∪ ∪ 𝑧)), 𝐴) ↾ ω)
3	2	fveq1i 6887	. . . . . . 7 ⊢ (𝐹‘∅) = ((rec((𝑧 ∈ V ↦ (𝑧 ∪ ∪ 𝑧)), 𝐴) ↾ ω)‘∅)
4		trcl.1	. . . . . . . 8 ⊢ 𝐴 ∈ V
5		fr0g 8448	. . . . . . . 8 ⊢ (𝐴 ∈ V → ((rec((𝑧 ∈ V ↦ (𝑧 ∪ ∪ 𝑧)), 𝐴) ↾ ω)‘∅) = 𝐴)
6	4, 5	ax-mp 5	. . . . . . 7 ⊢ ((rec((𝑧 ∈ V ↦ (𝑧 ∪ ∪ 𝑧)), 𝐴) ↾ ω)‘∅) = 𝐴
7	3, 6	eqtr2i 2784	. . . . . 6 ⊢ 𝐴 = (𝐹‘∅)
8	7	eqimssi 3968	. . . . 5 ⊢ 𝐴 ⊆ (𝐹‘∅)
9		fveq2 6886	. . . . . . 7 ⊢ (𝑦 = ∅ → (𝐹‘𝑦) = (𝐹‘∅))
10	9	sseq2d 3940	. . . . . 6 ⊢ (𝑦 = ∅ → (𝐴 ⊆ (𝐹‘𝑦) ↔ 𝐴 ⊆ (𝐹‘∅)))
11	10	rspcev 3576	. . . . 5 ⊢ ((∅ ∈ ω ∧ 𝐴 ⊆ (𝐹‘∅)) → ∃𝑦 ∈ ω 𝐴 ⊆ (𝐹‘𝑦))
12	1, 8, 11	mp2an 705	. . . 4 ⊢ ∃𝑦 ∈ ω 𝐴 ⊆ (𝐹‘𝑦)
13		ssiun 5004	. . . 4 ⊢ (∃𝑦 ∈ ω 𝐴 ⊆ (𝐹‘𝑦) → 𝐴 ⊆ ∪ 𝑦 ∈ ω (𝐹‘𝑦))
14	12, 13	ax-mp 5	. . 3 ⊢ 𝐴 ⊆ ∪ 𝑦 ∈ ω (𝐹‘𝑦)
15		trcl.3	. . 3 ⊢ 𝐶 = ∪ 𝑦 ∈ ω (𝐹‘𝑦)
16	14, 15	sseqtrri 3957	. 2 ⊢ 𝐴 ⊆ 𝐶
17		dftr2 5213	. . . 4 ⊢ (Tr ∪ 𝑦 ∈ ω (𝐹‘𝑦) ↔ ∀𝑣∀𝑢((𝑣 ∈ 𝑢 ∧ 𝑢 ∈ ∪ 𝑦 ∈ ω (𝐹‘𝑦)) → 𝑣 ∈ ∪ 𝑦 ∈ ω (𝐹‘𝑦)))
18		eliun 4954	. . . . . . . . 9 ⊢ (𝑢 ∈ ∪ 𝑦 ∈ ω (𝐹‘𝑦) ↔ ∃𝑦 ∈ ω 𝑢 ∈ (𝐹‘𝑦))
19	18	anbi2i 635	. . . . . . . 8 ⊢ ((𝑣 ∈ 𝑢 ∧ 𝑢 ∈ ∪ 𝑦 ∈ ω (𝐹‘𝑦)) ↔ (𝑣 ∈ 𝑢 ∧ ∃𝑦 ∈ ω 𝑢 ∈ (𝐹‘𝑦)))
20		r19.42v 3194	. . . . . . . 8 ⊢ (∃𝑦 ∈ ω (𝑣 ∈ 𝑢 ∧ 𝑢 ∈ (𝐹‘𝑦)) ↔ (𝑣 ∈ 𝑢 ∧ ∃𝑦 ∈ ω 𝑢 ∈ (𝐹‘𝑦)))
21	19, 20	bitr4i 281	. . . . . . 7 ⊢ ((𝑣 ∈ 𝑢 ∧ 𝑢 ∈ ∪ 𝑦 ∈ ω (𝐹‘𝑦)) ↔ ∃𝑦 ∈ ω (𝑣 ∈ 𝑢 ∧ 𝑢 ∈ (𝐹‘𝑦)))
22		elunii 4871	. . . . . . . . 9 ⊢ ((𝑣 ∈ 𝑢 ∧ 𝑢 ∈ (𝐹‘𝑦)) → 𝑣 ∈ ∪ (𝐹‘𝑦))
23		ssun2 4177	. . . . . . . . . . 11 ⊢ ∪ (𝐹‘𝑦) ⊆ ((𝐹‘𝑦) ∪ ∪ (𝐹‘𝑦))
24		fvex 6899	. . . . . . . . . . . . 13 ⊢ (𝐹‘𝑦) ∈ V
25	24	uniex 7759	. . . . . . . . . . . . 13 ⊢ ∪ (𝐹‘𝑦) ∈ V
26	24, 25	unex 7762	. . . . . . . . . . . 12 ⊢ ((𝐹‘𝑦) ∪ ∪ (𝐹‘𝑦)) ∈ V
27		id 23	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝑧 → 𝑥 = 𝑧)
28		unieq 4877	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝑧 → ∪ 𝑥 = ∪ 𝑧)
29	27, 28	uneq12d 4168	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑧 → (𝑥 ∪ ∪ 𝑥) = (𝑧 ∪ ∪ 𝑧))
30		id 23	. . . . . . . . . . . . . 14 ⊢ (𝑥 = (𝐹‘𝑦) → 𝑥 = (𝐹‘𝑦))
31		unieq 4877	. . . . . . . . . . . . . 14 ⊢ (𝑥 = (𝐹‘𝑦) → ∪ 𝑥 = ∪ (𝐹‘𝑦))
32	30, 31	uneq12d 4168	. . . . . . . . . . . . 13 ⊢ (𝑥 = (𝐹‘𝑦) → (𝑥 ∪ ∪ 𝑥) = ((𝐹‘𝑦) ∪ ∪ (𝐹‘𝑦)))
33	2, 29, 32	frsucmpt2 8452	. . . . . . . . . . . 12 ⊢ ((𝑦 ∈ ω ∧ ((𝐹‘𝑦) ∪ ∪ (𝐹‘𝑦)) ∈ V) → (𝐹‘suc 𝑦) = ((𝐹‘𝑦) ∪ ∪ (𝐹‘𝑦)))
34	26, 33	mpan2 704	. . . . . . . . . . 11 ⊢ (𝑦 ∈ ω → (𝐹‘suc 𝑦) = ((𝐹‘𝑦) ∪ ∪ (𝐹‘𝑦)))
35	23, 34	sseqtrrid 3951	. . . . . . . . . 10 ⊢ (𝑦 ∈ ω → ∪ (𝐹‘𝑦) ⊆ (𝐹‘suc 𝑦))
36	35	sseld 3907	. . . . . . . . 9 ⊢ (𝑦 ∈ ω → (𝑣 ∈ ∪ (𝐹‘𝑦) → 𝑣 ∈ (𝐹‘suc 𝑦)))
37	22, 36	syl5 35	. . . . . . . 8 ⊢ (𝑦 ∈ ω → ((𝑣 ∈ 𝑢 ∧ 𝑢 ∈ (𝐹‘𝑦)) → 𝑣 ∈ (𝐹‘suc 𝑦)))
38	37	reximia 3097	. . . . . . 7 ⊢ (∃𝑦 ∈ ω (𝑣 ∈ 𝑢 ∧ 𝑢 ∈ (𝐹‘𝑦)) → ∃𝑦 ∈ ω 𝑣 ∈ (𝐹‘suc 𝑦))
39	21, 38	sylbi 220	. . . . . 6 ⊢ ((𝑣 ∈ 𝑢 ∧ 𝑢 ∈ ∪ 𝑦 ∈ ω (𝐹‘𝑦)) → ∃𝑦 ∈ ω 𝑣 ∈ (𝐹‘suc 𝑦))
40		peano2 7902	. . . . . . . . . 10 ⊢ (𝑦 ∈ ω → suc 𝑦 ∈ ω)
41		fveq2 6886	. . . . . . . . . . . . 13 ⊢ (𝑢 = suc 𝑦 → (𝐹‘𝑢) = (𝐹‘suc 𝑦))
42	41	eleq2d 2846	. . . . . . . . . . . 12 ⊢ (𝑢 = suc 𝑦 → (𝑣 ∈ (𝐹‘𝑢) ↔ 𝑣 ∈ (𝐹‘suc 𝑦)))
43	42	rspcev 3576	. . . . . . . . . . 11 ⊢ ((suc 𝑦 ∈ ω ∧ 𝑣 ∈ (𝐹‘suc 𝑦)) → ∃𝑢 ∈ ω 𝑣 ∈ (𝐹‘𝑢))
44	43	ex 418	. . . . . . . . . 10 ⊢ (suc 𝑦 ∈ ω → (𝑣 ∈ (𝐹‘suc 𝑦) → ∃𝑢 ∈ ω 𝑣 ∈ (𝐹‘𝑢)))
45	40, 44	syl 18	. . . . . . . . 9 ⊢ (𝑦 ∈ ω → (𝑣 ∈ (𝐹‘suc 𝑦) → ∃𝑢 ∈ ω 𝑣 ∈ (𝐹‘𝑢)))
46	45	rexlimiv 3156	. . . . . . . 8 ⊢ (∃𝑦 ∈ ω 𝑣 ∈ (𝐹‘suc 𝑦) → ∃𝑢 ∈ ω 𝑣 ∈ (𝐹‘𝑢))
47		fveq2 6886	. . . . . . . . . 10 ⊢ (𝑦 = 𝑢 → (𝐹‘𝑦) = (𝐹‘𝑢))
48	47	eleq2d 2846	. . . . . . . . 9 ⊢ (𝑦 = 𝑢 → (𝑣 ∈ (𝐹‘𝑦) ↔ 𝑣 ∈ (𝐹‘𝑢)))
49	48	cbvrexvw 3241	. . . . . . . 8 ⊢ (∃𝑦 ∈ ω 𝑣 ∈ (𝐹‘𝑦) ↔ ∃𝑢 ∈ ω 𝑣 ∈ (𝐹‘𝑢))
50	46, 49	sylibr 237	. . . . . . 7 ⊢ (∃𝑦 ∈ ω 𝑣 ∈ (𝐹‘suc 𝑦) → ∃𝑦 ∈ ω 𝑣 ∈ (𝐹‘𝑦))
51		eliun 4954	. . . . . . 7 ⊢ (𝑣 ∈ ∪ 𝑦 ∈ ω (𝐹‘𝑦) ↔ ∃𝑦 ∈ ω 𝑣 ∈ (𝐹‘𝑦))
52	50, 51	sylibr 237	. . . . . 6 ⊢ (∃𝑦 ∈ ω 𝑣 ∈ (𝐹‘suc 𝑦) → 𝑣 ∈ ∪ 𝑦 ∈ ω (𝐹‘𝑦))
53	39, 52	syl 18	. . . . 5 ⊢ ((𝑣 ∈ 𝑢 ∧ 𝑢 ∈ ∪ 𝑦 ∈ ω (𝐹‘𝑦)) → 𝑣 ∈ ∪ 𝑦 ∈ ω (𝐹‘𝑦))
54	53	ax-gen 1827	. . . 4 ⊢ ∀𝑢((𝑣 ∈ 𝑢 ∧ 𝑢 ∈ ∪ 𝑦 ∈ ω (𝐹‘𝑦)) → 𝑣 ∈ ∪ 𝑦 ∈ ω (𝐹‘𝑦))
55	17, 54	mpgbir 1831	. . 3 ⊢ Tr ∪ 𝑦 ∈ ω (𝐹‘𝑦)
56		treq 5218	. . . 4 ⊢ (𝐶 = ∪ 𝑦 ∈ ω (𝐹‘𝑦) → (Tr 𝐶 ↔ Tr ∪ 𝑦 ∈ ω (𝐹‘𝑦)))
57	15, 56	ax-mp 5	. . 3 ⊢ (Tr 𝐶 ↔ Tr ∪ 𝑦 ∈ ω (𝐹‘𝑦))
58	55, 57	mpbir 234	. 2 ⊢ Tr 𝐶
59		fveq2 6886	. . . . . . . 8 ⊢ (𝑣 = ∅ → (𝐹‘𝑣) = (𝐹‘∅))
60	59	sseq1d 3939	. . . . . . 7 ⊢ (𝑣 = ∅ → ((𝐹‘𝑣) ⊆ 𝑥 ↔ (𝐹‘∅) ⊆ 𝑥))
61		fveq2 6886	. . . . . . . 8 ⊢ (𝑣 = 𝑦 → (𝐹‘𝑣) = (𝐹‘𝑦))
62	61	sseq1d 3939	. . . . . . 7 ⊢ (𝑣 = 𝑦 → ((𝐹‘𝑣) ⊆ 𝑥 ↔ (𝐹‘𝑦) ⊆ 𝑥))
63		fveq2 6886	. . . . . . . 8 ⊢ (𝑣 = suc 𝑦 → (𝐹‘𝑣) = (𝐹‘suc 𝑦))
64	63	sseq1d 3939	. . . . . . 7 ⊢ (𝑣 = suc 𝑦 → ((𝐹‘𝑣) ⊆ 𝑥 ↔ (𝐹‘suc 𝑦) ⊆ 𝑥))
65	3, 6	eqtri 2783	. . . . . . . . 9 ⊢ (𝐹‘∅) = 𝐴
66	65	sseq1i 3936	. . . . . . . 8 ⊢ ((𝐹‘∅) ⊆ 𝑥 ↔ 𝐴 ⊆ 𝑥)
67	66	biranri 511	. . . . . . 7 ⊢ ((𝐴 ⊆ 𝑥 ∧ Tr 𝑥) → (𝐹‘∅) ⊆ 𝑥)
68		uniss 4874	. . . . . . . . . . . . 13 ⊢ ((𝐹‘𝑦) ⊆ 𝑥 → ∪ (𝐹‘𝑦) ⊆ ∪ 𝑥)
69		df-tr 5212	. . . . . . . . . . . . . 14 ⊢ (Tr 𝑥 ↔ ∪ 𝑥 ⊆ 𝑥)
70		sstr2 3915	. . . . . . . . . . . . . 14 ⊢ (∪ (𝐹‘𝑦) ⊆ ∪ 𝑥 → (∪ 𝑥 ⊆ 𝑥 → ∪ (𝐹‘𝑦) ⊆ 𝑥))
71	69, 70	biimtrid 245	. . . . . . . . . . . . 13 ⊢ (∪ (𝐹‘𝑦) ⊆ ∪ 𝑥 → (Tr 𝑥 → ∪ (𝐹‘𝑦) ⊆ 𝑥))
72	68, 71	syl 18	. . . . . . . . . . . 12 ⊢ ((𝐹‘𝑦) ⊆ 𝑥 → (Tr 𝑥 → ∪ (𝐹‘𝑦) ⊆ 𝑥))
73	72	anc2li 565	. . . . . . . . . . 11 ⊢ ((𝐹‘𝑦) ⊆ 𝑥 → (Tr 𝑥 → ((𝐹‘𝑦) ⊆ 𝑥 ∧ ∪ (𝐹‘𝑦) ⊆ 𝑥)))
74		unss 4188	. . . . . . . . . . 11 ⊢ (((𝐹‘𝑦) ⊆ 𝑥 ∧ ∪ (𝐹‘𝑦) ⊆ 𝑥) ↔ ((𝐹‘𝑦) ∪ ∪ (𝐹‘𝑦)) ⊆ 𝑥)
75	73, 74	imbitrdi 254	. . . . . . . . . 10 ⊢ ((𝐹‘𝑦) ⊆ 𝑥 → (Tr 𝑥 → ((𝐹‘𝑦) ∪ ∪ (𝐹‘𝑦)) ⊆ 𝑥))
76	34	sseq1d 3939	. . . . . . . . . . 11 ⊢ (𝑦 ∈ ω → ((𝐹‘suc 𝑦) ⊆ 𝑥 ↔ ((𝐹‘𝑦) ∪ ∪ (𝐹‘𝑦)) ⊆ 𝑥))
77	76	biimprd 251	. . . . . . . . . 10 ⊢ (𝑦 ∈ ω → (((𝐹‘𝑦) ∪ ∪ (𝐹‘𝑦)) ⊆ 𝑥 → (𝐹‘suc 𝑦) ⊆ 𝑥))
78	75, 77	syl9r 79	. . . . . . . . 9 ⊢ (𝑦 ∈ ω → ((𝐹‘𝑦) ⊆ 𝑥 → (Tr 𝑥 → (𝐹‘suc 𝑦) ⊆ 𝑥)))
79	78	com23 87	. . . . . . . 8 ⊢ (𝑦 ∈ ω → (Tr 𝑥 → ((𝐹‘𝑦) ⊆ 𝑥 → (𝐹‘suc 𝑦) ⊆ 𝑥)))
80	79	adantld 496	. . . . . . 7 ⊢ (𝑦 ∈ ω → ((𝐴 ⊆ 𝑥 ∧ Tr 𝑥) → ((𝐹‘𝑦) ⊆ 𝑥 → (𝐹‘suc 𝑦) ⊆ 𝑥)))
81	60, 62, 64, 67, 80	finds2 7911	. . . . . 6 ⊢ (𝑣 ∈ ω → ((𝐴 ⊆ 𝑥 ∧ Tr 𝑥) → (𝐹‘𝑣) ⊆ 𝑥))
82	81	com12 33	. . . . 5 ⊢ ((𝐴 ⊆ 𝑥 ∧ Tr 𝑥) → (𝑣 ∈ ω → (𝐹‘𝑣) ⊆ 𝑥))
83	82	ralrimiv 3153	. . . 4 ⊢ ((𝐴 ⊆ 𝑥 ∧ Tr 𝑥) → ∀𝑣 ∈ ω (𝐹‘𝑣) ⊆ 𝑥)
84		fveq2 6886	. . . . . . . 8 ⊢ (𝑦 = 𝑣 → (𝐹‘𝑦) = (𝐹‘𝑣))
85	84	cbviunv 4996	. . . . . . 7 ⊢ ∪ 𝑦 ∈ ω (𝐹‘𝑦) = ∪ 𝑣 ∈ ω (𝐹‘𝑣)
86	15, 85	eqtri 2783	. . . . . 6 ⊢ 𝐶 = ∪ 𝑣 ∈ ω (𝐹‘𝑣)
87	86	sseq1i 3936	. . . . 5 ⊢ (𝐶 ⊆ 𝑥 ↔ ∪ 𝑣 ∈ ω (𝐹‘𝑣) ⊆ 𝑥)
88		iunss 5002	. . . . 5 ⊢ (∪ 𝑣 ∈ ω (𝐹‘𝑣) ⊆ 𝑥 ↔ ∀𝑣 ∈ ω (𝐹‘𝑣) ⊆ 𝑥)
89	87, 88	bitri 278	. . . 4 ⊢ (𝐶 ⊆ 𝑥 ↔ ∀𝑣 ∈ ω (𝐹‘𝑣) ⊆ 𝑥)
90	83, 89	sylibr 237	. . 3 ⊢ ((𝐴 ⊆ 𝑥 ∧ Tr 𝑥) → 𝐶 ⊆ 𝑥)
91	90	ax-gen 1827	. 2 ⊢ ∀𝑥((𝐴 ⊆ 𝑥 ∧ Tr 𝑥) → 𝐶 ⊆ 𝑥)
92	16, 58, 91	3pm3.2i 1358	1 ⊢ (𝐴 ⊆ 𝐶 ∧ Tr 𝐶 ∧ ∀𝑥((𝐴 ⊆ 𝑥 ∧ Tr 𝑥) → 𝐶 ⊆ 𝑥))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   ∧ w3a 1103  ∀wal 1567   = wceq 1569   ∈ wcel 2144  ∀wral 3076  ∃wrex 3086  Vcvv 3450   ⊆ wss 3895   ∪ cun 4149  ∅c0 4278  ∪ cuni 4866  ∪ ciun 4950   ↦ cmpt 5185  Tr wtr 5211   ↾ cres 5652  suc csuc 6364  ‘cfv 6539  ωcom 7878  reccrdg 8421

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1827  ax-4 1841  ax-5 1942  ax-6 1999  ax-7 2040  ax-8 2146  ax-9 2154  ax-10 2177  ax-11 2193  ax-12 2212  ax-ext 2732  ax-sep 5248  ax-nul 5259  ax-pr 5390  ax-un 7752

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1572  df-fal 1582  df-ex 1812  df-nf 1816  df-sb 2099  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-ral 3077  df-rex 3087  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3739  df-csb 3847  df-ss 3896  df-pss 4014  df-dif 4047  df-in 4091  df-un 4151  df-nul 4279  df-if 4482  df-pw 4558  df-sn 4585  df-pr 4587  df-op 4835  df-uni 4867  df-iun 4952  df-br 5103  df-opab 5167  df-mpt 5186  df-tr 5212  df-id 5545  df-eprel 5550  df-po 5558  df-so 5559  df-fr 5603  df-we 5605  df-xp 5656  df-rel 5657  df-cnv 5658  df-co 5659  df-dm 5660  df-rn 5661  df-res 5662  df-ima 5663  df-pred 6304  df-ord 6365  df-on 6366  df-lim 6367  df-suc 6368  df-iota 6494  df-fun 6541  df-fn 6542  df-f 6543  df-f1 6544  df-fo 6545  df-f1o 6546  df-fv 6547  df-ov 7424  df-om 7879  df-2nd 8003  df-frecs 8303  df-wrecs 8334  df-recs 8383  df-rdg 8422

This theorem is used by:  tz9.1  9734  tz9.1c  9735