Theorem bj-imdirco 36163

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 6250	. . . . . . . 8 ⊢ ((𝑆 ∘ 𝑅) “ 𝑥) = (𝑆 “ (𝑅 “ 𝑥))
2	1	eqeq1i 2737	. . . . . . 7 ⊢ (((𝑆 ∘ 𝑅) “ 𝑥) = 𝑧 ↔ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧)
3	2	anbi2i 623	. . . . . 6 ⊢ (((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ ((𝑆 ∘ 𝑅) “ 𝑥) = 𝑧) ↔ ((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧))
4	3	a1i 11	. . . . 5 ⊢ (𝜑 → (((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ ((𝑆 ∘ 𝑅) “ 𝑥) = 𝑧) ↔ ((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧)))
5		bj-imdirco.exa	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐴 ∈ 𝑈)
6		bj-imdirco.exb	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐵 ∈ 𝑉)
7	5, 6	xpexd 7740	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐴 × 𝐵) ∈ V)
8		bj-imdirco.arg1	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑅 ⊆ (𝐴 × 𝐵))
9	7, 8	ssexd 5324	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑅 ∈ V)
10		imaexg 7908	. . . . . . . . . . 11 ⊢ (𝑅 ∈ V → (𝑅 “ 𝑥) ∈ V)
11	9, 10	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → (𝑅 “ 𝑥) ∈ V)
12		imass1 6100	. . . . . . . . . . . . 13 ⊢ (𝑅 ⊆ (𝐴 × 𝐵) → (𝑅 “ 𝑥) ⊆ ((𝐴 × 𝐵) “ 𝑥))
13		xpima 6181	. . . . . . . . . . . . . 14 ⊢ ((𝐴 × 𝐵) “ 𝑥) = if((𝐴 ∩ 𝑥) = ∅, ∅, 𝐵)
14		simpr 485	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐴 ∩ 𝑥) = ∅ ∧ 𝑢 ∈ ∅) → 𝑢 ∈ ∅)
15		simpr 485	. . . . . . . . . . . . . . . . . 18 ⊢ ((¬ (𝐴 ∩ 𝑥) = ∅ ∧ 𝑢 ∈ 𝐵) → 𝑢 ∈ 𝐵)
16	14, 15	orim12i 907	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝐴 ∩ 𝑥) = ∅ ∧ 𝑢 ∈ ∅) ∨ (¬ (𝐴 ∩ 𝑥) = ∅ ∧ 𝑢 ∈ 𝐵)) → (𝑢 ∈ ∅ ∨ 𝑢 ∈ 𝐵))
17		elif 4571	. . . . . . . . . . . . . . . . 17 ⊢ (𝑢 ∈ if((𝐴 ∩ 𝑥) = ∅, ∅, 𝐵) ↔ (((𝐴 ∩ 𝑥) = ∅ ∧ 𝑢 ∈ ∅) ∨ (¬ (𝐴 ∩ 𝑥) = ∅ ∧ 𝑢 ∈ 𝐵)))
18		elun 4148	. . . . . . . . . . . . . . . . 17 ⊢ (𝑢 ∈ (∅ ∪ 𝐵) ↔ (𝑢 ∈ ∅ ∨ 𝑢 ∈ 𝐵))
19	16, 17, 18	3imtr4i 291	. . . . . . . . . . . . . . . 16 ⊢ (𝑢 ∈ if((𝐴 ∩ 𝑥) = ∅, ∅, 𝐵) → 𝑢 ∈ (∅ ∪ 𝐵))
20	19	ssriv 3986	. . . . . . . . . . . . . . 15 ⊢ if((𝐴 ∩ 𝑥) = ∅, ∅, 𝐵) ⊆ (∅ ∪ 𝐵)
21		0ss 4396	. . . . . . . . . . . . . . . 16 ⊢ ∅ ⊆ 𝐵
22		ssid 4004	. . . . . . . . . . . . . . . 16 ⊢ 𝐵 ⊆ 𝐵
23	21, 22	unssi 4185	. . . . . . . . . . . . . . 15 ⊢ (∅ ∪ 𝐵) ⊆ 𝐵
24	20, 23	sstri 3991	. . . . . . . . . . . . . 14 ⊢ if((𝐴 ∩ 𝑥) = ∅, ∅, 𝐵) ⊆ 𝐵
25	13, 24	eqsstri 4016	. . . . . . . . . . . . 13 ⊢ ((𝐴 × 𝐵) “ 𝑥) ⊆ 𝐵
26	12, 25	sstrdi 3994	. . . . . . . . . . . 12 ⊢ (𝑅 ⊆ (𝐴 × 𝐵) → (𝑅 “ 𝑥) ⊆ 𝐵)
27	8, 26	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑅 “ 𝑥) ⊆ 𝐵)
28		eqidd 2733	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑅 “ 𝑥) = (𝑅 “ 𝑥))
29	27, 28	jca 512	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑅 “ 𝑥) ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = (𝑅 “ 𝑥)))
30		sseq1 4007	. . . . . . . . . . 11 ⊢ (𝑦 = (𝑅 “ 𝑥) → (𝑦 ⊆ 𝐵 ↔ (𝑅 “ 𝑥) ⊆ 𝐵))
31		eqeq2 2744	. . . . . . . . . . 11 ⊢ (𝑦 = (𝑅 “ 𝑥) → ((𝑅 “ 𝑥) = 𝑦 ↔ (𝑅 “ 𝑥) = (𝑅 “ 𝑥)))
32	30, 31	anbi12d 631	. . . . . . . . . 10 ⊢ (𝑦 = (𝑅 “ 𝑥) → ((𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦) ↔ ((𝑅 “ 𝑥) ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = (𝑅 “ 𝑥))))
33	11, 29, 32	spcedv 3588	. . . . . . . . 9 ⊢ (𝜑 → ∃𝑦(𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))
34	33	biantrurd 533	. . . . . . . 8 ⊢ (𝜑 → ((𝑆 “ (𝑅 “ 𝑥)) = 𝑧 ↔ (∃𝑦(𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦) ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧)))
35		19.41v 1953	. . . . . . . . 9 ⊢ (∃𝑦((𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦) ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧) ↔ (∃𝑦(𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦) ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧))
36		anass 469	. . . . . . . . . 10 ⊢ (((𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦) ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧) ↔ (𝑦 ⊆ 𝐵 ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧)))
37	36	exbii 1850	. . . . . . . . 9 ⊢ (∃𝑦((𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦) ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧) ↔ ∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧)))
38	35, 37	bitr3i 276	. . . . . . . 8 ⊢ ((∃𝑦(𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦) ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧) ↔ ∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧)))
39	34, 38	bitrdi 286	. . . . . . 7 ⊢ (𝜑 → ((𝑆 “ (𝑅 “ 𝑥)) = 𝑧 ↔ ∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧))))
40		imaeq2 6055	. . . . . . . . . . . . 13 ⊢ ((𝑅 “ 𝑥) = 𝑦 → (𝑆 “ (𝑅 “ 𝑥)) = (𝑆 “ 𝑦))
41	40	eqeq1d 2734	. . . . . . . . . . . 12 ⊢ ((𝑅 “ 𝑥) = 𝑦 → ((𝑆 “ (𝑅 “ 𝑥)) = 𝑧 ↔ (𝑆 “ 𝑦) = 𝑧))
42	41	pm5.32i 575	. . . . . . . . . . 11 ⊢ (((𝑅 “ 𝑥) = 𝑦 ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧) ↔ ((𝑅 “ 𝑥) = 𝑦 ∧ (𝑆 “ 𝑦) = 𝑧))
43	42	bianass 640	. . . . . . . . . 10 ⊢ ((𝑦 ⊆ 𝐵 ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧)) ↔ ((𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦) ∧ (𝑆 “ 𝑦) = 𝑧))
44	43	biancomi 463	. . . . . . . . 9 ⊢ ((𝑦 ⊆ 𝐵 ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧)) ↔ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))
45	44	exbii 1850	. . . . . . . 8 ⊢ (∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧)) ↔ ∃𝑦((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))
46	45	a1i 11	. . . . . . 7 ⊢ (𝜑 → (∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧)) ↔ ∃𝑦((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))
47		pm4.24 564	. . . . . . . . . . . . 13 ⊢ (𝑦 ⊆ 𝐵 ↔ (𝑦 ⊆ 𝐵 ∧ 𝑦 ⊆ 𝐵))
48	47	anbi1i 624	. . . . . . . . . . . 12 ⊢ ((𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦) ↔ ((𝑦 ⊆ 𝐵 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦))
49		anass 469	. . . . . . . . . . . 12 ⊢ (((𝑦 ⊆ 𝐵 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ↔ (𝑦 ⊆ 𝐵 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))
50	48, 49	bitri 274	. . . . . . . . . . 11 ⊢ ((𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦) ↔ (𝑦 ⊆ 𝐵 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))
51	50	anbi2i 623	. . . . . . . . . 10 ⊢ (((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)) ↔ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))
52		an12 643	. . . . . . . . . 10 ⊢ (((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))) ↔ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))
53	51, 52	bitri 274	. . . . . . . . 9 ⊢ (((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)) ↔ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))
54	53	exbii 1850	. . . . . . . 8 ⊢ (∃𝑦((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)) ↔ ∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))
55	54	a1i 11	. . . . . . 7 ⊢ (𝜑 → (∃𝑦((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)) ↔ ∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))))
56	39, 46, 55	3bitrd 304	. . . . . 6 ⊢ (𝜑 → ((𝑆 “ (𝑅 “ 𝑥)) = 𝑧 ↔ ∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))))
57	56	anbi2d 629	. . . . 5 ⊢ (𝜑 → (((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ (𝑅 “ 𝑥)) = 𝑧) ↔ ((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ ∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))))
58		19.42v 1957	. . . . . . 7 ⊢ (∃𝑦((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))) ↔ ((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ ∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))))
59		anass 469	. . . . . . . . 9 ⊢ (((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))) ↔ (𝑥 ⊆ 𝐴 ∧ (𝑧 ⊆ 𝐶 ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))))
60		ancom 461	. . . . . . . . . . 11 ⊢ ((((𝑅 “ 𝑥) = 𝑦 ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)) ∧ 𝑦 ⊆ 𝐵) ↔ (𝑦 ⊆ 𝐵 ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧))))
61	60	bianass 640	. . . . . . . . . 10 ⊢ ((𝑥 ⊆ 𝐴 ∧ (((𝑅 “ 𝑥) = 𝑦 ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)) ∧ 𝑦 ⊆ 𝐵)) ↔ ((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧))))
62		ancom 461	. . . . . . . . . . . 12 ⊢ (((((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧) ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ↔ ((𝑅 “ 𝑥) = 𝑦 ∧ (((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧) ∧ 𝑦 ⊆ 𝐵)))
63		ancom 461	. . . . . . . . . . . . . . 15 ⊢ ((𝑧 ⊆ 𝐶 ∧ 𝑦 ⊆ 𝐵) ↔ (𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶))
64	63	anbi1i 624	. . . . . . . . . . . . . 14 ⊢ (((𝑧 ⊆ 𝐶 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑆 “ 𝑦) = 𝑧) ↔ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧))
65	64	anbi1i 624	. . . . . . . . . . . . 13 ⊢ ((((𝑧 ⊆ 𝐶 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑆 “ 𝑦) = 𝑧) ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)) ↔ (((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧) ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))
66		biid 260	. . . . . . . . . . . . . . 15 ⊢ ((𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))) ↔ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))
67	66	bianass 640	. . . . . . . . . . . . . 14 ⊢ ((𝑧 ⊆ 𝐶 ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))) ↔ ((𝑧 ⊆ 𝐶 ∧ 𝑦 ⊆ 𝐵) ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))
68		anass 469	. . . . . . . . . . . . . 14 ⊢ ((((𝑧 ⊆ 𝐶 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑆 “ 𝑦) = 𝑧) ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)) ↔ ((𝑧 ⊆ 𝐶 ∧ 𝑦 ⊆ 𝐵) ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))
69	67, 68	bitr4i 277	. . . . . . . . . . . . 13 ⊢ ((𝑧 ⊆ 𝐶 ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))) ↔ (((𝑧 ⊆ 𝐶 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑆 “ 𝑦) = 𝑧) ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))
70		anass 469	. . . . . . . . . . . . 13 ⊢ (((((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧) ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ↔ (((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧) ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))
71	65, 69, 70	3bitr4i 302	. . . . . . . . . . . 12 ⊢ ((𝑧 ⊆ 𝐶 ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))) ↔ ((((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧) ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦))
72		anass 469	. . . . . . . . . . . 12 ⊢ ((((𝑅 “ 𝑥) = 𝑦 ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)) ∧ 𝑦 ⊆ 𝐵) ↔ ((𝑅 “ 𝑥) = 𝑦 ∧ (((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧) ∧ 𝑦 ⊆ 𝐵)))
73	62, 71, 72	3bitr4i 302	. . . . . . . . . . 11 ⊢ ((𝑧 ⊆ 𝐶 ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))) ↔ (((𝑅 “ 𝑥) = 𝑦 ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)) ∧ 𝑦 ⊆ 𝐵))
74	73	anbi2i 623	. . . . . . . . . 10 ⊢ ((𝑥 ⊆ 𝐴 ∧ (𝑧 ⊆ 𝐶 ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))) ↔ (𝑥 ⊆ 𝐴 ∧ (((𝑅 “ 𝑥) = 𝑦 ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)) ∧ 𝑦 ⊆ 𝐵)))
75		anass 469	. . . . . . . . . 10 ⊢ ((((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)) ↔ ((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ ((𝑅 “ 𝑥) = 𝑦 ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧))))
76	61, 74, 75	3bitr4i 302	. . . . . . . . 9 ⊢ ((𝑥 ⊆ 𝐴 ∧ (𝑧 ⊆ 𝐶 ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦))))) ↔ (((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)))
77	59, 76	bitri 274	. . . . . . . 8 ⊢ (((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))) ↔ (((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)))
78	77	exbii 1850	. . . . . . 7 ⊢ (∃𝑦((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))) ↔ ∃𝑦(((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)))
79	58, 78	bitr3i 276	. . . . . 6 ⊢ (((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ ∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))) ↔ ∃𝑦(((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)))
80	79	a1i 11	. . . . 5 ⊢ (𝜑 → (((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ ∃𝑦(𝑦 ⊆ 𝐵 ∧ ((𝑆 “ 𝑦) = 𝑧 ∧ (𝑦 ⊆ 𝐵 ∧ (𝑅 “ 𝑥) = 𝑦)))) ↔ ∃𝑦(((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧))))
81	4, 57, 80	3bitrd 304	. . . 4 ⊢ (𝜑 → (((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ ((𝑆 ∘ 𝑅) “ 𝑥) = 𝑧) ↔ ∃𝑦(((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧))))
82	81	opabbidv 5214	. . 3 ⊢ (𝜑 → {⟨𝑥, 𝑧⟩ ∣ ((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ ((𝑆 ∘ 𝑅) “ 𝑥) = 𝑧)} = {⟨𝑥, 𝑧⟩ ∣ ∃𝑦(((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧))})
83		bj-opabco 36161	. . 3 ⊢ ({⟨𝑦, 𝑧⟩ ∣ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)} ∘ {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦)}) = {⟨𝑥, 𝑧⟩ ∣ ∃𝑦(((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦) ∧ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧))}
84	82, 83	eqtr4di 2790	. 2 ⊢ (𝜑 → {⟨𝑥, 𝑧⟩ ∣ ((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ ((𝑆 ∘ 𝑅) “ 𝑥) = 𝑧)} = ({⟨𝑦, 𝑧⟩ ∣ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)} ∘ {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦)}))
85		bj-imdirco.exc	. . 3 ⊢ (𝜑 → 𝐶 ∈ 𝑊)
86		bj-imdirco.arg2	. . . . 5 ⊢ (𝜑 → 𝑆 ⊆ (𝐵 × 𝐶))
87	86, 8	coss12d 14921	. . . 4 ⊢ (𝜑 → (𝑆 ∘ 𝑅) ⊆ ((𝐵 × 𝐶) ∘ (𝐴 × 𝐵)))
88		bj-xpcossxp 36162	. . . 4 ⊢ ((𝐵 × 𝐶) ∘ (𝐴 × 𝐵)) ⊆ (𝐴 × 𝐶)
89	87, 88	sstrdi 3994	. . 3 ⊢ (𝜑 → (𝑆 ∘ 𝑅) ⊆ (𝐴 × 𝐶))
90	5, 85, 89	bj-imdirval2 36156	. 2 ⊢ (𝜑 → ((𝐴𝒫*𝐶)‘(𝑆 ∘ 𝑅)) = {⟨𝑥, 𝑧⟩ ∣ ((𝑥 ⊆ 𝐴 ∧ 𝑧 ⊆ 𝐶) ∧ ((𝑆 ∘ 𝑅) “ 𝑥) = 𝑧)})
91	6, 85, 86	bj-imdirval2 36156	. . 3 ⊢ (𝜑 → ((𝐵𝒫*𝐶)‘𝑆) = {⟨𝑦, 𝑧⟩ ∣ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)})
92	5, 6, 8	bj-imdirval2 36156	. . 3 ⊢ (𝜑 → ((𝐴𝒫*𝐵)‘𝑅) = {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦)})
93	91, 92	coeq12d 5864	. 2 ⊢ (𝜑 → (((𝐵𝒫*𝐶)‘𝑆) ∘ ((𝐴𝒫*𝐵)‘𝑅)) = ({⟨𝑦, 𝑧⟩ ∣ ((𝑦 ⊆ 𝐵 ∧ 𝑧 ⊆ 𝐶) ∧ (𝑆 “ 𝑦) = 𝑧)} ∘ {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝐵) ∧ (𝑅 “ 𝑥) = 𝑦)}))
94	84, 90, 93	3eqtr4d 2782	1 ⊢ (𝜑 → ((𝐴𝒫*𝐶)‘(𝑆 ∘ 𝑅)) = (((𝐵𝒫*𝐶)‘𝑆) ∘ ((𝐴𝒫*𝐵)‘𝑅)))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 205   ∧ wa 396   ∨ wo 845   = wceq 1541  ∃wex 1781   ∈ wcel 2106  Vcvv 3474   ∪ cun 3946   ∩ cin 3947   ⊆ wss 3948  ∅c0 4322  ifcif 4528  {copab 5210   × cxp 5674   “ cima 5679   ∘ ccom 5680  ‘cfv 6543  (class class class)co 7411  𝒫_*cimdir 36151

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 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2703  ax-rep 5285  ax-sep 5299  ax-nul 5306  ax-pow 5363  ax-pr 5427  ax-un 7727

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2534  df-eu 2563  df-clab 2710  df-cleq 2724  df-clel 2810  df-nfc 2885  df-ne 2941  df-ral 3062  df-rex 3071  df-reu 3377  df-rab 3433  df-v 3476  df-sbc 3778  df-csb 3894  df-dif 3951  df-un 3953  df-in 3955  df-ss 3965  df-nul 4323  df-if 4529  df-pw 4604  df-sn 4629  df-pr 4631  df-op 4635  df-uni 4909  df-iun 4999  df-br 5149  df-opab 5211  df-mpt 5232  df-id 5574  df-xp 5682  df-rel 5683  df-cnv 5684  df-co 5685  df-dm 5686  df-rn 5687  df-res 5688  df-ima 5689  df-iota 6495  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-ov 7414  df-oprab 7415  df-mpo 7416  df-imdir 36152

This theorem is referenced by: (None)