Theorem bj-imdirco 34605

Description: Functorial property of the direct image: the direct image by a composition is the composition of the direct images. (Contributed by BJ, 23-May-2024.)

Hypotheses

Ref	Expression
bj-imdirco.exa	⊢ (𝜑 → 𝐴 ∈ 𝑈)
bj-imdirco.exb	⊢ (𝜑 → 𝐵 ∈ 𝑉)
bj-imdirco.exc	⊢ (𝜑 → 𝐶 ∈ 𝑊)
bj-imdirco.arg1	⊢ (𝜑 → 𝑅 ⊆ (𝐴 × 𝐵))
bj-imdirco.arg2	⊢ (𝜑 → 𝑆 ⊆ (𝐵 × 𝐶))

Assertion

Ref	Expression
bj-imdirco	⊢ (𝜑 → ((𝐴𝒫*𝐶)‘(𝑆 ∘ 𝑅)) = (((𝐵𝒫*𝐶)‘𝑆) ∘ ((𝐴𝒫*𝐵)‘𝑅)))

Proof of Theorem bj-imdirco

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

Step	Hyp	Ref	Expression
1		imaco 6071	. . . . . . . 8 ⊢ ((𝑆 ∘ 𝑅) “ 𝑥) = (𝑆 “ (𝑅 “ 𝑥))
2	1	eqeq1i 2803	. . . . . . 7 ⊢ (((𝑆 ∘ 𝑅) “ 𝑥) = 𝑧 ↔ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧)
3	2	anbi2i 625	. . . . . 6 ⊢ (((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ ((𝑆 ∘ 𝑅) “ 𝑥) = 𝑧) ↔ ((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧))
4	3	a1i 11	. . . . 5 ⊢ (𝜑 → (((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ ((𝑆 ∘ 𝑅) “ 𝑥) = 𝑧) ↔ ((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧)))
5		bj-imdirco.exa	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐴 ∈ 𝑈)
6		bj-imdirco.exb	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐵 ∈ 𝑉)
7	5, 6	xpexd 7454	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐴 × 𝐵) ∈ V)
8		bj-imdirco.arg1	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑅 ⊆ (𝐴 × 𝐵))
9	7, 8	ssexd 5192	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑅 ∈ V)
10		imaexg 7602	. . . . . . . . . . 11 ⊢ (𝑅 ∈ V → (𝑅 “ 𝑥) ∈ V)
11	9, 10	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → (𝑅 “ 𝑥) ∈ V)
12		imass1 5931	. . . . . . . . . . . . 13 ⊢ (𝑅 ⊆ (𝐴 × 𝐵) → (𝑅 “ 𝑥) ⊆ ((𝐴 × 𝐵) “ 𝑥))
13		xpima 6006	. . . . . . . . . . . . . 14 ⊢ ((𝐴 × 𝐵) “ 𝑥) = if((𝐴 ∩ 𝑥) = ∅, ∅, 𝐵)
14		simpr 488	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐴 ∩ 𝑥) = ∅ ∧ 𝑢 ∈ ∅) → 𝑢 ∈ ∅)
15		simpr 488	. . . . . . . . . . . . . . . . . 18 ⊢ ((¬ (𝐴 ∩ 𝑥) = ∅ ∧ 𝑢 ∈ 𝐵) → 𝑢 ∈ 𝐵)
16	14, 15	orim12i 906	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝐴 ∩ 𝑥) = ∅ ∧ 𝑢 ∈ ∅) ∨ (¬ (𝐴 ∩ 𝑥) = ∅ ∧ 𝑢 ∈ 𝐵)) → (𝑢 ∈ ∅ ∨ 𝑢 ∈ 𝐵))
17		elif 4467	. . . . . . . . . . . . . . . . 17 ⊢ (𝑢 ∈ if((𝐴 ∩ 𝑥) = ∅, ∅, 𝐵) ↔ (((𝐴 ∩ 𝑥) = ∅ ∧ 𝑢 ∈ ∅) ∨ (¬ (𝐴 ∩ 𝑥) = ∅ ∧ 𝑢 ∈ 𝐵)))
18		elun 4076	. . . . . . . . . . . . . . . . 17 ⊢ (𝑢 ∈ (∅ ∪ 𝐵) ↔ (𝑢 ∈ ∅ ∨ 𝑢 ∈ 𝐵))
19	16, 17, 18	3imtr4i 295	. . . . . . . . . . . . . . . 16 ⊢ (𝑢 ∈ if((𝐴 ∩ 𝑥) = ∅, ∅, 𝐵) → 𝑢 ∈ (∅ ∪ 𝐵))
20	19	ssriv 3919	. . . . . . . . . . . . . . 15 ⊢ if((𝐴 ∩ 𝑥) = ∅, ∅, 𝐵) ⊆ (∅ ∪ 𝐵)
21		0ss 4304	. . . . . . . . . . . . . . . 16 ⊢ ∅ ⊆ 𝐵
22		ssid 3937	. . . . . . . . . . . . . . . 16 ⊢ 𝐵 ⊆ 𝐵
23	21, 22	unssi 4112	. . . . . . . . . . . . . . 15 ⊢ (∅ ∪ 𝐵) ⊆ 𝐵
24	20, 23	sstri 3924	. . . . . . . . . . . . . 14 ⊢ if((𝐴 ∩ 𝑥) = ∅, ∅, 𝐵) ⊆ 𝐵
25	13, 24	eqsstri 3949	. . . . . . . . . . . . 13 ⊢ ((𝐴 × 𝐵) “ 𝑥) ⊆ 𝐵
26	12, 25	sstrdi 3927	. . . . . . . . . . . 12 ⊢ (𝑅 ⊆ (𝐴 × 𝐵) → (𝑅 “ 𝑥) ⊆ 𝐵)
27	8, 26	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑅 “ 𝑥) ⊆ 𝐵)
28		eqidd 2799	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑅 “ 𝑥) = (𝑅 “ 𝑥))
29	27, 28	jca 515	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑅 “ 𝑥) ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = (𝑅 “ 𝑥)))
30		sseq1 3940	. . . . . . . . . . 11 ⊢ (𝑦 = (𝑅 “ 𝑥) → (𝑦 ⊆ 𝐵 ↔ (𝑅 “ 𝑥) ⊆ 𝐵))
31		eqeq2 2810	. . . . . . . . . . 11 ⊢ (𝑦 = (𝑅 “ 𝑥) → ((𝑅 “ 𝑥) = 𝑦 ↔ (𝑅 “ 𝑥) = (𝑅 “ 𝑥)))
32	30, 31	anbi12d 633	. . . . . . . . . 10 ⊢ (𝑦 = (𝑅 “ 𝑥) → ((𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦) ↔ ((𝑅 “ 𝑥) ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = (𝑅 “ 𝑥))))
33	11, 29, 32	spcedv 3547	. . . . . . . . 9 ⊢ (𝜑 → ∃𝑦(𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))
34	33	biantrurd 536	. . . . . . . 8 ⊢ (𝜑 → ((𝑆 “ (𝑅 “ 𝑥)) = 𝑧 ↔ (∃𝑦(𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦) ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧)))
35		19.41v 1950	. . . . . . . . 9 ⊢ (∃𝑦((𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦) ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧) ↔ (∃𝑦(𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦) ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧))
36		anass 472	. . . . . . . . . 10 ⊢ (((𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦) ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧) ↔ (𝑦 ⊆ 𝐵 ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧)))
37	36	exbii 1849	. . . . . . . . 9 ⊢ (∃𝑦((𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦) ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧) ↔ ∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧)))
38	35, 37	bitr3i 280	. . . . . . . 8 ⊢ ((∃𝑦(𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦) ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧) ↔ ∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧)))
39	34, 38	syl6bb 290	. . . . . . 7 ⊢ (𝜑 → ((𝑆 “ (𝑅 “ 𝑥)) = 𝑧 ↔ ∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧))))
40		imaeq2 5892	. . . . . . . . . . . . 13 ⊢ ((𝑅 “ 𝑥) = 𝑦 → (𝑆 “ (𝑅 “ 𝑥)) = (𝑆 “ 𝑦))
41	40	eqeq1d 2800	. . . . . . . . . . . 12 ⊢ ((𝑅 “ 𝑥) = 𝑦 → ((𝑆 “ (𝑅 “ 𝑥)) = 𝑧 ↔ (𝑆 “ 𝑦) = 𝑧))
42	41	pm5.32i 578	. . . . . . . . . . 11 ⊢ (((𝑅 “ 𝑥) = 𝑦 ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧) ↔ ((𝑅 “ 𝑥) = 𝑦 ∧ (𝑆 “ 𝑦) = 𝑧))
43	42	bianass 641	. . . . . . . . . 10 ⊢ ((𝑦 ⊆ 𝐵 ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧)) ↔ ((𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦) ∧ (𝑆 “ 𝑦) = 𝑧))
44	43	biancomi 466	. . . . . . . . 9 ⊢ ((𝑦 ⊆ 𝐵 ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧)) ↔ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))
45	44	exbii 1849	. . . . . . . 8 ⊢ (∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧)) ↔ ∃𝑦((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))
46	45	a1i 11	. . . . . . 7 ⊢ (𝜑 → (∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧)) ↔ ∃𝑦((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))
47		pm4.24 567	. . . . . . . . . . . . 13 ⊢ (𝑦 ⊆ 𝐵 ↔ (𝑦 ⊆ 𝐵 ∧ 𝑦 ⊆ 𝐵))
48	47	anbi1i 626	. . . . . . . . . . . 12 ⊢ ((𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦) ↔ ((𝑦 ⊆ 𝐵 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦))
49		anass 472	. . . . . . . . . . . 12 ⊢ (((𝑦 ⊆ 𝐵 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ↔ (𝑦 ⊆ 𝐵 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))
50	48, 49	bitri 278	. . . . . . . . . . 11 ⊢ ((𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦) ↔ (𝑦 ⊆ 𝐵 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))
51	50	anbi2i 625	. . . . . . . . . 10 ⊢ (((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)) ↔ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))
52		an12 644	. . . . . . . . . 10 ⊢ (((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))) ↔ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))
53	51, 52	bitri 278	. . . . . . . . 9 ⊢ (((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)) ↔ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))
54	53	exbii 1849	. . . . . . . 8 ⊢ (∃𝑦((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)) ↔ ∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))
55	54	a1i 11	. . . . . . 7 ⊢ (𝜑 → (∃𝑦((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)) ↔ ∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))))
56	39, 46, 55	3bitrd 308	. . . . . 6 ⊢ (𝜑 → ((𝑆 “ (𝑅 “ 𝑥)) = 𝑧 ↔ ∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))))
57	56	anbi2d 631	. . . . 5 ⊢ (𝜑 → (((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧) ↔ ((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ ∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))))
58		19.42v 1954	. . . . . . 7 ⊢ (∃𝑦((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))) ↔ ((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ ∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))))
59		anass 472	. . . . . . . . 9 ⊢ (((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))) ↔ (𝑥 ⊆ 𝐴 ∧ (𝑧 ⊆ 𝐶 ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))))
60		ancom 464	. . . . . . . . . . 11 ⊢ ((((𝑅 “ 𝑥) = 𝑦 ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)) ∧ 𝑦 ⊆ 𝐵) ↔ (𝑦 ⊆ 𝐵 ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧))))
61	60	bianass 641	. . . . . . . . . 10 ⊢ ((𝑥 ⊆ 𝐴 ∧ (((𝑅 “ 𝑥) = 𝑦 ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)) ∧ 𝑦 ⊆ 𝐵)) ↔ ((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧))))
62		ancom 464	. . . . . . . . . . . 12 ⊢ (((((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧) ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ↔ ((𝑅 “ 𝑥) = 𝑦 ∧ (((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧) ∧ 𝑦 ⊆ 𝐵)))
63		ancom 464	. . . . . . . . . . . . . . 15 ⊢ ((𝑧 ⊆ 𝐶 ∧ 𝑦 ⊆ 𝐵) ↔ (𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶))
64	63	anbi1i 626	. . . . . . . . . . . . . 14 ⊢ (((𝑧 ⊆ 𝐶 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑆 “ 𝑦) = 𝑧) ↔ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧))
65	64	anbi1i 626	. . . . . . . . . . . . 13 ⊢ ((((𝑧 ⊆ 𝐶 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑆 “ 𝑦) = 𝑧) ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)) ↔ (((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧) ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))
66		biid 264	. . . . . . . . . . . . . . 15 ⊢ ((𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))) ↔ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))
67	66	bianass 641	. . . . . . . . . . . . . 14 ⊢ ((𝑧 ⊆ 𝐶 ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))) ↔ ((𝑧 ⊆ 𝐶 ∧ 𝑦 ⊆ 𝐵) ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))
68		anass 472	. . . . . . . . . . . . . 14 ⊢ ((((𝑧 ⊆ 𝐶 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑆 “ 𝑦) = 𝑧) ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)) ↔ ((𝑧 ⊆ 𝐶 ∧ 𝑦 ⊆ 𝐵) ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))
69	67, 68	bitr4i 281	. . . . . . . . . . . . 13 ⊢ ((𝑧 ⊆ 𝐶 ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))) ↔ (((𝑧 ⊆ 𝐶 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑆 “ 𝑦) = 𝑧) ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))
70		anass 472	. . . . . . . . . . . . 13 ⊢ (((((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧) ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ↔ (((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧) ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))
71	65, 69, 70	3bitr4i 306	. . . . . . . . . . . 12 ⊢ ((𝑧 ⊆ 𝐶 ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))) ↔ ((((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧) ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦))
72		anass 472	. . . . . . . . . . . 12 ⊢ ((((𝑅 “ 𝑥) = 𝑦 ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)) ∧ 𝑦 ⊆ 𝐵) ↔ ((𝑅 “ 𝑥) = 𝑦 ∧ (((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧) ∧ 𝑦 ⊆ 𝐵)))
73	62, 71, 72	3bitr4i 306	. . . . . . . . . . 11 ⊢ ((𝑧 ⊆ 𝐶 ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))) ↔ (((𝑅 “ 𝑥) = 𝑦 ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)) ∧ 𝑦 ⊆ 𝐵))
74	73	anbi2i 625	. . . . . . . . . 10 ⊢ ((𝑥 ⊆ 𝐴 ∧ (𝑧 ⊆ 𝐶 ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))) ↔ (𝑥 ⊆ 𝐴 ∧ (((𝑅 “ 𝑥) = 𝑦 ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)) ∧ 𝑦 ⊆ 𝐵)))
75		anass 472	. . . . . . . . . 10 ⊢ ((((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)) ↔ ((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧))))
76	61, 74, 75	3bitr4i 306	. . . . . . . . 9 ⊢ ((𝑥 ⊆ 𝐴 ∧ (𝑧 ⊆ 𝐶 ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))) ↔ (((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)))
77	59, 76	bitri 278	. . . . . . . 8 ⊢ (((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))) ↔ (((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)))
78	77	exbii 1849	. . . . . . 7 ⊢ (∃𝑦((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))) ↔ ∃𝑦(((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)))
79	58, 78	bitr3i 280	. . . . . 6 ⊢ (((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ ∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))) ↔ ∃𝑦(((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)))
80	79	a1i 11	. . . . 5 ⊢ (𝜑 → (((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ ∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))) ↔ ∃𝑦(((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧))))
81	4, 57, 80	3bitrd 308	. . . 4 ⊢ (𝜑 → (((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ ((𝑆 ∘ 𝑅) “ 𝑥) = 𝑧) ↔ ∃𝑦(((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧))))
82	81	opabbidv 5096	. . 3 ⊢ (𝜑 → {⟨𝑥, 𝑧⟩ ∣ ((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ ((𝑆 ∘ 𝑅) “ 𝑥) = 𝑧)} = {⟨𝑥, 𝑧⟩ ∣ ∃𝑦(((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧))})
83		bj-opabco 34603	. . 3 ⊢ ({⟨𝑦, 𝑧⟩ ∣ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)} ∘ {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦)}) = {⟨𝑥, 𝑧⟩ ∣ ∃𝑦(((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧))}
84	82, 83	eqtr4di 2851	. 2 ⊢ (𝜑 → {⟨𝑥, 𝑧⟩ ∣ ((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ ((𝑆 ∘ 𝑅) “ 𝑥) = 𝑧)} = ({⟨𝑦, 𝑧⟩ ∣ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)} ∘ {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦)}))
85		bj-imdirco.exc	. . 3 ⊢ (𝜑 → 𝐶 ∈ 𝑊)
86		bj-imdirco.arg2	. . . . 5 ⊢ (𝜑 → 𝑆 ⊆ (𝐵 × 𝐶))
87	86, 8	coss12d 14323	. . . 4 ⊢ (𝜑 → (𝑆 ∘ 𝑅) ⊆ ((𝐵 × 𝐶) ∘ (𝐴 × 𝐵)))
88		bj-xpcossxp 34604	. . . 4 ⊢ ((𝐵 × 𝐶) ∘ (𝐴 × 𝐵)) ⊆ (𝐴 × 𝐶)
89	87, 88	sstrdi 3927	. . 3 ⊢ (𝜑 → (𝑆 ∘ 𝑅) ⊆ (𝐴 × 𝐶))
90	5, 85, 89	bj-imdirval2 34598	. 2 ⊢ (𝜑 → ((𝐴𝒫*𝐶)‘(𝑆 ∘ 𝑅)) = {⟨𝑥, 𝑧⟩ ∣ ((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ ((𝑆 ∘ 𝑅) “ 𝑥) = 𝑧)})
91	6, 85, 86	bj-imdirval2 34598	. . 3 ⊢ (𝜑 → ((𝐵𝒫*𝐶)‘𝑆) = {⟨𝑦, 𝑧⟩ ∣ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)})
92	5, 6, 8	bj-imdirval2 34598	. . 3 ⊢ (𝜑 → ((𝐴𝒫*𝐵)‘𝑅) = {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦)})
93	91, 92	coeq12d 5699	. 2 ⊢ (𝜑 → (((𝐵𝒫*𝐶)‘𝑆) ∘ ((𝐴𝒫*𝐵)‘𝑅)) = ({⟨𝑦, 𝑧⟩ ∣ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)} ∘ {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦)}))
94	84, 90, 93	3eqtr4d 2843	1 ⊢ (𝜑 → ((𝐴𝒫*𝐶)‘(𝑆 ∘ 𝑅)) = (((𝐵𝒫*𝐶)‘𝑆) ∘ ((𝐴𝒫*𝐵)‘𝑅)))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 399   ∨ wo 844   = wceq 1538  ∃wex 1781   ∈ wcel 2111  Vcvv 3441   ∪ cun 3879   ∩ cin 3880   ⊆ wss 3881  ∅c0 4243  ifcif 4425  {copab 5092   × cxp 5517   “ cima 5522   ∘ ccom 5523  ‘cfv 6324  (class class class)co 7135  𝒫_*cimdir 34593

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2113  ax-9 2121  ax-10 2142  ax-11 2158  ax-12 2175  ax-ext 2770  ax-rep 5154  ax-sep 5167  ax-nul 5174  ax-pow 5231  ax-pr 5295  ax-un 7441

This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3an 1086  df-tru 1541  df-ex 1782  df-nf 1786  df-sb 2070  df-mo 2598  df-eu 2629  df-clab 2777  df-cleq 2791  df-clel 2870  df-nfc 2938  df-ne 2988  df-ral 3111  df-rex 3112  df-reu 3113  df-rab 3115  df-v 3443  df-sbc 3721  df-csb 3829  df-dif 3884  df-un 3886  df-in 3888  df-ss 3898  df-nul 4244  df-if 4426  df-pw 4499  df-sn 4526  df-pr 4528  df-op 4532  df-uni 4801  df-iun 4883  df-br 5031  df-opab 5093  df-mpt 5111  df-id 5425  df-xp 5525  df-rel 5526  df-cnv 5527  df-co 5528  df-dm 5529  df-rn 5530  df-res 5531  df-ima 5532  df-iota 6283  df-fun 6326  df-fn 6327  df-f 6328  df-f1 6329  df-fo 6330  df-f1o 6331  df-fv 6332  df-ov 7138  df-oprab 7139  df-mpo 7140  df-imdir 34594

This theorem is referenced by: (None)