Theorem bj-imdirco 34870

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 6074	. . . . . . . 8 ⊢ ((𝑆 ∘ 𝑅) “ 𝑥) = (𝑆 “ (𝑅 “ 𝑥))
2	1	eqeq1i 2764	. . . . . . 7 ⊢ (((𝑆 ∘ 𝑅) “ 𝑥) = 𝑧 ↔ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧)
3	2	anbi2i 626	. . . . . 6 ⊢ (((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ ((𝑆 ∘ 𝑅) “ 𝑥) = 𝑧) ↔ ((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧))
4	3	a1i 11	. . . . 5 ⊢ (𝜑 → (((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ ((𝑆 ∘ 𝑅) “ 𝑥) = 𝑧) ↔ ((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧)))
5		bj-imdirco.exa	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐴 ∈ 𝑈)
6		bj-imdirco.exb	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐵 ∈ 𝑉)
7	5, 6	xpexd 7465	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐴 × 𝐵) ∈ V)
8		bj-imdirco.arg1	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑅 ⊆ (𝐴 × 𝐵))
9	7, 8	ssexd 5187	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑅 ∈ V)
10		imaexg 7618	. . . . . . . . . . 11 ⊢ (𝑅 ∈ V → (𝑅 “ 𝑥) ∈ V)
11	9, 10	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → (𝑅 “ 𝑥) ∈ V)
12		imass1 5929	. . . . . . . . . . . . 13 ⊢ (𝑅 ⊆ (𝐴 × 𝐵) → (𝑅 “ 𝑥) ⊆ ((𝐴 × 𝐵) “ 𝑥))
13		xpima 6004	. . . . . . . . . . . . . 14 ⊢ ((𝐴 × 𝐵) “ 𝑥) = if((𝐴 ∩ 𝑥) = ∅, ∅, 𝐵)
14		simpr 489	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐴 ∩ 𝑥) = ∅ ∧ 𝑢 ∈ ∅) → 𝑢 ∈ ∅)
15		simpr 489	. . . . . . . . . . . . . . . . . 18 ⊢ ((¬ (𝐴 ∩ 𝑥) = ∅ ∧ 𝑢 ∈ 𝐵) → 𝑢 ∈ 𝐵)
16	14, 15	orim12i 907	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝐴 ∩ 𝑥) = ∅ ∧ 𝑢 ∈ ∅) ∨ (¬ (𝐴 ∩ 𝑥) = ∅ ∧ 𝑢 ∈ 𝐵)) → (𝑢 ∈ ∅ ∨ 𝑢 ∈ 𝐵))
17		elif 4456	. . . . . . . . . . . . . . . . 17 ⊢ (𝑢 ∈ if((𝐴 ∩ 𝑥) = ∅, ∅, 𝐵) ↔ (((𝐴 ∩ 𝑥) = ∅ ∧ 𝑢 ∈ ∅) ∨ (¬ (𝐴 ∩ 𝑥) = ∅ ∧ 𝑢 ∈ 𝐵)))
18		elun 4050	. . . . . . . . . . . . . . . . 17 ⊢ (𝑢 ∈ (∅ ∪ 𝐵) ↔ (𝑢 ∈ ∅ ∨ 𝑢 ∈ 𝐵))
19	16, 17, 18	3imtr4i 296	. . . . . . . . . . . . . . . 16 ⊢ (𝑢 ∈ if((𝐴 ∩ 𝑥) = ∅, ∅, 𝐵) → 𝑢 ∈ (∅ ∪ 𝐵))
20	19	ssriv 3892	. . . . . . . . . . . . . . 15 ⊢ if((𝐴 ∩ 𝑥) = ∅, ∅, 𝐵) ⊆ (∅ ∪ 𝐵)
21		0ss 4286	. . . . . . . . . . . . . . . 16 ⊢ ∅ ⊆ 𝐵
22		ssid 3910	. . . . . . . . . . . . . . . 16 ⊢ 𝐵 ⊆ 𝐵
23	21, 22	unssi 4086	. . . . . . . . . . . . . . 15 ⊢ (∅ ∪ 𝐵) ⊆ 𝐵
24	20, 23	sstri 3897	. . . . . . . . . . . . . 14 ⊢ if((𝐴 ∩ 𝑥) = ∅, ∅, 𝐵) ⊆ 𝐵
25	13, 24	eqsstri 3922	. . . . . . . . . . . . 13 ⊢ ((𝐴 × 𝐵) “ 𝑥) ⊆ 𝐵
26	12, 25	sstrdi 3900	. . . . . . . . . . . 12 ⊢ (𝑅 ⊆ (𝐴 × 𝐵) → (𝑅 “ 𝑥) ⊆ 𝐵)
27	8, 26	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑅 “ 𝑥) ⊆ 𝐵)
28		eqidd 2760	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑅 “ 𝑥) = (𝑅 “ 𝑥))
29	27, 28	jca 516	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑅 “ 𝑥) ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = (𝑅 “ 𝑥)))
30		sseq1 3913	. . . . . . . . . . 11 ⊢ (𝑦 = (𝑅 “ 𝑥) → (𝑦 ⊆ 𝐵 ↔ (𝑅 “ 𝑥) ⊆ 𝐵))
31		eqeq2 2771	. . . . . . . . . . 11 ⊢ (𝑦 = (𝑅 “ 𝑥) → ((𝑅 “ 𝑥) = 𝑦 ↔ (𝑅 “ 𝑥) = (𝑅 “ 𝑥)))
32	30, 31	anbi12d 634	. . . . . . . . . 10 ⊢ (𝑦 = (𝑅 “ 𝑥) → ((𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦) ↔ ((𝑅 “ 𝑥) ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = (𝑅 “ 𝑥))))
33	11, 29, 32	spcedv 3515	. . . . . . . . 9 ⊢ (𝜑 → ∃𝑦(𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))
34	33	biantrurd 537	. . . . . . . 8 ⊢ (𝜑 → ((𝑆 “ (𝑅 “ 𝑥)) = 𝑧 ↔ (∃𝑦(𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦) ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧)))
35		19.41v 1951	. . . . . . . . 9 ⊢ (∃𝑦((𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦) ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧) ↔ (∃𝑦(𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦) ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧))
36		anass 473	. . . . . . . . . 10 ⊢ (((𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦) ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧) ↔ (𝑦 ⊆ 𝐵 ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧)))
37	36	exbii 1850	. . . . . . . . 9 ⊢ (∃𝑦((𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦) ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧) ↔ ∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧)))
38	35, 37	bitr3i 280	. . . . . . . 8 ⊢ ((∃𝑦(𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦) ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧) ↔ ∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧)))
39	34, 38	syl6bb 291	. . . . . . 7 ⊢ (𝜑 → ((𝑆 “ (𝑅 “ 𝑥)) = 𝑧 ↔ ∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧))))
40		imaeq2 5890	. . . . . . . . . . . . 13 ⊢ ((𝑅 “ 𝑥) = 𝑦 → (𝑆 “ (𝑅 “ 𝑥)) = (𝑆 “ 𝑦))
41	40	eqeq1d 2761	. . . . . . . . . . . 12 ⊢ ((𝑅 “ 𝑥) = 𝑦 → ((𝑆 “ (𝑅 “ 𝑥)) = 𝑧 ↔ (𝑆 “ 𝑦) = 𝑧))
42	41	pm5.32i 579	. . . . . . . . . . 11 ⊢ (((𝑅 “ 𝑥) = 𝑦 ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧) ↔ ((𝑅 “ 𝑥) = 𝑦 ∧ (𝑆 “ 𝑦) = 𝑧))
43	42	bianass 642	. . . . . . . . . 10 ⊢ ((𝑦 ⊆ 𝐵 ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧)) ↔ ((𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦) ∧ (𝑆 “ 𝑦) = 𝑧))
44	43	biancomi 467	. . . . . . . . 9 ⊢ ((𝑦 ⊆ 𝐵 ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧)) ↔ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))
45	44	exbii 1850	. . . . . . . 8 ⊢ (∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧)) ↔ ∃𝑦((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))
46	45	a1i 11	. . . . . . 7 ⊢ (𝜑 → (∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧)) ↔ ∃𝑦((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))
47		pm4.24 568	. . . . . . . . . . . . 13 ⊢ (𝑦 ⊆ 𝐵 ↔ (𝑦 ⊆ 𝐵 ∧ 𝑦 ⊆ 𝐵))
48	47	anbi1i 627	. . . . . . . . . . . 12 ⊢ ((𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦) ↔ ((𝑦 ⊆ 𝐵 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦))
49		anass 473	. . . . . . . . . . . 12 ⊢ (((𝑦 ⊆ 𝐵 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ↔ (𝑦 ⊆ 𝐵 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))
50	48, 49	bitri 278	. . . . . . . . . . 11 ⊢ ((𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦) ↔ (𝑦 ⊆ 𝐵 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))
51	50	anbi2i 626	. . . . . . . . . 10 ⊢ (((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)) ↔ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))
52		an12 645	. . . . . . . . . 10 ⊢ (((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))) ↔ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))
53	51, 52	bitri 278	. . . . . . . . 9 ⊢ (((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)) ↔ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))
54	53	exbii 1850	. . . . . . . 8 ⊢ (∃𝑦((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)) ↔ ∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))
55	54	a1i 11	. . . . . . 7 ⊢ (𝜑 → (∃𝑦((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)) ↔ ∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))))
56	39, 46, 55	3bitrd 309	. . . . . 6 ⊢ (𝜑 → ((𝑆 “ (𝑅 “ 𝑥)) = 𝑧 ↔ ∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))))
57	56	anbi2d 632	. . . . 5 ⊢ (𝜑 → (((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧) ↔ ((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ ∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))))
58		19.42v 1955	. . . . . . 7 ⊢ (∃𝑦((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))) ↔ ((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ ∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))))
59		anass 473	. . . . . . . . 9 ⊢ (((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))) ↔ (𝑥 ⊆ 𝐴 ∧ (𝑧 ⊆ 𝐶 ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))))
60		ancom 465	. . . . . . . . . . 11 ⊢ ((((𝑅 “ 𝑥) = 𝑦 ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)) ∧ 𝑦 ⊆ 𝐵) ↔ (𝑦 ⊆ 𝐵 ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧))))
61	60	bianass 642	. . . . . . . . . 10 ⊢ ((𝑥 ⊆ 𝐴 ∧ (((𝑅 “ 𝑥) = 𝑦 ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)) ∧ 𝑦 ⊆ 𝐵)) ↔ ((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧))))
62		ancom 465	. . . . . . . . . . . 12 ⊢ (((((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧) ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ↔ ((𝑅 “ 𝑥) = 𝑦 ∧ (((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧) ∧ 𝑦 ⊆ 𝐵)))
63		ancom 465	. . . . . . . . . . . . . . 15 ⊢ ((𝑧 ⊆ 𝐶 ∧ 𝑦 ⊆ 𝐵) ↔ (𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶))
64	63	anbi1i 627	. . . . . . . . . . . . . 14 ⊢ (((𝑧 ⊆ 𝐶 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑆 “ 𝑦) = 𝑧) ↔ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧))
65	64	anbi1i 627	. . . . . . . . . . . . 13 ⊢ ((((𝑧 ⊆ 𝐶 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑆 “ 𝑦) = 𝑧) ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)) ↔ (((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧) ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))
66		biid 264	. . . . . . . . . . . . . . 15 ⊢ ((𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))) ↔ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))
67	66	bianass 642	. . . . . . . . . . . . . 14 ⊢ ((𝑧 ⊆ 𝐶 ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))) ↔ ((𝑧 ⊆ 𝐶 ∧ 𝑦 ⊆ 𝐵) ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))
68		anass 473	. . . . . . . . . . . . . 14 ⊢ ((((𝑧 ⊆ 𝐶 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑆 “ 𝑦) = 𝑧) ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)) ↔ ((𝑧 ⊆ 𝐶 ∧ 𝑦 ⊆ 𝐵) ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))
69	67, 68	bitr4i 281	. . . . . . . . . . . . 13 ⊢ ((𝑧 ⊆ 𝐶 ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))) ↔ (((𝑧 ⊆ 𝐶 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑆 “ 𝑦) = 𝑧) ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))
70		anass 473	. . . . . . . . . . . . 13 ⊢ (((((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧) ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ↔ (((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧) ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))
71	65, 69, 70	3bitr4i 307	. . . . . . . . . . . 12 ⊢ ((𝑧 ⊆ 𝐶 ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))) ↔ ((((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧) ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦))
72		anass 473	. . . . . . . . . . . 12 ⊢ ((((𝑅 “ 𝑥) = 𝑦 ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)) ∧ 𝑦 ⊆ 𝐵) ↔ ((𝑅 “ 𝑥) = 𝑦 ∧ (((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧) ∧ 𝑦 ⊆ 𝐵)))
73	62, 71, 72	3bitr4i 307	. . . . . . . . . . 11 ⊢ ((𝑧 ⊆ 𝐶 ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))) ↔ (((𝑅 “ 𝑥) = 𝑦 ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)) ∧ 𝑦 ⊆ 𝐵))
74	73	anbi2i 626	. . . . . . . . . 10 ⊢ ((𝑥 ⊆ 𝐴 ∧ (𝑧 ⊆ 𝐶 ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))) ↔ (𝑥 ⊆ 𝐴 ∧ (((𝑅 “ 𝑥) = 𝑦 ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)) ∧ 𝑦 ⊆ 𝐵)))
75		anass 473	. . . . . . . . . 10 ⊢ ((((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)) ↔ ((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧))))
76	61, 74, 75	3bitr4i 307	. . . . . . . . 9 ⊢ ((𝑥 ⊆ 𝐴 ∧ (𝑧 ⊆ 𝐶 ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))) ↔ (((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)))
77	59, 76	bitri 278	. . . . . . . 8 ⊢ (((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))) ↔ (((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)))
78	77	exbii 1850	. . . . . . 7 ⊢ (∃𝑦((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))) ↔ ∃𝑦(((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)))
79	58, 78	bitr3i 280	. . . . . 6 ⊢ (((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ ∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))) ↔ ∃𝑦(((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)))
80	79	a1i 11	. . . . 5 ⊢ (𝜑 → (((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ ∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))) ↔ ∃𝑦(((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧))))
81	4, 57, 80	3bitrd 309	. . . 4 ⊢ (𝜑 → (((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ ((𝑆 ∘ 𝑅) “ 𝑥) = 𝑧) ↔ ∃𝑦(((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧))))
82	81	opabbidv 5091	. . 3 ⊢ (𝜑 → {⟨𝑥, 𝑧⟩ ∣ ((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ ((𝑆 ∘ 𝑅) “ 𝑥) = 𝑧)} = {⟨𝑥, 𝑧⟩ ∣ ∃𝑦(((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧))})
83		bj-opabco 34868	. . 3 ⊢ ({⟨𝑦, 𝑧⟩ ∣ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)} ∘ {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦)}) = {⟨𝑥, 𝑧⟩ ∣ ∃𝑦(((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧))}
84	82, 83	eqtr4di 2812	. 2 ⊢ (𝜑 → {⟨𝑥, 𝑧⟩ ∣ ((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ ((𝑆 ∘ 𝑅) “ 𝑥) = 𝑧)} = ({⟨𝑦, 𝑧⟩ ∣ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)} ∘ {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦)}))
85		bj-imdirco.exc	. . 3 ⊢ (𝜑 → 𝐶 ∈ 𝑊)
86		bj-imdirco.arg2	. . . . 5 ⊢ (𝜑 → 𝑆 ⊆ (𝐵 × 𝐶))
87	86, 8	coss12d 14364	. . . 4 ⊢ (𝜑 → (𝑆 ∘ 𝑅) ⊆ ((𝐵 × 𝐶) ∘ (𝐴 × 𝐵)))
88		bj-xpcossxp 34869	. . . 4 ⊢ ((𝐵 × 𝐶) ∘ (𝐴 × 𝐵)) ⊆ (𝐴 × 𝐶)
89	87, 88	sstrdi 3900	. . 3 ⊢ (𝜑 → (𝑆 ∘ 𝑅) ⊆ (𝐴 × 𝐶))
90	5, 85, 89	bj-imdirval2 34863	. 2 ⊢ (𝜑 → ((𝐴𝒫*𝐶)‘(𝑆 ∘ 𝑅)) = {⟨𝑥, 𝑧⟩ ∣ ((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ ((𝑆 ∘ 𝑅) “ 𝑥) = 𝑧)})
91	6, 85, 86	bj-imdirval2 34863	. . 3 ⊢ (𝜑 → ((𝐵𝒫*𝐶)‘𝑆) = {⟨𝑦, 𝑧⟩ ∣ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)})
92	5, 6, 8	bj-imdirval2 34863	. . 3 ⊢ (𝜑 → ((𝐴𝒫*𝐵)‘𝑅) = {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦)})
93	91, 92	coeq12d 5697	. 2 ⊢ (𝜑 → (((𝐵𝒫*𝐶)‘𝑆) ∘ ((𝐴𝒫*𝐵)‘𝑅)) = ({⟨𝑦, 𝑧⟩ ∣ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)} ∘ {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦)}))
94	84, 90, 93	3eqtr4d 2804	1 ⊢ (𝜑 → ((𝐴𝒫*𝐶)‘(𝑆 ∘ 𝑅)) = (((𝐵𝒫*𝐶)‘𝑆) ∘ ((𝐴𝒫*𝐵)‘𝑅)))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 400   ∨ wo 845   = wceq 1539  ∃wex 1782   ∈ wcel 2112  Vcvv 3407   ∪ cun 3852   ∩ cin 3853   ⊆ wss 3854  ∅c0 4221  ifcif 4413  {copab 5087   × cxp 5515   “ cima 5520   ∘ ccom 5521  ‘cfv 6328  (class class class)co 7143  𝒫_*cimdir 34858

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 1912  ax-6 1971  ax-7 2016  ax-8 2114  ax-9 2122  ax-10 2143  ax-11 2159  ax-12 2176  ax-ext 2730  ax-rep 5149  ax-sep 5162  ax-nul 5169  ax-pow 5227  ax-pr 5291  ax-un 7452

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 846  df-3an 1087  df-tru 1542  df-ex 1783  df-nf 1787  df-sb 2071  df-mo 2558  df-eu 2589  df-clab 2737  df-cleq 2751  df-clel 2831  df-nfc 2899  df-ne 2950  df-ral 3073  df-rex 3074  df-reu 3075  df-rab 3077  df-v 3409  df-sbc 3694  df-csb 3802  df-dif 3857  df-un 3859  df-in 3861  df-ss 3871  df-nul 4222  df-if 4414  df-pw 4489  df-sn 4516  df-pr 4518  df-op 4522  df-uni 4792  df-iun 4878  df-br 5026  df-opab 5088  df-mpt 5106  df-id 5423  df-xp 5523  df-rel 5524  df-cnv 5525  df-co 5526  df-dm 5527  df-rn 5528  df-res 5529  df-ima 5530  df-iota 6287  df-fun 6330  df-fn 6331  df-f 6332  df-f1 6333  df-fo 6334  df-f1o 6335  df-fv 6336  df-ov 7146  df-oprab 7147  df-mpo 7148  df-imdir 34859

This theorem is referenced by: (None)