Users' Mathboxes Mathbox for BJ < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  bj-imdirco Structured version   Visualization version   GIF version

Theorem bj-imdirco 35661
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.
StepHypRef Expression
1 imaco 6203 . . . . . . . 8 ((𝑆𝑅) “ 𝑥) = (𝑆 “ (𝑅𝑥))
21eqeq1i 2741 . . . . . . 7 (((𝑆𝑅) “ 𝑥) = 𝑧 ↔ (𝑆 “ (𝑅𝑥)) = 𝑧)
32anbi2i 623 . . . . . 6 (((𝑥𝐴𝑧𝐶) ∧ ((𝑆𝑅) “ 𝑥) = 𝑧) ↔ ((𝑥𝐴𝑧𝐶) ∧ (𝑆 “ (𝑅𝑥)) = 𝑧))
43a1i 11 . . . . 5 (𝜑 → (((𝑥𝐴𝑧𝐶) ∧ ((𝑆𝑅) “ 𝑥) = 𝑧) ↔ ((𝑥𝐴𝑧𝐶) ∧ (𝑆 “ (𝑅𝑥)) = 𝑧)))
5 bj-imdirco.exa . . . . . . . . . . . . 13 (𝜑𝐴𝑈)
6 bj-imdirco.exb . . . . . . . . . . . . 13 (𝜑𝐵𝑉)
75, 6xpexd 7685 . . . . . . . . . . . 12 (𝜑 → (𝐴 × 𝐵) ∈ V)
8 bj-imdirco.arg1 . . . . . . . . . . . 12 (𝜑𝑅 ⊆ (𝐴 × 𝐵))
97, 8ssexd 5281 . . . . . . . . . . 11 (𝜑𝑅 ∈ V)
10 imaexg 7852 . . . . . . . . . . 11 (𝑅 ∈ V → (𝑅𝑥) ∈ V)
119, 10syl 17 . . . . . . . . . 10 (𝜑 → (𝑅𝑥) ∈ V)
12 imass1 6053 . . . . . . . . . . . . 13 (𝑅 ⊆ (𝐴 × 𝐵) → (𝑅𝑥) ⊆ ((𝐴 × 𝐵) “ 𝑥))
13 xpima 6134 . . . . . . . . . . . . . 14 ((𝐴 × 𝐵) “ 𝑥) = if((𝐴𝑥) = ∅, ∅, 𝐵)
14 simpr 485 . . . . . . . . . . . . . . . . . 18 (((𝐴𝑥) = ∅ ∧ 𝑢 ∈ ∅) → 𝑢 ∈ ∅)
15 simpr 485 . . . . . . . . . . . . . . . . . 18 ((¬ (𝐴𝑥) = ∅ ∧ 𝑢𝐵) → 𝑢𝐵)
1614, 15orim12i 907 . . . . . . . . . . . . . . . . 17 ((((𝐴𝑥) = ∅ ∧ 𝑢 ∈ ∅) ∨ (¬ (𝐴𝑥) = ∅ ∧ 𝑢𝐵)) → (𝑢 ∈ ∅ ∨ 𝑢𝐵))
17 elif 4529 . . . . . . . . . . . . . . . . 17 (𝑢 ∈ if((𝐴𝑥) = ∅, ∅, 𝐵) ↔ (((𝐴𝑥) = ∅ ∧ 𝑢 ∈ ∅) ∨ (¬ (𝐴𝑥) = ∅ ∧ 𝑢𝐵)))
18 elun 4108 . . . . . . . . . . . . . . . . 17 (𝑢 ∈ (∅ ∪ 𝐵) ↔ (𝑢 ∈ ∅ ∨ 𝑢𝐵))
1916, 17, 183imtr4i 291 . . . . . . . . . . . . . . . 16 (𝑢 ∈ if((𝐴𝑥) = ∅, ∅, 𝐵) → 𝑢 ∈ (∅ ∪ 𝐵))
2019ssriv 3948 . . . . . . . . . . . . . . 15 if((𝐴𝑥) = ∅, ∅, 𝐵) ⊆ (∅ ∪ 𝐵)
21 0ss 4356 . . . . . . . . . . . . . . . 16 ∅ ⊆ 𝐵
22 ssid 3966 . . . . . . . . . . . . . . . 16 𝐵𝐵
2321, 22unssi 4145 . . . . . . . . . . . . . . 15 (∅ ∪ 𝐵) ⊆ 𝐵
2420, 23sstri 3953 . . . . . . . . . . . . . 14 if((𝐴𝑥) = ∅, ∅, 𝐵) ⊆ 𝐵
2513, 24eqsstri 3978 . . . . . . . . . . . . 13 ((𝐴 × 𝐵) “ 𝑥) ⊆ 𝐵
2612, 25sstrdi 3956 . . . . . . . . . . . 12 (𝑅 ⊆ (𝐴 × 𝐵) → (𝑅𝑥) ⊆ 𝐵)
278, 26syl 17 . . . . . . . . . . 11 (𝜑 → (𝑅𝑥) ⊆ 𝐵)
28 eqidd 2737 . . . . . . . . . . 11 (𝜑 → (𝑅𝑥) = (𝑅𝑥))
2927, 28jca 512 . . . . . . . . . 10 (𝜑 → ((𝑅𝑥) ⊆ 𝐵 ∧ (𝑅𝑥) = (𝑅𝑥)))
30 sseq1 3969 . . . . . . . . . . 11 (𝑦 = (𝑅𝑥) → (𝑦𝐵 ↔ (𝑅𝑥) ⊆ 𝐵))
31 eqeq2 2748 . . . . . . . . . . 11 (𝑦 = (𝑅𝑥) → ((𝑅𝑥) = 𝑦 ↔ (𝑅𝑥) = (𝑅𝑥)))
3230, 31anbi12d 631 . . . . . . . . . 10 (𝑦 = (𝑅𝑥) → ((𝑦𝐵 ∧ (𝑅𝑥) = 𝑦) ↔ ((𝑅𝑥) ⊆ 𝐵 ∧ (𝑅𝑥) = (𝑅𝑥))))
3311, 29, 32spcedv 3557 . . . . . . . . 9 (𝜑 → ∃𝑦(𝑦𝐵 ∧ (𝑅𝑥) = 𝑦))
3433biantrurd 533 . . . . . . . 8 (𝜑 → ((𝑆 “ (𝑅𝑥)) = 𝑧 ↔ (∃𝑦(𝑦𝐵 ∧ (𝑅𝑥) = 𝑦) ∧ (𝑆 “ (𝑅𝑥)) = 𝑧)))
35 19.41v 1953 . . . . . . . . 9 (∃𝑦((𝑦𝐵 ∧ (𝑅𝑥) = 𝑦) ∧ (𝑆 “ (𝑅𝑥)) = 𝑧) ↔ (∃𝑦(𝑦𝐵 ∧ (𝑅𝑥) = 𝑦) ∧ (𝑆 “ (𝑅𝑥)) = 𝑧))
36 anass 469 . . . . . . . . . 10 (((𝑦𝐵 ∧ (𝑅𝑥) = 𝑦) ∧ (𝑆 “ (𝑅𝑥)) = 𝑧) ↔ (𝑦𝐵 ∧ ((𝑅𝑥) = 𝑦 ∧ (𝑆 “ (𝑅𝑥)) = 𝑧)))
3736exbii 1850 . . . . . . . . 9 (∃𝑦((𝑦𝐵 ∧ (𝑅𝑥) = 𝑦) ∧ (𝑆 “ (𝑅𝑥)) = 𝑧) ↔ ∃𝑦(𝑦𝐵 ∧ ((𝑅𝑥) = 𝑦 ∧ (𝑆 “ (𝑅𝑥)) = 𝑧)))
3835, 37bitr3i 276 . . . . . . . 8 ((∃𝑦(𝑦𝐵 ∧ (𝑅𝑥) = 𝑦) ∧ (𝑆 “ (𝑅𝑥)) = 𝑧) ↔ ∃𝑦(𝑦𝐵 ∧ ((𝑅𝑥) = 𝑦 ∧ (𝑆 “ (𝑅𝑥)) = 𝑧)))
3934, 38bitrdi 286 . . . . . . 7 (𝜑 → ((𝑆 “ (𝑅𝑥)) = 𝑧 ↔ ∃𝑦(𝑦𝐵 ∧ ((𝑅𝑥) = 𝑦 ∧ (𝑆 “ (𝑅𝑥)) = 𝑧))))
40 imaeq2 6009 . . . . . . . . . . . . 13 ((𝑅𝑥) = 𝑦 → (𝑆 “ (𝑅𝑥)) = (𝑆𝑦))
4140eqeq1d 2738 . . . . . . . . . . . 12 ((𝑅𝑥) = 𝑦 → ((𝑆 “ (𝑅𝑥)) = 𝑧 ↔ (𝑆𝑦) = 𝑧))
4241pm5.32i 575 . . . . . . . . . . 11 (((𝑅𝑥) = 𝑦 ∧ (𝑆 “ (𝑅𝑥)) = 𝑧) ↔ ((𝑅𝑥) = 𝑦 ∧ (𝑆𝑦) = 𝑧))
4342bianass 640 . . . . . . . . . 10 ((𝑦𝐵 ∧ ((𝑅𝑥) = 𝑦 ∧ (𝑆 “ (𝑅𝑥)) = 𝑧)) ↔ ((𝑦𝐵 ∧ (𝑅𝑥) = 𝑦) ∧ (𝑆𝑦) = 𝑧))
4443biancomi 463 . . . . . . . . 9 ((𝑦𝐵 ∧ ((𝑅𝑥) = 𝑦 ∧ (𝑆 “ (𝑅𝑥)) = 𝑧)) ↔ ((𝑆𝑦) = 𝑧 ∧ (𝑦𝐵 ∧ (𝑅𝑥) = 𝑦)))
4544exbii 1850 . . . . . . . 8 (∃𝑦(𝑦𝐵 ∧ ((𝑅𝑥) = 𝑦 ∧ (𝑆 “ (𝑅𝑥)) = 𝑧)) ↔ ∃𝑦((𝑆𝑦) = 𝑧 ∧ (𝑦𝐵 ∧ (𝑅𝑥) = 𝑦)))
4645a1i 11 . . . . . . 7 (𝜑 → (∃𝑦(𝑦𝐵 ∧ ((𝑅𝑥) = 𝑦 ∧ (𝑆 “ (𝑅𝑥)) = 𝑧)) ↔ ∃𝑦((𝑆𝑦) = 𝑧 ∧ (𝑦𝐵 ∧ (𝑅𝑥) = 𝑦))))
47 pm4.24 564 . . . . . . . . . . . . 13 (𝑦𝐵 ↔ (𝑦𝐵𝑦𝐵))
4847anbi1i 624 . . . . . . . . . . . 12 ((𝑦𝐵 ∧ (𝑅𝑥) = 𝑦) ↔ ((𝑦𝐵𝑦𝐵) ∧ (𝑅𝑥) = 𝑦))
49 anass 469 . . . . . . . . . . . 12 (((𝑦𝐵𝑦𝐵) ∧ (𝑅𝑥) = 𝑦) ↔ (𝑦𝐵 ∧ (𝑦𝐵 ∧ (𝑅𝑥) = 𝑦)))
5048, 49bitri 274 . . . . . . . . . . 11 ((𝑦𝐵 ∧ (𝑅𝑥) = 𝑦) ↔ (𝑦𝐵 ∧ (𝑦𝐵 ∧ (𝑅𝑥) = 𝑦)))
5150anbi2i 623 . . . . . . . . . 10 (((𝑆𝑦) = 𝑧 ∧ (𝑦𝐵 ∧ (𝑅𝑥) = 𝑦)) ↔ ((𝑆𝑦) = 𝑧 ∧ (𝑦𝐵 ∧ (𝑦𝐵 ∧ (𝑅𝑥) = 𝑦))))
52 an12 643 . . . . . . . . . 10 (((𝑆𝑦) = 𝑧 ∧ (𝑦𝐵 ∧ (𝑦𝐵 ∧ (𝑅𝑥) = 𝑦))) ↔ (𝑦𝐵 ∧ ((𝑆𝑦) = 𝑧 ∧ (𝑦𝐵 ∧ (𝑅𝑥) = 𝑦))))
5351, 52bitri 274 . . . . . . . . 9 (((𝑆𝑦) = 𝑧 ∧ (𝑦𝐵 ∧ (𝑅𝑥) = 𝑦)) ↔ (𝑦𝐵 ∧ ((𝑆𝑦) = 𝑧 ∧ (𝑦𝐵 ∧ (𝑅𝑥) = 𝑦))))
5453exbii 1850 . . . . . . . 8 (∃𝑦((𝑆𝑦) = 𝑧 ∧ (𝑦𝐵 ∧ (𝑅𝑥) = 𝑦)) ↔ ∃𝑦(𝑦𝐵 ∧ ((𝑆𝑦) = 𝑧 ∧ (𝑦𝐵 ∧ (𝑅𝑥) = 𝑦))))
5554a1i 11 . . . . . . 7 (𝜑 → (∃𝑦((𝑆𝑦) = 𝑧 ∧ (𝑦𝐵 ∧ (𝑅𝑥) = 𝑦)) ↔ ∃𝑦(𝑦𝐵 ∧ ((𝑆𝑦) = 𝑧 ∧ (𝑦𝐵 ∧ (𝑅𝑥) = 𝑦)))))
5639, 46, 553bitrd 304 . . . . . 6 (𝜑 → ((𝑆 “ (𝑅𝑥)) = 𝑧 ↔ ∃𝑦(𝑦𝐵 ∧ ((𝑆𝑦) = 𝑧 ∧ (𝑦𝐵 ∧ (𝑅𝑥) = 𝑦)))))
5756anbi2d 629 . . . . 5 (𝜑 → (((𝑥𝐴𝑧𝐶) ∧ (𝑆 “ (𝑅𝑥)) = 𝑧) ↔ ((𝑥𝐴𝑧𝐶) ∧ ∃𝑦(𝑦𝐵 ∧ ((𝑆𝑦) = 𝑧 ∧ (𝑦𝐵 ∧ (𝑅𝑥) = 𝑦))))))
58 19.42v 1957 . . . . . . 7 (∃𝑦((𝑥𝐴𝑧𝐶) ∧ (𝑦𝐵 ∧ ((𝑆𝑦) = 𝑧 ∧ (𝑦𝐵 ∧ (𝑅𝑥) = 𝑦)))) ↔ ((𝑥𝐴𝑧𝐶) ∧ ∃𝑦(𝑦𝐵 ∧ ((𝑆𝑦) = 𝑧 ∧ (𝑦𝐵 ∧ (𝑅𝑥) = 𝑦)))))
59 anass 469 . . . . . . . . 9 (((𝑥𝐴𝑧𝐶) ∧ (𝑦𝐵 ∧ ((𝑆𝑦) = 𝑧 ∧ (𝑦𝐵 ∧ (𝑅𝑥) = 𝑦)))) ↔ (𝑥𝐴 ∧ (𝑧𝐶 ∧ (𝑦𝐵 ∧ ((𝑆𝑦) = 𝑧 ∧ (𝑦𝐵 ∧ (𝑅𝑥) = 𝑦))))))
60 ancom 461 . . . . . . . . . . 11 ((((𝑅𝑥) = 𝑦 ∧ ((𝑦𝐵𝑧𝐶) ∧ (𝑆𝑦) = 𝑧)) ∧ 𝑦𝐵) ↔ (𝑦𝐵 ∧ ((𝑅𝑥) = 𝑦 ∧ ((𝑦𝐵𝑧𝐶) ∧ (𝑆𝑦) = 𝑧))))
6160bianass 640 . . . . . . . . . 10 ((𝑥𝐴 ∧ (((𝑅𝑥) = 𝑦 ∧ ((𝑦𝐵𝑧𝐶) ∧ (𝑆𝑦) = 𝑧)) ∧ 𝑦𝐵)) ↔ ((𝑥𝐴𝑦𝐵) ∧ ((𝑅𝑥) = 𝑦 ∧ ((𝑦𝐵𝑧𝐶) ∧ (𝑆𝑦) = 𝑧))))
62 ancom 461 . . . . . . . . . . . 12 (((((𝑦𝐵𝑧𝐶) ∧ (𝑆𝑦) = 𝑧) ∧ 𝑦𝐵) ∧ (𝑅𝑥) = 𝑦) ↔ ((𝑅𝑥) = 𝑦 ∧ (((𝑦𝐵𝑧𝐶) ∧ (𝑆𝑦) = 𝑧) ∧ 𝑦𝐵)))
63 ancom 461 . . . . . . . . . . . . . . 15 ((𝑧𝐶𝑦𝐵) ↔ (𝑦𝐵𝑧𝐶))
6463anbi1i 624 . . . . . . . . . . . . . 14 (((𝑧𝐶𝑦𝐵) ∧ (𝑆𝑦) = 𝑧) ↔ ((𝑦𝐵𝑧𝐶) ∧ (𝑆𝑦) = 𝑧))
6564anbi1i 624 . . . . . . . . . . . . 13 ((((𝑧𝐶𝑦𝐵) ∧ (𝑆𝑦) = 𝑧) ∧ (𝑦𝐵 ∧ (𝑅𝑥) = 𝑦)) ↔ (((𝑦𝐵𝑧𝐶) ∧ (𝑆𝑦) = 𝑧) ∧ (𝑦𝐵 ∧ (𝑅𝑥) = 𝑦)))
66 biid 260 . . . . . . . . . . . . . . 15 ((𝑦𝐵 ∧ ((𝑆𝑦) = 𝑧 ∧ (𝑦𝐵 ∧ (𝑅𝑥) = 𝑦))) ↔ (𝑦𝐵 ∧ ((𝑆𝑦) = 𝑧 ∧ (𝑦𝐵 ∧ (𝑅𝑥) = 𝑦))))
6766bianass 640 . . . . . . . . . . . . . 14 ((𝑧𝐶 ∧ (𝑦𝐵 ∧ ((𝑆𝑦) = 𝑧 ∧ (𝑦𝐵 ∧ (𝑅𝑥) = 𝑦)))) ↔ ((𝑧𝐶𝑦𝐵) ∧ ((𝑆𝑦) = 𝑧 ∧ (𝑦𝐵 ∧ (𝑅𝑥) = 𝑦))))
68 anass 469 . . . . . . . . . . . . . 14 ((((𝑧𝐶𝑦𝐵) ∧ (𝑆𝑦) = 𝑧) ∧ (𝑦𝐵 ∧ (𝑅𝑥) = 𝑦)) ↔ ((𝑧𝐶𝑦𝐵) ∧ ((𝑆𝑦) = 𝑧 ∧ (𝑦𝐵 ∧ (𝑅𝑥) = 𝑦))))
6967, 68bitr4i 277 . . . . . . . . . . . . 13 ((𝑧𝐶 ∧ (𝑦𝐵 ∧ ((𝑆𝑦) = 𝑧 ∧ (𝑦𝐵 ∧ (𝑅𝑥) = 𝑦)))) ↔ (((𝑧𝐶𝑦𝐵) ∧ (𝑆𝑦) = 𝑧) ∧ (𝑦𝐵 ∧ (𝑅𝑥) = 𝑦)))
70 anass 469 . . . . . . . . . . . . 13 (((((𝑦𝐵𝑧𝐶) ∧ (𝑆𝑦) = 𝑧) ∧ 𝑦𝐵) ∧ (𝑅𝑥) = 𝑦) ↔ (((𝑦𝐵𝑧𝐶) ∧ (𝑆𝑦) = 𝑧) ∧ (𝑦𝐵 ∧ (𝑅𝑥) = 𝑦)))
7165, 69, 703bitr4i 302 . . . . . . . . . . . 12 ((𝑧𝐶 ∧ (𝑦𝐵 ∧ ((𝑆𝑦) = 𝑧 ∧ (𝑦𝐵 ∧ (𝑅𝑥) = 𝑦)))) ↔ ((((𝑦𝐵𝑧𝐶) ∧ (𝑆𝑦) = 𝑧) ∧ 𝑦𝐵) ∧ (𝑅𝑥) = 𝑦))
72 anass 469 . . . . . . . . . . . 12 ((((𝑅𝑥) = 𝑦 ∧ ((𝑦𝐵𝑧𝐶) ∧ (𝑆𝑦) = 𝑧)) ∧ 𝑦𝐵) ↔ ((𝑅𝑥) = 𝑦 ∧ (((𝑦𝐵𝑧𝐶) ∧ (𝑆𝑦) = 𝑧) ∧ 𝑦𝐵)))
7362, 71, 723bitr4i 302 . . . . . . . . . . 11 ((𝑧𝐶 ∧ (𝑦𝐵 ∧ ((𝑆𝑦) = 𝑧 ∧ (𝑦𝐵 ∧ (𝑅𝑥) = 𝑦)))) ↔ (((𝑅𝑥) = 𝑦 ∧ ((𝑦𝐵𝑧𝐶) ∧ (𝑆𝑦) = 𝑧)) ∧ 𝑦𝐵))
7473anbi2i 623 . . . . . . . . . 10 ((𝑥𝐴 ∧ (𝑧𝐶 ∧ (𝑦𝐵 ∧ ((𝑆𝑦) = 𝑧 ∧ (𝑦𝐵 ∧ (𝑅𝑥) = 𝑦))))) ↔ (𝑥𝐴 ∧ (((𝑅𝑥) = 𝑦 ∧ ((𝑦𝐵𝑧𝐶) ∧ (𝑆𝑦) = 𝑧)) ∧ 𝑦𝐵)))
75 anass 469 . . . . . . . . . 10 ((((𝑥𝐴𝑦𝐵) ∧ (𝑅𝑥) = 𝑦) ∧ ((𝑦𝐵𝑧𝐶) ∧ (𝑆𝑦) = 𝑧)) ↔ ((𝑥𝐴𝑦𝐵) ∧ ((𝑅𝑥) = 𝑦 ∧ ((𝑦𝐵𝑧𝐶) ∧ (𝑆𝑦) = 𝑧))))
7661, 74, 753bitr4i 302 . . . . . . . . 9 ((𝑥𝐴 ∧ (𝑧𝐶 ∧ (𝑦𝐵 ∧ ((𝑆𝑦) = 𝑧 ∧ (𝑦𝐵 ∧ (𝑅𝑥) = 𝑦))))) ↔ (((𝑥𝐴𝑦𝐵) ∧ (𝑅𝑥) = 𝑦) ∧ ((𝑦𝐵𝑧𝐶) ∧ (𝑆𝑦) = 𝑧)))
7759, 76bitri 274 . . . . . . . 8 (((𝑥𝐴𝑧𝐶) ∧ (𝑦𝐵 ∧ ((𝑆𝑦) = 𝑧 ∧ (𝑦𝐵 ∧ (𝑅𝑥) = 𝑦)))) ↔ (((𝑥𝐴𝑦𝐵) ∧ (𝑅𝑥) = 𝑦) ∧ ((𝑦𝐵𝑧𝐶) ∧ (𝑆𝑦) = 𝑧)))
7877exbii 1850 . . . . . . 7 (∃𝑦((𝑥𝐴𝑧𝐶) ∧ (𝑦𝐵 ∧ ((𝑆𝑦) = 𝑧 ∧ (𝑦𝐵 ∧ (𝑅𝑥) = 𝑦)))) ↔ ∃𝑦(((𝑥𝐴𝑦𝐵) ∧ (𝑅𝑥) = 𝑦) ∧ ((𝑦𝐵𝑧𝐶) ∧ (𝑆𝑦) = 𝑧)))
7958, 78bitr3i 276 . . . . . 6 (((𝑥𝐴𝑧𝐶) ∧ ∃𝑦(𝑦𝐵 ∧ ((𝑆𝑦) = 𝑧 ∧ (𝑦𝐵 ∧ (𝑅𝑥) = 𝑦)))) ↔ ∃𝑦(((𝑥𝐴𝑦𝐵) ∧ (𝑅𝑥) = 𝑦) ∧ ((𝑦𝐵𝑧𝐶) ∧ (𝑆𝑦) = 𝑧)))
8079a1i 11 . . . . 5 (𝜑 → (((𝑥𝐴𝑧𝐶) ∧ ∃𝑦(𝑦𝐵 ∧ ((𝑆𝑦) = 𝑧 ∧ (𝑦𝐵 ∧ (𝑅𝑥) = 𝑦)))) ↔ ∃𝑦(((𝑥𝐴𝑦𝐵) ∧ (𝑅𝑥) = 𝑦) ∧ ((𝑦𝐵𝑧𝐶) ∧ (𝑆𝑦) = 𝑧))))
814, 57, 803bitrd 304 . . . 4 (𝜑 → (((𝑥𝐴𝑧𝐶) ∧ ((𝑆𝑅) “ 𝑥) = 𝑧) ↔ ∃𝑦(((𝑥𝐴𝑦𝐵) ∧ (𝑅𝑥) = 𝑦) ∧ ((𝑦𝐵𝑧𝐶) ∧ (𝑆𝑦) = 𝑧))))
8281opabbidv 5171 . . 3 (𝜑 → {⟨𝑥, 𝑧⟩ ∣ ((𝑥𝐴𝑧𝐶) ∧ ((𝑆𝑅) “ 𝑥) = 𝑧)} = {⟨𝑥, 𝑧⟩ ∣ ∃𝑦(((𝑥𝐴𝑦𝐵) ∧ (𝑅𝑥) = 𝑦) ∧ ((𝑦𝐵𝑧𝐶) ∧ (𝑆𝑦) = 𝑧))})
83 bj-opabco 35659 . . 3 ({⟨𝑦, 𝑧⟩ ∣ ((𝑦𝐵𝑧𝐶) ∧ (𝑆𝑦) = 𝑧)} ∘ {⟨𝑥, 𝑦⟩ ∣ ((𝑥𝐴𝑦𝐵) ∧ (𝑅𝑥) = 𝑦)}) = {⟨𝑥, 𝑧⟩ ∣ ∃𝑦(((𝑥𝐴𝑦𝐵) ∧ (𝑅𝑥) = 𝑦) ∧ ((𝑦𝐵𝑧𝐶) ∧ (𝑆𝑦) = 𝑧))}
8482, 83eqtr4di 2794 . 2 (𝜑 → {⟨𝑥, 𝑧⟩ ∣ ((𝑥𝐴𝑧𝐶) ∧ ((𝑆𝑅) “ 𝑥) = 𝑧)} = ({⟨𝑦, 𝑧⟩ ∣ ((𝑦𝐵𝑧𝐶) ∧ (𝑆𝑦) = 𝑧)} ∘ {⟨𝑥, 𝑦⟩ ∣ ((𝑥𝐴𝑦𝐵) ∧ (𝑅𝑥) = 𝑦)}))
85 bj-imdirco.exc . . 3 (𝜑𝐶𝑊)
86 bj-imdirco.arg2 . . . . 5 (𝜑𝑆 ⊆ (𝐵 × 𝐶))
8786, 8coss12d 14857 . . . 4 (𝜑 → (𝑆𝑅) ⊆ ((𝐵 × 𝐶) ∘ (𝐴 × 𝐵)))
88 bj-xpcossxp 35660 . . . 4 ((𝐵 × 𝐶) ∘ (𝐴 × 𝐵)) ⊆ (𝐴 × 𝐶)
8987, 88sstrdi 3956 . . 3 (𝜑 → (𝑆𝑅) ⊆ (𝐴 × 𝐶))
905, 85, 89bj-imdirval2 35654 . 2 (𝜑 → ((𝐴𝒫*𝐶)‘(𝑆𝑅)) = {⟨𝑥, 𝑧⟩ ∣ ((𝑥𝐴𝑧𝐶) ∧ ((𝑆𝑅) “ 𝑥) = 𝑧)})
916, 85, 86bj-imdirval2 35654 . . 3 (𝜑 → ((𝐵𝒫*𝐶)‘𝑆) = {⟨𝑦, 𝑧⟩ ∣ ((𝑦𝐵𝑧𝐶) ∧ (𝑆𝑦) = 𝑧)})
925, 6, 8bj-imdirval2 35654 . . 3 (𝜑 → ((𝐴𝒫*𝐵)‘𝑅) = {⟨𝑥, 𝑦⟩ ∣ ((𝑥𝐴𝑦𝐵) ∧ (𝑅𝑥) = 𝑦)})
9391, 92coeq12d 5820 . 2 (𝜑 → (((𝐵𝒫*𝐶)‘𝑆) ∘ ((𝐴𝒫*𝐵)‘𝑅)) = ({⟨𝑦, 𝑧⟩ ∣ ((𝑦𝐵𝑧𝐶) ∧ (𝑆𝑦) = 𝑧)} ∘ {⟨𝑥, 𝑦⟩ ∣ ((𝑥𝐴𝑦𝐵) ∧ (𝑅𝑥) = 𝑦)}))
9484, 90, 933eqtr4d 2786 1 (𝜑 → ((𝐴𝒫*𝐶)‘(𝑆𝑅)) = (((𝐵𝒫*𝐶)‘𝑆) ∘ ((𝐴𝒫*𝐵)‘𝑅)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 205  wa 396  wo 845   = wceq 1541  wex 1781  wcel 2106  Vcvv 3445  cun 3908  cin 3909  wss 3910  c0 4282  ifcif 4486  {copab 5167   × cxp 5631  cima 5636  ccom 5637  cfv 6496  (class class class)co 7357  𝒫*cimdir 35649
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 2707  ax-rep 5242  ax-sep 5256  ax-nul 5263  ax-pow 5320  ax-pr 5384  ax-un 7672
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 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2889  df-ne 2944  df-ral 3065  df-rex 3074  df-reu 3354  df-rab 3408  df-v 3447  df-sbc 3740  df-csb 3856  df-dif 3913  df-un 3915  df-in 3917  df-ss 3927  df-nul 4283  df-if 4487  df-pw 4562  df-sn 4587  df-pr 4589  df-op 4593  df-uni 4866  df-iun 4956  df-br 5106  df-opab 5168  df-mpt 5189  df-id 5531  df-xp 5639  df-rel 5640  df-cnv 5641  df-co 5642  df-dm 5643  df-rn 5644  df-res 5645  df-ima 5646  df-iota 6448  df-fun 6498  df-fn 6499  df-f 6500  df-f1 6501  df-fo 6502  df-f1o 6503  df-fv 6504  df-ov 7360  df-oprab 7361  df-mpo 7362  df-imdir 35650
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator