Theorem trclun 14965

Description: Transitive closure of a union of relations. (Contributed by RP, 5-May-2020.)

Assertion

Ref	Expression
trclun	⊢ ((𝑅 ∈ 𝑉 ∧ 𝑆 ∈ 𝑊) → (t+‘(𝑅 ∪ 𝑆)) = (t+‘((t+‘𝑅) ∪ (t+‘𝑆))))

Proof of Theorem trclun

Dummy variables 𝑥 𝑟 𝑠 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		unss 4183	. . . . . . . . . 10 ⊢ ((𝑅 ⊆ 𝑥 ∧ 𝑆 ⊆ 𝑥) ↔ (𝑅 ∪ 𝑆) ⊆ 𝑥)
2		simpl 481	. . . . . . . . . 10 ⊢ ((𝑅 ⊆ 𝑥 ∧ 𝑆 ⊆ 𝑥) → 𝑅 ⊆ 𝑥)
3	1, 2	sylbir 234	. . . . . . . . 9 ⊢ ((𝑅 ∪ 𝑆) ⊆ 𝑥 → 𝑅 ⊆ 𝑥)
4		vex 3476	. . . . . . . . . . 11 ⊢ 𝑥 ∈ V
5		trcleq2lem 14942	. . . . . . . . . . 11 ⊢ (𝑟 = 𝑥 → ((𝑅 ⊆ 𝑟 ∧ (𝑟 ∘ 𝑟) ⊆ 𝑟) ↔ (𝑅 ⊆ 𝑥 ∧ (𝑥 ∘ 𝑥) ⊆ 𝑥)))
6	4, 5	elab 3667	. . . . . . . . . 10 ⊢ (𝑥 ∈ {𝑟 ∣ (𝑅 ⊆ 𝑟 ∧ (𝑟 ∘ 𝑟) ⊆ 𝑟)} ↔ (𝑅 ⊆ 𝑥 ∧ (𝑥 ∘ 𝑥) ⊆ 𝑥))
7	6	biimpri 227	. . . . . . . . 9 ⊢ ((𝑅 ⊆ 𝑥 ∧ (𝑥 ∘ 𝑥) ⊆ 𝑥) → 𝑥 ∈ {𝑟 ∣ (𝑅 ⊆ 𝑟 ∧ (𝑟 ∘ 𝑟) ⊆ 𝑟)})
8	3, 7	sylan 578	. . . . . . . 8 ⊢ (((𝑅 ∪ 𝑆) ⊆ 𝑥 ∧ (𝑥 ∘ 𝑥) ⊆ 𝑥) → 𝑥 ∈ {𝑟 ∣ (𝑅 ⊆ 𝑟 ∧ (𝑟 ∘ 𝑟) ⊆ 𝑟)})
9		intss1 4966	. . . . . . . 8 ⊢ (𝑥 ∈ {𝑟 ∣ (𝑅 ⊆ 𝑟 ∧ (𝑟 ∘ 𝑟) ⊆ 𝑟)} → ∩ {𝑟 ∣ (𝑅 ⊆ 𝑟 ∧ (𝑟 ∘ 𝑟) ⊆ 𝑟)} ⊆ 𝑥)
10	8, 9	syl 17	. . . . . . 7 ⊢ (((𝑅 ∪ 𝑆) ⊆ 𝑥 ∧ (𝑥 ∘ 𝑥) ⊆ 𝑥) → ∩ {𝑟 ∣ (𝑅 ⊆ 𝑟 ∧ (𝑟 ∘ 𝑟) ⊆ 𝑟)} ⊆ 𝑥)
11		simpr 483	. . . . . . . . . 10 ⊢ ((𝑅 ⊆ 𝑥 ∧ 𝑆 ⊆ 𝑥) → 𝑆 ⊆ 𝑥)
12	1, 11	sylbir 234	. . . . . . . . 9 ⊢ ((𝑅 ∪ 𝑆) ⊆ 𝑥 → 𝑆 ⊆ 𝑥)
13		trcleq2lem 14942	. . . . . . . . . . 11 ⊢ (𝑠 = 𝑥 → ((𝑆 ⊆ 𝑠 ∧ (𝑠 ∘ 𝑠) ⊆ 𝑠) ↔ (𝑆 ⊆ 𝑥 ∧ (𝑥 ∘ 𝑥) ⊆ 𝑥)))
14	4, 13	elab 3667	. . . . . . . . . 10 ⊢ (𝑥 ∈ {𝑠 ∣ (𝑆 ⊆ 𝑠 ∧ (𝑠 ∘ 𝑠) ⊆ 𝑠)} ↔ (𝑆 ⊆ 𝑥 ∧ (𝑥 ∘ 𝑥) ⊆ 𝑥))
15	14	biimpri 227	. . . . . . . . 9 ⊢ ((𝑆 ⊆ 𝑥 ∧ (𝑥 ∘ 𝑥) ⊆ 𝑥) → 𝑥 ∈ {𝑠 ∣ (𝑆 ⊆ 𝑠 ∧ (𝑠 ∘ 𝑠) ⊆ 𝑠)})
16	12, 15	sylan 578	. . . . . . . 8 ⊢ (((𝑅 ∪ 𝑆) ⊆ 𝑥 ∧ (𝑥 ∘ 𝑥) ⊆ 𝑥) → 𝑥 ∈ {𝑠 ∣ (𝑆 ⊆ 𝑠 ∧ (𝑠 ∘ 𝑠) ⊆ 𝑠)})
17		intss1 4966	. . . . . . . 8 ⊢ (𝑥 ∈ {𝑠 ∣ (𝑆 ⊆ 𝑠 ∧ (𝑠 ∘ 𝑠) ⊆ 𝑠)} → ∩ {𝑠 ∣ (𝑆 ⊆ 𝑠 ∧ (𝑠 ∘ 𝑠) ⊆ 𝑠)} ⊆ 𝑥)
18	16, 17	syl 17	. . . . . . 7 ⊢ (((𝑅 ∪ 𝑆) ⊆ 𝑥 ∧ (𝑥 ∘ 𝑥) ⊆ 𝑥) → ∩ {𝑠 ∣ (𝑆 ⊆ 𝑠 ∧ (𝑠 ∘ 𝑠) ⊆ 𝑠)} ⊆ 𝑥)
19	10, 18	unssd 4185	. . . . . 6 ⊢ (((𝑅 ∪ 𝑆) ⊆ 𝑥 ∧ (𝑥 ∘ 𝑥) ⊆ 𝑥) → (∩ {𝑟 ∣ (𝑅 ⊆ 𝑟 ∧ (𝑟 ∘ 𝑟) ⊆ 𝑟)} ∪ ∩ {𝑠 ∣ (𝑆 ⊆ 𝑠 ∧ (𝑠 ∘ 𝑠) ⊆ 𝑠)}) ⊆ 𝑥)
20		simpr 483	. . . . . 6 ⊢ (((𝑅 ∪ 𝑆) ⊆ 𝑥 ∧ (𝑥 ∘ 𝑥) ⊆ 𝑥) → (𝑥 ∘ 𝑥) ⊆ 𝑥)
21	19, 20	jca 510	. . . . 5 ⊢ (((𝑅 ∪ 𝑆) ⊆ 𝑥 ∧ (𝑥 ∘ 𝑥) ⊆ 𝑥) → ((∩ {𝑟 ∣ (𝑅 ⊆ 𝑟 ∧ (𝑟 ∘ 𝑟) ⊆ 𝑟)} ∪ ∩ {𝑠 ∣ (𝑆 ⊆ 𝑠 ∧ (𝑠 ∘ 𝑠) ⊆ 𝑠)}) ⊆ 𝑥 ∧ (𝑥 ∘ 𝑥) ⊆ 𝑥))
22		ssmin 4970	. . . . . . . 8 ⊢ 𝑅 ⊆ ∩ {𝑟 ∣ (𝑅 ⊆ 𝑟 ∧ (𝑟 ∘ 𝑟) ⊆ 𝑟)}
23		ssmin 4970	. . . . . . . 8 ⊢ 𝑆 ⊆ ∩ {𝑠 ∣ (𝑆 ⊆ 𝑠 ∧ (𝑠 ∘ 𝑠) ⊆ 𝑠)}
24		unss12 4181	. . . . . . . 8 ⊢ ((𝑅 ⊆ ∩ {𝑟 ∣ (𝑅 ⊆ 𝑟 ∧ (𝑟 ∘ 𝑟) ⊆ 𝑟)} ∧ 𝑆 ⊆ ∩ {𝑠 ∣ (𝑆 ⊆ 𝑠 ∧ (𝑠 ∘ 𝑠) ⊆ 𝑠)}) → (𝑅 ∪ 𝑆) ⊆ (∩ {𝑟 ∣ (𝑅 ⊆ 𝑟 ∧ (𝑟 ∘ 𝑟) ⊆ 𝑟)} ∪ ∩ {𝑠 ∣ (𝑆 ⊆ 𝑠 ∧ (𝑠 ∘ 𝑠) ⊆ 𝑠)}))
25	22, 23, 24	mp2an 688	. . . . . . 7 ⊢ (𝑅 ∪ 𝑆) ⊆ (∩ {𝑟 ∣ (𝑅 ⊆ 𝑟 ∧ (𝑟 ∘ 𝑟) ⊆ 𝑟)} ∪ ∩ {𝑠 ∣ (𝑆 ⊆ 𝑠 ∧ (𝑠 ∘ 𝑠) ⊆ 𝑠)})
26		sstr 3989	. . . . . . 7 ⊢ (((𝑅 ∪ 𝑆) ⊆ (∩ {𝑟 ∣ (𝑅 ⊆ 𝑟 ∧ (𝑟 ∘ 𝑟) ⊆ 𝑟)} ∪ ∩ {𝑠 ∣ (𝑆 ⊆ 𝑠 ∧ (𝑠 ∘ 𝑠) ⊆ 𝑠)}) ∧ (∩ {𝑟 ∣ (𝑅 ⊆ 𝑟 ∧ (𝑟 ∘ 𝑟) ⊆ 𝑟)} ∪ ∩ {𝑠 ∣ (𝑆 ⊆ 𝑠 ∧ (𝑠 ∘ 𝑠) ⊆ 𝑠)}) ⊆ 𝑥) → (𝑅 ∪ 𝑆) ⊆ 𝑥)
27	25, 26	mpan 686	. . . . . 6 ⊢ ((∩ {𝑟 ∣ (𝑅 ⊆ 𝑟 ∧ (𝑟 ∘ 𝑟) ⊆ 𝑟)} ∪ ∩ {𝑠 ∣ (𝑆 ⊆ 𝑠 ∧ (𝑠 ∘ 𝑠) ⊆ 𝑠)}) ⊆ 𝑥 → (𝑅 ∪ 𝑆) ⊆ 𝑥)
28	27	anim1i 613	. . . . 5 ⊢ (((∩ {𝑟 ∣ (𝑅 ⊆ 𝑟 ∧ (𝑟 ∘ 𝑟) ⊆ 𝑟)} ∪ ∩ {𝑠 ∣ (𝑆 ⊆ 𝑠 ∧ (𝑠 ∘ 𝑠) ⊆ 𝑠)}) ⊆ 𝑥 ∧ (𝑥 ∘ 𝑥) ⊆ 𝑥) → ((𝑅 ∪ 𝑆) ⊆ 𝑥 ∧ (𝑥 ∘ 𝑥) ⊆ 𝑥))
29	21, 28	impbii 208	. . . 4 ⊢ (((𝑅 ∪ 𝑆) ⊆ 𝑥 ∧ (𝑥 ∘ 𝑥) ⊆ 𝑥) ↔ ((∩ {𝑟 ∣ (𝑅 ⊆ 𝑟 ∧ (𝑟 ∘ 𝑟) ⊆ 𝑟)} ∪ ∩ {𝑠 ∣ (𝑆 ⊆ 𝑠 ∧ (𝑠 ∘ 𝑠) ⊆ 𝑠)}) ⊆ 𝑥 ∧ (𝑥 ∘ 𝑥) ⊆ 𝑥))
30	29	abbii 2800	. . 3 ⊢ {𝑥 ∣ ((𝑅 ∪ 𝑆) ⊆ 𝑥 ∧ (𝑥 ∘ 𝑥) ⊆ 𝑥)} = {𝑥 ∣ ((∩ {𝑟 ∣ (𝑅 ⊆ 𝑟 ∧ (𝑟 ∘ 𝑟) ⊆ 𝑟)} ∪ ∩ {𝑠 ∣ (𝑆 ⊆ 𝑠 ∧ (𝑠 ∘ 𝑠) ⊆ 𝑠)}) ⊆ 𝑥 ∧ (𝑥 ∘ 𝑥) ⊆ 𝑥)}
31	30	inteqi 4953	. 2 ⊢ ∩ {𝑥 ∣ ((𝑅 ∪ 𝑆) ⊆ 𝑥 ∧ (𝑥 ∘ 𝑥) ⊆ 𝑥)} = ∩ {𝑥 ∣ ((∩ {𝑟 ∣ (𝑅 ⊆ 𝑟 ∧ (𝑟 ∘ 𝑟) ⊆ 𝑟)} ∪ ∩ {𝑠 ∣ (𝑆 ⊆ 𝑠 ∧ (𝑠 ∘ 𝑠) ⊆ 𝑠)}) ⊆ 𝑥 ∧ (𝑥 ∘ 𝑥) ⊆ 𝑥)}
32		unexg 7738	. . 3 ⊢ ((𝑅 ∈ 𝑉 ∧ 𝑆 ∈ 𝑊) → (𝑅 ∪ 𝑆) ∈ V)
33		trclfv 14951	. . 3 ⊢ ((𝑅 ∪ 𝑆) ∈ V → (t+‘(𝑅 ∪ 𝑆)) = ∩ {𝑥 ∣ ((𝑅 ∪ 𝑆) ⊆ 𝑥 ∧ (𝑥 ∘ 𝑥) ⊆ 𝑥)})
34	32, 33	syl 17	. 2 ⊢ ((𝑅 ∈ 𝑉 ∧ 𝑆 ∈ 𝑊) → (t+‘(𝑅 ∪ 𝑆)) = ∩ {𝑥 ∣ ((𝑅 ∪ 𝑆) ⊆ 𝑥 ∧ (𝑥 ∘ 𝑥) ⊆ 𝑥)})
35		simpl 481	. . . . . 6 ⊢ ((𝑅 ∈ 𝑉 ∧ 𝑆 ∈ 𝑊) → 𝑅 ∈ 𝑉)
36		trclfv 14951	. . . . . 6 ⊢ (𝑅 ∈ 𝑉 → (t+‘𝑅) = ∩ {𝑟 ∣ (𝑅 ⊆ 𝑟 ∧ (𝑟 ∘ 𝑟) ⊆ 𝑟)})
37	35, 36	syl 17	. . . . 5 ⊢ ((𝑅 ∈ 𝑉 ∧ 𝑆 ∈ 𝑊) → (t+‘𝑅) = ∩ {𝑟 ∣ (𝑅 ⊆ 𝑟 ∧ (𝑟 ∘ 𝑟) ⊆ 𝑟)})
38		simpr 483	. . . . . 6 ⊢ ((𝑅 ∈ 𝑉 ∧ 𝑆 ∈ 𝑊) → 𝑆 ∈ 𝑊)
39		trclfv 14951	. . . . . 6 ⊢ (𝑆 ∈ 𝑊 → (t+‘𝑆) = ∩ {𝑠 ∣ (𝑆 ⊆ 𝑠 ∧ (𝑠 ∘ 𝑠) ⊆ 𝑠)})
40	38, 39	syl 17	. . . . 5 ⊢ ((𝑅 ∈ 𝑉 ∧ 𝑆 ∈ 𝑊) → (t+‘𝑆) = ∩ {𝑠 ∣ (𝑆 ⊆ 𝑠 ∧ (𝑠 ∘ 𝑠) ⊆ 𝑠)})
41	37, 40	uneq12d 4163	. . . 4 ⊢ ((𝑅 ∈ 𝑉 ∧ 𝑆 ∈ 𝑊) → ((t+‘𝑅) ∪ (t+‘𝑆)) = (∩ {𝑟 ∣ (𝑅 ⊆ 𝑟 ∧ (𝑟 ∘ 𝑟) ⊆ 𝑟)} ∪ ∩ {𝑠 ∣ (𝑆 ⊆ 𝑠 ∧ (𝑠 ∘ 𝑠) ⊆ 𝑠)}))
42	41	fveq2d 6894	. . 3 ⊢ ((𝑅 ∈ 𝑉 ∧ 𝑆 ∈ 𝑊) → (t+‘((t+‘𝑅) ∪ (t+‘𝑆))) = (t+‘(∩ {𝑟 ∣ (𝑅 ⊆ 𝑟 ∧ (𝑟 ∘ 𝑟) ⊆ 𝑟)} ∪ ∩ {𝑠 ∣ (𝑆 ⊆ 𝑠 ∧ (𝑠 ∘ 𝑠) ⊆ 𝑠)})))
43		fvex 6903	. . . . . 6 ⊢ (t+‘𝑅) ∈ V
44	36, 43	eqeltrrdi 2840	. . . . 5 ⊢ (𝑅 ∈ 𝑉 → ∩ {𝑟 ∣ (𝑅 ⊆ 𝑟 ∧ (𝑟 ∘ 𝑟) ⊆ 𝑟)} ∈ V)
45		fvex 6903	. . . . . 6 ⊢ (t+‘𝑆) ∈ V
46	39, 45	eqeltrrdi 2840	. . . . 5 ⊢ (𝑆 ∈ 𝑊 → ∩ {𝑠 ∣ (𝑆 ⊆ 𝑠 ∧ (𝑠 ∘ 𝑠) ⊆ 𝑠)} ∈ V)
47		unexg 7738	. . . . 5 ⊢ ((∩ {𝑟 ∣ (𝑅 ⊆ 𝑟 ∧ (𝑟 ∘ 𝑟) ⊆ 𝑟)} ∈ V ∧ ∩ {𝑠 ∣ (𝑆 ⊆ 𝑠 ∧ (𝑠 ∘ 𝑠) ⊆ 𝑠)} ∈ V) → (∩ {𝑟 ∣ (𝑅 ⊆ 𝑟 ∧ (𝑟 ∘ 𝑟) ⊆ 𝑟)} ∪ ∩ {𝑠 ∣ (𝑆 ⊆ 𝑠 ∧ (𝑠 ∘ 𝑠) ⊆ 𝑠)}) ∈ V)
48	44, 46, 47	syl2an 594	. . . 4 ⊢ ((𝑅 ∈ 𝑉 ∧ 𝑆 ∈ 𝑊) → (∩ {𝑟 ∣ (𝑅 ⊆ 𝑟 ∧ (𝑟 ∘ 𝑟) ⊆ 𝑟)} ∪ ∩ {𝑠 ∣ (𝑆 ⊆ 𝑠 ∧ (𝑠 ∘ 𝑠) ⊆ 𝑠)}) ∈ V)
49		trclfv 14951	. . . 4 ⊢ ((∩ {𝑟 ∣ (𝑅 ⊆ 𝑟 ∧ (𝑟 ∘ 𝑟) ⊆ 𝑟)} ∪ ∩ {𝑠 ∣ (𝑆 ⊆ 𝑠 ∧ (𝑠 ∘ 𝑠) ⊆ 𝑠)}) ∈ V → (t+‘(∩ {𝑟 ∣ (𝑅 ⊆ 𝑟 ∧ (𝑟 ∘ 𝑟) ⊆ 𝑟)} ∪ ∩ {𝑠 ∣ (𝑆 ⊆ 𝑠 ∧ (𝑠 ∘ 𝑠) ⊆ 𝑠)})) = ∩ {𝑥 ∣ ((∩ {𝑟 ∣ (𝑅 ⊆ 𝑟 ∧ (𝑟 ∘ 𝑟) ⊆ 𝑟)} ∪ ∩ {𝑠 ∣ (𝑆 ⊆ 𝑠 ∧ (𝑠 ∘ 𝑠) ⊆ 𝑠)}) ⊆ 𝑥 ∧ (𝑥 ∘ 𝑥) ⊆ 𝑥)})
50	48, 49	syl 17	. . 3 ⊢ ((𝑅 ∈ 𝑉 ∧ 𝑆 ∈ 𝑊) → (t+‘(∩ {𝑟 ∣ (𝑅 ⊆ 𝑟 ∧ (𝑟 ∘ 𝑟) ⊆ 𝑟)} ∪ ∩ {𝑠 ∣ (𝑆 ⊆ 𝑠 ∧ (𝑠 ∘ 𝑠) ⊆ 𝑠)})) = ∩ {𝑥 ∣ ((∩ {𝑟 ∣ (𝑅 ⊆ 𝑟 ∧ (𝑟 ∘ 𝑟) ⊆ 𝑟)} ∪ ∩ {𝑠 ∣ (𝑆 ⊆ 𝑠 ∧ (𝑠 ∘ 𝑠) ⊆ 𝑠)}) ⊆ 𝑥 ∧ (𝑥 ∘ 𝑥) ⊆ 𝑥)})
51	42, 50	eqtrd 2770	. 2 ⊢ ((𝑅 ∈ 𝑉 ∧ 𝑆 ∈ 𝑊) → (t+‘((t+‘𝑅) ∪ (t+‘𝑆))) = ∩ {𝑥 ∣ ((∩ {𝑟 ∣ (𝑅 ⊆ 𝑟 ∧ (𝑟 ∘ 𝑟) ⊆ 𝑟)} ∪ ∩ {𝑠 ∣ (𝑆 ⊆ 𝑠 ∧ (𝑠 ∘ 𝑠) ⊆ 𝑠)}) ⊆ 𝑥 ∧ (𝑥 ∘ 𝑥) ⊆ 𝑥)})
52	31, 34, 51	3eqtr4a 2796	1 ⊢ ((𝑅 ∈ 𝑉 ∧ 𝑆 ∈ 𝑊) → (t+‘(𝑅 ∪ 𝑆)) = (t+‘((t+‘𝑅) ∪ (t+‘𝑆))))

