trcl - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > trcl		Structured version Visualization version GIF version

Theorem trcl 9486

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 9487 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 7735	. . . . 5 ⊢ ∅ ∈ ω
2		trcl.2	. . . . . . . 8 ⊢ 𝐹 = (rec((𝑧 ∈ V ↦ (𝑧 ∪ ∪ 𝑧)), 𝐴) ↾ ω)
3	2	fveq1i 6775	. . . . . . 7 ⊢ (𝐹‘∅) = ((rec((𝑧 ∈ V ↦ (𝑧 ∪ ∪ 𝑧)), 𝐴) ↾ ω)‘∅)
4		trcl.1	. . . . . . . 8 ⊢ 𝐴 ∈ V
5		fr0g 8267	. . . . . . . 8 ⊢ (𝐴 ∈ V → ((rec((𝑧 ∈ V ↦ (𝑧 ∪ ∪ 𝑧)), 𝐴) ↾ ω)‘∅) = 𝐴)
6	4, 5	ax-mp 5	. . . . . . 7 ⊢ ((rec((𝑧 ∈ V ↦ (𝑧 ∪ ∪ 𝑧)), 𝐴) ↾ ω)‘∅) = 𝐴
7	3, 6	eqtr2i 2767	. . . . . 6 ⊢ 𝐴 = (𝐹‘∅)
8	7	eqimssi 3979	. . . . 5 ⊢ 𝐴 ⊆ (𝐹‘∅)
9		fveq2 6774	. . . . . . 7 ⊢ (𝑦 = ∅ → (𝐹‘𝑦) = (𝐹‘∅))
10	9	sseq2d 3953	. . . . . 6 ⊢ (𝑦 = ∅ → (𝐴 ⊆ (𝐹‘𝑦) ↔ 𝐴 ⊆ (𝐹‘∅)))
11	10	rspcev 3561	. . . . 5 ⊢ ((∅ ∈ ω ∧ 𝐴 ⊆ (𝐹‘∅)) → ∃𝑦 ∈ ω 𝐴 ⊆ (𝐹‘𝑦))
12	1, 8, 11	mp2an 689	. . . 4 ⊢ ∃𝑦 ∈ ω 𝐴 ⊆ (𝐹‘𝑦)
13		ssiun 4976	. . . 4 ⊢ (∃𝑦 ∈ ω 𝐴 ⊆ (𝐹‘𝑦) → 𝐴 ⊆ ∪ 𝑦 ∈ ω (𝐹‘𝑦))
14	12, 13	ax-mp 5	. . 3 ⊢ 𝐴 ⊆ ∪ 𝑦 ∈ ω (𝐹‘𝑦)
15		trcl.3	. . 3 ⊢ 𝐶 = ∪ 𝑦 ∈ ω (𝐹‘𝑦)
16	14, 15	sseqtrri 3958	. 2 ⊢ 𝐴 ⊆ 𝐶
17		dftr2 5193	. . . 4 ⊢ (Tr ∪ 𝑦 ∈ ω (𝐹‘𝑦) ↔ ∀𝑣∀𝑢((𝑣 ∈ 𝑢 ∧ 𝑢 ∈ ∪ 𝑦 ∈ ω (𝐹‘𝑦)) → 𝑣 ∈ ∪ 𝑦 ∈ ω (𝐹‘𝑦)))
18		eliun 4928	. . . . . . . . 9 ⊢ (𝑢 ∈ ∪ 𝑦 ∈ ω (𝐹‘𝑦) ↔ ∃𝑦 ∈ ω 𝑢 ∈ (𝐹‘𝑦))
19	18	anbi2i 623	. . . . . . . 8 ⊢ ((𝑣 ∈ 𝑢 ∧ 𝑢 ∈ ∪ 𝑦 ∈ ω (𝐹‘𝑦)) ↔ (𝑣 ∈ 𝑢 ∧ ∃𝑦 ∈ ω 𝑢 ∈ (𝐹‘𝑦)))
20		r19.42v 3279	. . . . . . . 8 ⊢ (∃𝑦 ∈ ω (𝑣 ∈ 𝑢 ∧ 𝑢 ∈ (𝐹‘𝑦)) ↔ (𝑣 ∈ 𝑢 ∧ ∃𝑦 ∈ ω 𝑢 ∈ (𝐹‘𝑦)))
21	19, 20	bitr4i 277	. . . . . . 7 ⊢ ((𝑣 ∈ 𝑢 ∧ 𝑢 ∈ ∪ 𝑦 ∈ ω (𝐹‘𝑦)) ↔ ∃𝑦 ∈ ω (𝑣 ∈ 𝑢 ∧ 𝑢 ∈ (𝐹‘𝑦)))
22		elunii 4844	. . . . . . . . 9 ⊢ ((𝑣 ∈ 𝑢 ∧ 𝑢 ∈ (𝐹‘𝑦)) → 𝑣 ∈ ∪ (𝐹‘𝑦))
23		ssun2 4107	. . . . . . . . . . 11 ⊢ ∪ (𝐹‘𝑦) ⊆ ((𝐹‘𝑦) ∪ ∪ (𝐹‘𝑦))
24		fvex 6787	. . . . . . . . . . . . 13 ⊢ (𝐹‘𝑦) ∈ V
25	24	uniex 7594	. . . . . . . . . . . . 13 ⊢ ∪ (𝐹‘𝑦) ∈ V
26	24, 25	unex 7596	. . . . . . . . . . . 12 ⊢ ((𝐹‘𝑦) ∪ ∪ (𝐹‘𝑦)) ∈ V
27		id 22	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝑧 → 𝑥 = 𝑧)
28		unieq 4850	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝑧 → ∪ 𝑥 = ∪ 𝑧)
29	27, 28	uneq12d 4098	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑧 → (𝑥 ∪ ∪ 𝑥) = (𝑧 ∪ ∪ 𝑧))
30		id 22	. . . . . . . . . . . . . 14 ⊢ (𝑥 = (𝐹‘𝑦) → 𝑥 = (𝐹‘𝑦))
31		unieq 4850	. . . . . . . . . . . . . 14 ⊢ (𝑥 = (𝐹‘𝑦) → ∪ 𝑥 = ∪ (𝐹‘𝑦))
32	30, 31	uneq12d 4098	. . . . . . . . . . . . 13 ⊢ (𝑥 = (𝐹‘𝑦) → (𝑥 ∪ ∪ 𝑥) = ((𝐹‘𝑦) ∪ ∪ (𝐹‘𝑦)))
33	2, 29, 32	frsucmpt2 8271	. . . . . . . . . . . 12 ⊢ ((𝑦 ∈ ω ∧ ((𝐹‘𝑦) ∪ ∪ (𝐹‘𝑦)) ∈ V) → (𝐹‘suc 𝑦) = ((𝐹‘𝑦) ∪ ∪ (𝐹‘𝑦)))
34	26, 33	mpan2 688	. . . . . . . . . . 11 ⊢ (𝑦 ∈ ω → (𝐹‘suc 𝑦) = ((𝐹‘𝑦) ∪ ∪ (𝐹‘𝑦)))
35	23, 34	sseqtrrid 3974	. . . . . . . . . 10 ⊢ (𝑦 ∈ ω → ∪ (𝐹‘𝑦) ⊆ (𝐹‘suc 𝑦))
36	35	sseld 3920	. . . . . . . . 9 ⊢ (𝑦 ∈ ω → (𝑣 ∈ ∪ (𝐹‘𝑦) → 𝑣 ∈ (𝐹‘suc 𝑦)))
37	22, 36	syl5 34	. . . . . . . 8 ⊢ (𝑦 ∈ ω → ((𝑣 ∈ 𝑢 ∧ 𝑢 ∈ (𝐹‘𝑦)) → 𝑣 ∈ (𝐹‘suc 𝑦)))
38	37	reximia 3176	. . . . . . 7 ⊢ (∃𝑦 ∈ ω (𝑣 ∈ 𝑢 ∧ 𝑢 ∈ (𝐹‘𝑦)) → ∃𝑦 ∈ ω 𝑣 ∈ (𝐹‘suc 𝑦))
39	21, 38	sylbi 216	. . . . . 6 ⊢ ((𝑣 ∈ 𝑢 ∧ 𝑢 ∈ ∪ 𝑦 ∈ ω (𝐹‘𝑦)) → ∃𝑦 ∈ ω 𝑣 ∈ (𝐹‘suc 𝑦))
40		peano2 7737	. . . . . . . . . 10 ⊢ (𝑦 ∈ ω → suc 𝑦 ∈ ω)
41		fveq2 6774	. . . . . . . . . . . . 13 ⊢ (𝑢 = suc 𝑦 → (𝐹‘𝑢) = (𝐹‘suc 𝑦))
42	41	eleq2d 2824	. . . . . . . . . . . 12 ⊢ (𝑢 = suc 𝑦 → (𝑣 ∈ (𝐹‘𝑢) ↔ 𝑣 ∈ (𝐹‘suc 𝑦)))
43	42	rspcev 3561	. . . . . . . . . . 11 ⊢ ((suc 𝑦 ∈ ω ∧ 𝑣 ∈ (𝐹‘suc 𝑦)) → ∃𝑢 ∈ ω 𝑣 ∈ (𝐹‘𝑢))
44	43	ex 413	. . . . . . . . . 10 ⊢ (suc 𝑦 ∈ ω → (𝑣 ∈ (𝐹‘suc 𝑦) → ∃𝑢 ∈ ω 𝑣 ∈ (𝐹‘𝑢)))
45	40, 44	syl 17	. . . . . . . . 9 ⊢ (𝑦 ∈ ω → (𝑣 ∈ (𝐹‘suc 𝑦) → ∃𝑢 ∈ ω 𝑣 ∈ (𝐹‘𝑢)))
46	45	rexlimiv 3209	. . . . . . . 8 ⊢ (∃𝑦 ∈ ω 𝑣 ∈ (𝐹‘suc 𝑦) → ∃𝑢 ∈ ω 𝑣 ∈ (𝐹‘𝑢))
47		fveq2 6774	. . . . . . . . . 10 ⊢ (𝑦 = 𝑢 → (𝐹‘𝑦) = (𝐹‘𝑢))
48	47	eleq2d 2824	. . . . . . . . 9 ⊢ (𝑦 = 𝑢 → (𝑣 ∈ (𝐹‘𝑦) ↔ 𝑣 ∈ (𝐹‘𝑢)))
49	48	cbvrexvw 3384	. . . . . . . 8 ⊢ (∃𝑦 ∈ ω 𝑣 ∈ (𝐹‘𝑦) ↔ ∃𝑢 ∈ ω 𝑣 ∈ (𝐹‘𝑢))
50	46, 49	sylibr 233	. . . . . . 7 ⊢ (∃𝑦 ∈ ω 𝑣 ∈ (𝐹‘suc 𝑦) → ∃𝑦 ∈ ω 𝑣 ∈ (𝐹‘𝑦))
51		eliun 4928	. . . . . . 7 ⊢ (𝑣 ∈ ∪ 𝑦 ∈ ω (𝐹‘𝑦) ↔ ∃𝑦 ∈ ω 𝑣 ∈ (𝐹‘𝑦))
52	50, 51	sylibr 233	. . . . . 6 ⊢ (∃𝑦 ∈ ω 𝑣 ∈ (𝐹‘suc 𝑦) → 𝑣 ∈ ∪ 𝑦 ∈ ω (𝐹‘𝑦))
53	39, 52	syl 17	. . . . 5 ⊢ ((𝑣 ∈ 𝑢 ∧ 𝑢 ∈ ∪ 𝑦 ∈ ω (𝐹‘𝑦)) → 𝑣 ∈ ∪ 𝑦 ∈ ω (𝐹‘𝑦))
54	53	ax-gen 1798	. . . 4 ⊢ ∀𝑢((𝑣 ∈ 𝑢 ∧ 𝑢 ∈ ∪ 𝑦 ∈ ω (𝐹‘𝑦)) → 𝑣 ∈ ∪ 𝑦 ∈ ω (𝐹‘𝑦))
55	17, 54	mpgbir 1802	. . 3 ⊢ Tr ∪ 𝑦 ∈ ω (𝐹‘𝑦)
56		treq 5197	. . . 4 ⊢ (𝐶 = ∪ 𝑦 ∈ ω (𝐹‘𝑦) → (Tr 𝐶 ↔ Tr ∪ 𝑦 ∈ ω (𝐹‘𝑦)))
57	15, 56	ax-mp 5	. . 3 ⊢ (Tr 𝐶 ↔ Tr ∪ 𝑦 ∈ ω (𝐹‘𝑦))
58	55, 57	mpbir 230	. 2 ⊢ Tr 𝐶
59		fveq2 6774	. . . . . . . 8 ⊢ (𝑣 = ∅ → (𝐹‘𝑣) = (𝐹‘∅))
60	59	sseq1d 3952	. . . . . . 7 ⊢ (𝑣 = ∅ → ((𝐹‘𝑣) ⊆ 𝑥 ↔ (𝐹‘∅) ⊆ 𝑥))
61		fveq2 6774	. . . . . . . 8 ⊢ (𝑣 = 𝑦 → (𝐹‘𝑣) = (𝐹‘𝑦))
62	61	sseq1d 3952	. . . . . . 7 ⊢ (𝑣 = 𝑦 → ((𝐹‘𝑣) ⊆ 𝑥 ↔ (𝐹‘𝑦) ⊆ 𝑥))
63		fveq2 6774	. . . . . . . 8 ⊢ (𝑣 = suc 𝑦 → (𝐹‘𝑣) = (𝐹‘suc 𝑦))
64	63	sseq1d 3952	. . . . . . 7 ⊢ (𝑣 = suc 𝑦 → ((𝐹‘𝑣) ⊆ 𝑥 ↔ (𝐹‘suc 𝑦) ⊆ 𝑥))
65	3, 6	eqtri 2766	. . . . . . . . . 10 ⊢ (𝐹‘∅) = 𝐴
66	65	sseq1i 3949	. . . . . . . . 9 ⊢ ((𝐹‘∅) ⊆ 𝑥 ↔ 𝐴 ⊆ 𝑥)
67	66	biimpri 227	. . . . . . . 8 ⊢ (𝐴 ⊆ 𝑥 → (𝐹‘∅) ⊆ 𝑥)
68	67	adantr 481	. . . . . . 7 ⊢ ((𝐴 ⊆ 𝑥 ∧ Tr 𝑥) → (𝐹‘∅) ⊆ 𝑥)
69		uniss 4847	. . . . . . . . . . . . 13 ⊢ ((𝐹‘𝑦) ⊆ 𝑥 → ∪ (𝐹‘𝑦) ⊆ ∪ 𝑥)
70		df-tr 5192	. . . . . . . . . . . . . 14 ⊢ (Tr 𝑥 ↔ ∪ 𝑥 ⊆ 𝑥)
71		sstr2 3928	. . . . . . . . . . . . . 14 ⊢ (∪ (𝐹‘𝑦) ⊆ ∪ 𝑥 → (∪ 𝑥 ⊆ 𝑥 → ∪ (𝐹‘𝑦) ⊆ 𝑥))
72	70, 71	syl5bi 241	. . . . . . . . . . . . 13 ⊢ (∪ (𝐹‘𝑦) ⊆ ∪ 𝑥 → (Tr 𝑥 → ∪ (𝐹‘𝑦) ⊆ 𝑥))
73	69, 72	syl 17	. . . . . . . . . . . 12 ⊢ ((𝐹‘𝑦) ⊆ 𝑥 → (Tr 𝑥 → ∪ (𝐹‘𝑦) ⊆ 𝑥))
74	73	anc2li 556	. . . . . . . . . . 11 ⊢ ((𝐹‘𝑦) ⊆ 𝑥 → (Tr 𝑥 → ((𝐹‘𝑦) ⊆ 𝑥 ∧ ∪ (𝐹‘𝑦) ⊆ 𝑥)))
75		unss 4118	. . . . . . . . . . 11 ⊢ (((𝐹‘𝑦) ⊆ 𝑥 ∧ ∪ (𝐹‘𝑦) ⊆ 𝑥) ↔ ((𝐹‘𝑦) ∪ ∪ (𝐹‘𝑦)) ⊆ 𝑥)
76	74, 75	syl6ib 250	. . . . . . . . . 10 ⊢ ((𝐹‘𝑦) ⊆ 𝑥 → (Tr 𝑥 → ((𝐹‘𝑦) ∪ ∪ (𝐹‘𝑦)) ⊆ 𝑥))
77	34	sseq1d 3952	. . . . . . . . . . 11 ⊢ (𝑦 ∈ ω → ((𝐹‘suc 𝑦) ⊆ 𝑥 ↔ ((𝐹‘𝑦) ∪ ∪ (𝐹‘𝑦)) ⊆ 𝑥))
78	77	biimprd 247	. . . . . . . . . 10 ⊢ (𝑦 ∈ ω → (((𝐹‘𝑦) ∪ ∪ (𝐹‘𝑦)) ⊆ 𝑥 → (𝐹‘suc 𝑦) ⊆ 𝑥))
79	76, 78	syl9r 78	. . . . . . . . 9 ⊢ (𝑦 ∈ ω → ((𝐹‘𝑦) ⊆ 𝑥 → (Tr 𝑥 → (𝐹‘suc 𝑦) ⊆ 𝑥)))
80	79	com23 86	. . . . . . . 8 ⊢ (𝑦 ∈ ω → (Tr 𝑥 → ((𝐹‘𝑦) ⊆ 𝑥 → (𝐹‘suc 𝑦) ⊆ 𝑥)))
81	80	adantld 491	. . . . . . 7 ⊢ (𝑦 ∈ ω → ((𝐴 ⊆ 𝑥 ∧ Tr 𝑥) → ((𝐹‘𝑦) ⊆ 𝑥 → (𝐹‘suc 𝑦) ⊆ 𝑥)))
82	60, 62, 64, 68, 81	finds2 7747	. . . . . 6 ⊢ (𝑣 ∈ ω → ((𝐴 ⊆ 𝑥 ∧ Tr 𝑥) → (𝐹‘𝑣) ⊆ 𝑥))
83	82	com12 32	. . . . 5 ⊢ ((𝐴 ⊆ 𝑥 ∧ Tr 𝑥) → (𝑣 ∈ ω → (𝐹‘𝑣) ⊆ 𝑥))
84	83	ralrimiv 3102	. . . 4 ⊢ ((𝐴 ⊆ 𝑥 ∧ Tr 𝑥) → ∀𝑣 ∈ ω (𝐹‘𝑣) ⊆ 𝑥)
85		fveq2 6774	. . . . . . . 8 ⊢ (𝑦 = 𝑣 → (𝐹‘𝑦) = (𝐹‘𝑣))
86	85	cbviunv 4970	. . . . . . 7 ⊢ ∪ 𝑦 ∈ ω (𝐹‘𝑦) = ∪ 𝑣 ∈ ω (𝐹‘𝑣)
87	15, 86	eqtri 2766	. . . . . 6 ⊢ 𝐶 = ∪ 𝑣 ∈ ω (𝐹‘𝑣)
88	87	sseq1i 3949	. . . . 5 ⊢ (𝐶 ⊆ 𝑥 ↔ ∪ 𝑣 ∈ ω (𝐹‘𝑣) ⊆ 𝑥)
89		iunss 4975	. . . . 5 ⊢ (∪ 𝑣 ∈ ω (𝐹‘𝑣) ⊆ 𝑥 ↔ ∀𝑣 ∈ ω (𝐹‘𝑣) ⊆ 𝑥)
90	88, 89	bitri 274	. . . 4 ⊢ (𝐶 ⊆ 𝑥 ↔ ∀𝑣 ∈ ω (𝐹‘𝑣) ⊆ 𝑥)
91	84, 90	sylibr 233	. . 3 ⊢ ((𝐴 ⊆ 𝑥 ∧ Tr 𝑥) → 𝐶 ⊆ 𝑥)
92	91	ax-gen 1798	. 2 ⊢ ∀𝑥((𝐴 ⊆ 𝑥 ∧ Tr 𝑥) → 𝐶 ⊆ 𝑥)
93	16, 58, 92	3pm3.2i 1338	1 ⊢ (𝐴 ⊆ 𝐶 ∧ Tr 𝐶 ∧ ∀𝑥((𝐴 ⊆ 𝑥 ∧ Tr 𝑥) → 𝐶 ⊆ 𝑥))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 205 ∧ wa 396 ∧ w3a 1086 ∀wal 1537 = wceq 1539 ∈ wcel 2106 ∀wral 3064 ∃wrex 3065 Vcvv 3432 ∪ cun 3885 ⊆ wss 3887 ∅c0 4256 ∪ cuni 4839 ∪ ciun 4924 ↦ cmpt 5157 Tr wtr 5191 ↾ cres 5591 suc csuc 6268 ‘cfv 6433 ωcom 7712 reccrdg 8240

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1798 ax-4 1812 ax-5 1913 ax-6 1971 ax-7 2011 ax-8 2108 ax-9 2116 ax-10 2137 ax-11 2154 ax-12 2171 ax-ext 2709 ax-sep 5223 ax-nul 5230 ax-pr 5352 ax-un 7588

