Theorem bj-imdirco 37643

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 6233	. . . . . . . 8 ⊢ ((𝑆 ∘ 𝑅) “ 𝑥) = (𝑆 “ (𝑅 “ 𝑥))
2	1	eqeq1i 2766	. . . . . . 7 ⊢ (((𝑆 ∘ 𝑅) “ 𝑥) = 𝑧 ↔ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧)
3	2	anbi2i 632	. . . . . 6 ⊢ (((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ ((𝑆 ∘ 𝑅) “ 𝑥) = 𝑧) ↔ ((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧))
4	3	a1i 11	. . . . 5 ⊢ (𝜑 → (((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ ((𝑆 ∘ 𝑅) “ 𝑥) = 𝑧) ↔ ((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧)))
5		bj-imdirco.exa	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐴 ∈ 𝑈)
6		bj-imdirco.exb	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐵 ∈ 𝑉)
7	5, 6	xpexd 7729	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐴 × 𝐵) ∈ V)
8		bj-imdirco.arg1	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑅 ⊆ (𝐴 × 𝐵))
9	7, 8	ssexd 5277	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑅 ∈ V)
10		imaexg 7889	. . . . . . . . . . 11 ⊢ (𝑅 ∈ V → (𝑅 “ 𝑥) ∈ V)
11	9, 10	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → (𝑅 “ 𝑥) ∈ V)
12		imass1 6086	. . . . . . . . . . . . 13 ⊢ (𝑅 ⊆ (𝐴 × 𝐵) → (𝑅 “ 𝑥) ⊆ ((𝐴 × 𝐵) “ 𝑥))
13		xpima 6163	. . . . . . . . . . . . . 14 ⊢ ((𝐴 × 𝐵) “ 𝑥) = if((𝐴 ∩ 𝑥) = ∅, ∅, 𝐵)
14		simpr 488	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐴 ∩ 𝑥) = ∅ ∧ 𝑢 ∈ ∅) → 𝑢 ∈ ∅)
15		simpr 488	. . . . . . . . . . . . . . . . . 18 ⊢ ((¬ (𝐴 ∩ 𝑥) = ∅ ∧ 𝑢 ∈ 𝐵) → 𝑢 ∈ 𝐵)
16	14, 15	orim12i 919	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝐴 ∩ 𝑥) = ∅ ∧ 𝑢 ∈ ∅) ∨ (¬ (𝐴 ∩ 𝑥) = ∅ ∧ 𝑢 ∈ 𝐵)) → (𝑢 ∈ ∅ ∨ 𝑢 ∈ 𝐵))
17		elif 4521	. . . . . . . . . . . . . . . . 17 ⊢ (𝑢 ∈ if((𝐴 ∩ 𝑥) = ∅, ∅, 𝐵) ↔ (((𝐴 ∩ 𝑥) = ∅ ∧ 𝑢 ∈ ∅) ∨ (¬ (𝐴 ∩ 𝑥) = ∅ ∧ 𝑢 ∈ 𝐵)))
18		elun 4104	. . . . . . . . . . . . . . . . 17 ⊢ (𝑢 ∈ (∅ ∪ 𝐵) ↔ (𝑢 ∈ ∅ ∨ 𝑢 ∈ 𝐵))
19	16, 17, 18	3imtr4i 294	. . . . . . . . . . . . . . . 16 ⊢ (𝑢 ∈ if((𝐴 ∩ 𝑥) = ∅, ∅, 𝐵) → 𝑢 ∈ (∅ ∪ 𝐵))
20	19	ssriv 3938	. . . . . . . . . . . . . . 15 ⊢ if((𝐴 ∩ 𝑥) = ∅, ∅, 𝐵) ⊆ (∅ ∪ 𝐵)
21		0ss 4351	. . . . . . . . . . . . . . . 16 ⊢ ∅ ⊆ 𝐵
22		ssid 3956	. . . . . . . . . . . . . . . 16 ⊢ 𝐵 ⊆ 𝐵
23	21, 22	unssi 4141	. . . . . . . . . . . . . . 15 ⊢ (∅ ∪ 𝐵) ⊆ 𝐵
24	20, 23	sstri 3943	. . . . . . . . . . . . . 14 ⊢ if((𝐴 ∩ 𝑥) = ∅, ∅, 𝐵) ⊆ 𝐵
25	13, 24	eqsstri 3980	. . . . . . . . . . . . 13 ⊢ ((𝐴 × 𝐵) “ 𝑥) ⊆ 𝐵
26	12, 25	sstrdi 3946	. . . . . . . . . . . 12 ⊢ (𝑅 ⊆ (𝐴 × 𝐵) → (𝑅 “ 𝑥) ⊆ 𝐵)
27	8, 26	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑅 “ 𝑥) ⊆ 𝐵)
28		eqidd 2762	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑅 “ 𝑥) = (𝑅 “ 𝑥))
29	27, 28	jca 519	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑅 “ 𝑥) ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = (𝑅 “ 𝑥)))
30		sseq1 3959	. . . . . . . . . . 11 ⊢ (𝑦 = (𝑅 “ 𝑥) → (𝑦 ⊆ 𝐵 ↔ (𝑅 “ 𝑥) ⊆ 𝐵))
31		eqeq2 2773	. . . . . . . . . . 11 ⊢ (𝑦 = (𝑅 “ 𝑥) → ((𝑅 “ 𝑥) = 𝑦 ↔ (𝑅 “ 𝑥) = (𝑅 “ 𝑥)))
32	30, 31	anbi12d 641	. . . . . . . . . 10 ⊢ (𝑦 = (𝑅 “ 𝑥) → ((𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦) ↔ ((𝑅 “ 𝑥) ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = (𝑅 “ 𝑥))))
33	11, 29, 32	spcedv 3556	. . . . . . . . 9 ⊢ (𝜑 → ∃𝑦(𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))
34	33	biantrurd 540	. . . . . . . 8 ⊢ (𝜑 → ((𝑆 “ (𝑅 “ 𝑥)) = 𝑧 ↔ (∃𝑦(𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦) ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧)))
35		19.41v 1968	. . . . . . . . 9 ⊢ (∃𝑦((𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦) ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧) ↔ (∃𝑦(𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦) ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧))
36		anass 472	. . . . . . . . . 10 ⊢ (((𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦) ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧) ↔ (𝑦 ⊆ 𝐵 ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧)))
37	36	exbii 1867	. . . . . . . . 9 ⊢ (∃𝑦((𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦) ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧) ↔ ∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧)))
38	35, 37	bitr3i 279	. . . . . . . 8 ⊢ ((∃𝑦(𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦) ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧) ↔ ∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧)))
39	34, 38	bitrdi 289	. . . . . . 7 ⊢ (𝜑 → ((𝑆 “ (𝑅 “ 𝑥)) = 𝑧 ↔ ∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧))))
40		imaeq2 6041	. . . . . . . . . . . . 13 ⊢ ((𝑅 “ 𝑥) = 𝑦 → (𝑆 “ (𝑅 “ 𝑥)) = (𝑆 “ 𝑦))
41	40	eqeq1d 2763	. . . . . . . . . . . 12 ⊢ ((𝑅 “ 𝑥) = 𝑦 → ((𝑆 “ (𝑅 “ 𝑥)) = 𝑧 ↔ (𝑆 “ 𝑦) = 𝑧))
42	41	pm5.32i 582	. . . . . . . . . . 11 ⊢ (((𝑅 “ 𝑥) = 𝑦 ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧) ↔ ((𝑅 “ 𝑥) = 𝑦 ∧ (𝑆 “ 𝑦) = 𝑧))
43	42	bianass 652	. . . . . . . . . 10 ⊢ ((𝑦 ⊆ 𝐵 ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧)) ↔ ((𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦) ∧ (𝑆 “ 𝑦) = 𝑧))
44	43	biancomi 466	. . . . . . . . 9 ⊢ ((𝑦 ⊆ 𝐵 ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧)) ↔ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))
45	44	exbii 1867	. . . . . . . 8 ⊢ (∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧)) ↔ ∃𝑦((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))
46	45	a1i 11	. . . . . . 7 ⊢ (𝜑 → (∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧)) ↔ ∃𝑦((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))
47		pm4.24 571	. . . . . . . . . . . . 13 ⊢ (𝑦 ⊆ 𝐵 ↔ (𝑦 ⊆ 𝐵 ∧ 𝑦 ⊆ 𝐵))
48	47	anbi1i 633	. . . . . . . . . . . 12 ⊢ ((𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦) ↔ ((𝑦 ⊆ 𝐵 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦))
49		anass 472	. . . . . . . . . . . 12 ⊢ (((𝑦 ⊆ 𝐵 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ↔ (𝑦 ⊆ 𝐵 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))
50	48, 49	bitri 277	. . . . . . . . . . 11 ⊢ ((𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦) ↔ (𝑦 ⊆ 𝐵 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))
51	50	anbi2i 632	. . . . . . . . . 10 ⊢ (((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)) ↔ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))
52		an12 655	. . . . . . . . . 10 ⊢ (((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))) ↔ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))
53	51, 52	bitri 277	. . . . . . . . 9 ⊢ (((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)) ↔ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))
54	53	exbii 1867	. . . . . . . 8 ⊢ (∃𝑦((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)) ↔ ∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))
55	54	a1i 11	. . . . . . 7 ⊢ (𝜑 → (∃𝑦((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)) ↔ ∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))))
56	39, 46, 55	3bitrd 307	. . . . . 6 ⊢ (𝜑 → ((𝑆 “ (𝑅 “ 𝑥)) = 𝑧 ↔ ∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))))
57	56	anbi2d 639	. . . . 5 ⊢ (𝜑 → (((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧) ↔ ((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ ∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))))
58		19.42v 1972	. . . . . . 7 ⊢ (∃𝑦((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))) ↔ ((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ ∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))))
59		anass 472	. . . . . . . . 9 ⊢ (((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))) ↔ (𝑥 ⊆ 𝐴 ∧ (𝑧 ⊆ 𝐶 ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))))
60		ancom 464	. . . . . . . . . . 11 ⊢ ((((𝑅 “ 𝑥) = 𝑦 ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)) ∧ 𝑦 ⊆ 𝐵) ↔ (𝑦 ⊆ 𝐵 ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧))))
61	60	bianass 652	. . . . . . . . . 10 ⊢ ((𝑥 ⊆ 𝐴 ∧ (((𝑅 “ 𝑥) = 𝑦 ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)) ∧ 𝑦 ⊆ 𝐵)) ↔ ((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧))))
62		ancom 464	. . . . . . . . . . . 12 ⊢ (((((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧) ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ↔ ((𝑅 “ 𝑥) = 𝑦 ∧ (((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧) ∧ 𝑦 ⊆ 𝐵)))
63		ancom 464	. . . . . . . . . . . . . . 15 ⊢ ((𝑧 ⊆ 𝐶 ∧ 𝑦 ⊆ 𝐵) ↔ (𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶))
64	63	anbi1i 633	. . . . . . . . . . . . . 14 ⊢ (((𝑧 ⊆ 𝐶 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑆 “ 𝑦) = 𝑧) ↔ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧))
65	64	anbi1i 633	. . . . . . . . . . . . 13 ⊢ ((((𝑧 ⊆ 𝐶 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑆 “ 𝑦) = 𝑧) ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)) ↔ (((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧) ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))
66		biid 263	. . . . . . . . . . . . . . 15 ⊢ ((𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))) ↔ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))
67	66	bianass 652	. . . . . . . . . . . . . 14 ⊢ ((𝑧 ⊆ 𝐶 ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))) ↔ ((𝑧 ⊆ 𝐶 ∧ 𝑦 ⊆ 𝐵) ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))
68		anass 472	. . . . . . . . . . . . . 14 ⊢ ((((𝑧 ⊆ 𝐶 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑆 “ 𝑦) = 𝑧) ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)) ↔ ((𝑧 ⊆ 𝐶 ∧ 𝑦 ⊆ 𝐵) ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))
69	67, 68	bitr4i 280	. . . . . . . . . . . . 13 ⊢ ((𝑧 ⊆ 𝐶 ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))) ↔ (((𝑧 ⊆ 𝐶 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑆 “ 𝑦) = 𝑧) ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))
70		anass 472	. . . . . . . . . . . . 13 ⊢ (((((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧) ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ↔ (((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧) ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))
71	65, 69, 70	3bitr4i 305	. . . . . . . . . . . 12 ⊢ ((𝑧 ⊆ 𝐶 ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))) ↔ ((((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧) ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦))
72		anass 472	. . . . . . . . . . . 12 ⊢ ((((𝑅 “ 𝑥) = 𝑦 ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)) ∧ 𝑦 ⊆ 𝐵) ↔ ((𝑅 “ 𝑥) = 𝑦 ∧ (((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧) ∧ 𝑦 ⊆ 𝐵)))
73	62, 71, 72	3bitr4i 305	. . . . . . . . . . 11 ⊢ ((𝑧 ⊆ 𝐶 ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))) ↔ (((𝑅 “ 𝑥) = 𝑦 ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)) ∧ 𝑦 ⊆ 𝐵))
74	73	anbi2i 632	. . . . . . . . . 10 ⊢ ((𝑥 ⊆ 𝐴 ∧ (𝑧 ⊆ 𝐶 ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))) ↔ (𝑥 ⊆ 𝐴 ∧ (((𝑅 “ 𝑥) = 𝑦 ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)) ∧ 𝑦 ⊆ 𝐵)))
75		anass 472	. . . . . . . . . 10 ⊢ ((((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)) ↔ ((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧))))
76	61, 74, 75	3bitr4i 305	. . . . . . . . 9 ⊢ ((𝑥 ⊆ 𝐴 ∧ (𝑧 ⊆ 𝐶 ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))) ↔ (((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)))
77	59, 76	bitri 277	. . . . . . . 8 ⊢ (((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))) ↔ (((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)))
78	77	exbii 1867	. . . . . . 7 ⊢ (∃𝑦((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))) ↔ ∃𝑦(((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)))
79	58, 78	bitr3i 279	. . . . . 6 ⊢ (((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ ∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))) ↔ ∃𝑦(((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)))
80	79	a1i 11	. . . . 5 ⊢ (𝜑 → (((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ ∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))) ↔ ∃𝑦(((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧))))
81	4, 57, 80	3bitrd 307	. . . 4 ⊢ (𝜑 → (((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ ((𝑆 ∘ 𝑅) “ 𝑥) = 𝑧) ↔ ∃𝑦(((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧))))
82	81	opabbidv 5163	. . 3 ⊢ (𝜑 → {⟨𝑥, 𝑧⟩ ∣ ((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ ((𝑆 ∘ 𝑅) “ 𝑥) = 𝑧)} = {⟨𝑥, 𝑧⟩ ∣ ∃𝑦(((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧))})
83		bj-opabco 37641	. . 3 ⊢ ({⟨𝑦, 𝑧⟩ ∣ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)} ∘ {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦)}) = {⟨𝑥, 𝑧⟩ ∣ ∃𝑦(((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧))}
84	82, 83	eqtr4di 2814	. 2 ⊢ (𝜑 → {⟨𝑥, 𝑧⟩ ∣ ((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ ((𝑆 ∘ 𝑅) “ 𝑥) = 𝑧)} = ({⟨𝑦, 𝑧⟩ ∣ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)} ∘ {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦)}))
85		bj-imdirco.exc	. . 3 ⊢ (𝜑 → 𝐶 ∈ 𝑊)
86		bj-imdirco.arg2	. . . . 5 ⊢ (𝜑 → 𝑆 ⊆ (𝐵 × 𝐶))
87	86, 8	coss12d 14979	. . . 4 ⊢ (𝜑 → (𝑆 ∘ 𝑅) ⊆ ((𝐵 × 𝐶) ∘ (𝐴 × 𝐵)))
88		bj-xpcossxp 37642	. . . 4 ⊢ ((𝐵 × 𝐶) ∘ (𝐴 × 𝐵)) ⊆ (𝐴 × 𝐶)
89	87, 88	sstrdi 3946	. . 3 ⊢ (𝜑 → (𝑆 ∘ 𝑅) ⊆ (𝐴 × 𝐶))
90	5, 85, 89	bj-imdirval2 37636	. 2 ⊢ (𝜑 → ((𝐴𝒫*𝐶)‘(𝑆 ∘ 𝑅)) = {⟨𝑥, 𝑧⟩ ∣ ((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ ((𝑆 ∘ 𝑅) “ 𝑥) = 𝑧)})
91	6, 85, 86	bj-imdirval2 37636	. . 3 ⊢ (𝜑 → ((𝐵𝒫*𝐶)‘𝑆) = {⟨𝑦, 𝑧⟩ ∣ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)})
92	5, 6, 8	bj-imdirval2 37636	. . 3 ⊢ (𝜑 → ((𝐴𝒫*𝐵)‘𝑅) = {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦)})
93	91, 92	coeq12d 5832	. 2 ⊢ (𝜑 → (((𝐵𝒫*𝐶)‘𝑆) ∘ ((𝐴𝒫*𝐵)‘𝑅)) = ({⟨𝑦, 𝑧⟩ ∣ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)} ∘ {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦)}))
94	84, 90, 93	3eqtr4d 2806	1 ⊢ (𝜑 → ((𝐴𝒫*𝐶)‘(𝑆 ∘ 𝑅)) = (((𝐵𝒫*𝐶)‘𝑆) ∘ ((𝐴𝒫*𝐵)‘𝑅)))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 208   ∧ wa 399   ∨ wo 858   = wceq 1559  ∃wex 1798   ∈ wcel 2141  Vcvv 3453   ∪ cun 3900   ∩ cin 3901   ⊆ wss 3902  ∅c0 4283  ifcif 4477  {copab 5159   × cxp 5641   “ cima 5646   ∘ ccom 5647  ‘cfv 6516  (class class class)co 7391  𝒫_*cimdir 37631

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1814  ax-4 1828  ax-5 1929  ax-6 1986  ax-7 2027  ax-8 2143  ax-9 2151  ax-10 2174  ax-11 2190  ax-12 2211  ax-ext 2733  ax-rep 5224  ax-sep 5243  ax-nul 5253  ax-pow 5319  ax-pr 5387  ax-un 7713

This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3an 1099  df-tru 1562  df-fal 1572  df-ex 1799  df-nf 1803  df-sb 2090  df-mo 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-nfc 2910  df-ne 2957  df-ral 3076  df-rex 3086  df-reu 3367  df-rab 3414  df-v 3455  df-sbc 3743  df-csb 3851  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-nul 4284  df-if 4478  df-pw 4554  df-sn 4580  df-pr 4582  df-op 4586  df-uni 4863  df-iun 4948  df-br 5098  df-opab 5160  df-mpt 5179  df-id 5538  df-xp 5649  df-rel 5650  df-cnv 5651  df-co 5652  df-dm 5653  df-rn 5654  df-res 5655  df-ima 5656  df-iota 6472  df-fun 6518  df-fn 6519  df-f 6520  df-f1 6521  df-fo 6522  df-f1o 6523  df-fv 6524  df-ov 7394  df-oprab 7395  df-mpo 7396  df-imdir 37632

This theorem is referenced by: (None)