Syntax hints:   → wi 4   ∧ wa 394   = wceq 1539   ∈ wcel 2104  {cab 2707  Vcvv 3472   ∪ cun 3945   ⊆ wss 3947  ∩ cint 4949   ∘ ccom 5679  ‘cfv 6542  t+ctcl 14936

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1911  ax-6 1969  ax-7 2009  ax-8 2106  ax-9 2114  ax-10 2135  ax-11 2152  ax-12 2169  ax-ext 2701  ax-sep 5298  ax-nul 5305  ax-pow 5362  ax-pr 5426  ax-un 7727

This theorem depends on definitions:  df-bi 206  df-an 395  df-or 844  df-3an 1087  df-tru 1542  df-fal 1552  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2532  df-eu 2561  df-clab 2708  df-cleq 2722  df-clel 2808  df-nfc 2883  df-ne 2939  df-ral 3060  df-rex 3069  df-rab 3431  df-v 3474  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-nul 4322  df-if 4528  df-pw 4603  df-sn 4628  df-pr 4630  df-op 4634  df-uni 4908  df-int 4950  df-br 5148  df-opab 5210  df-mpt 5231  df-id 5573  df-xp 5681  df-rel 5682  df-cnv 5683  df-co 5684  df-dm 5685  df-rn 5686  df-res 5687  df-iota 6494  df-fun 6544  df-fv 6550  df-trcl 14938

This theorem is referenced by: (None)