This theorem depends on definitions: df-bi 206 df-an 397 df-or 845 df-3or 1087 df-3an 1088 df-tru 1542 df-fal 1552 df-ex 1783 df-nf 1787 df-sb 2068 df-mo 2540 df-eu 2569 df-clab 2716 df-cleq 2730 df-clel 2816 df-nfc 2889 df-ne 2944 df-ral 3069 df-rex 3070 df-reu 3072 df-rab 3073 df-v 3434 df-sbc 3717 df-csb 3833 df-dif 3890 df-un 3892 df-in 3894 df-ss 3904 df-pss 3906 df-nul 4257 df-if 4460 df-pw 4535 df-sn 4562 df-pr 4564 df-op 4568 df-uni 4840 df-iun 4926 df-br 5075 df-opab 5137 df-mpt 5158 df-tr 5192 df-id 5489 df-eprel 5495 df-po 5503 df-so 5504 df-fr 5544 df-we 5546 df-xp 5595 df-rel 5596 df-cnv 5597 df-co 5598 df-dm 5599 df-rn 5600 df-res 5601 df-ima 5602 df-pred 6202 df-ord 6269 df-on 6270 df-lim 6271 df-suc 6272 df-iota 6391 df-fun 6435 df-fn 6436 df-f 6437 df-f1 6438 df-fo 6439 df-f1o 6440 df-fv 6441 df-ov 7278 df-om 7713 df-2nd 7832 df-frecs 8097 df-wrecs 8128 df-recs 8202 df-rdg 8241

This theorem is referenced by: tz9.1 9487 tz9.1c 9488

W3C validator