Users' Mathboxes Mathbox for Scott Fenton < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  brimg Structured version   Visualization version   GIF version

Theorem brimg 32044
Description: Binary relation form of the Img function. (Contributed by Scott Fenton, 12-Apr-2014.) (Revised by Mario Carneiro, 19-Apr-2014.)
Hypotheses
Ref Expression
brimg.1 𝐴 ∈ V
brimg.2 𝐵 ∈ V
brimg.3 𝐶 ∈ V
Assertion
Ref Expression
brimg (⟨𝐴, 𝐵⟩Img𝐶𝐶 = (𝐴𝐵))

Proof of Theorem brimg
Dummy variables 𝑎 𝑏 𝑝 𝑞 𝑥 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 df-img 31973 . . 3 Img = (Image((2nd ∘ 1st ) ↾ (1st ↾ (V × V))) ∘ Cart)
21breqi 4659 . 2 (⟨𝐴, 𝐵⟩Img𝐶 ↔ ⟨𝐴, 𝐵⟩(Image((2nd ∘ 1st ) ↾ (1st ↾ (V × V))) ∘ Cart)𝐶)
3 opex 4932 . . . 4 𝐴, 𝐵⟩ ∈ V
4 brimg.3 . . . 4 𝐶 ∈ V
53, 4brco 5292 . . 3 (⟨𝐴, 𝐵⟩(Image((2nd ∘ 1st ) ↾ (1st ↾ (V × V))) ∘ Cart)𝐶 ↔ ∃𝑎(⟨𝐴, 𝐵⟩Cart𝑎𝑎Image((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝐶))
6 brimg.1 . . . . . 6 𝐴 ∈ V
7 brimg.2 . . . . . 6 𝐵 ∈ V
8 vex 3203 . . . . . 6 𝑎 ∈ V
96, 7, 8brcart 32039 . . . . 5 (⟨𝐴, 𝐵⟩Cart𝑎𝑎 = (𝐴 × 𝐵))
109anbi1i 731 . . . 4 ((⟨𝐴, 𝐵⟩Cart𝑎𝑎Image((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝐶) ↔ (𝑎 = (𝐴 × 𝐵) ∧ 𝑎Image((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝐶))
1110exbii 1774 . . 3 (∃𝑎(⟨𝐴, 𝐵⟩Cart𝑎𝑎Image((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝐶) ↔ ∃𝑎(𝑎 = (𝐴 × 𝐵) ∧ 𝑎Image((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝐶))
126, 7xpex 6962 . . . 4 (𝐴 × 𝐵) ∈ V
13 breq1 4656 . . . 4 (𝑎 = (𝐴 × 𝐵) → (𝑎Image((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝐶 ↔ (𝐴 × 𝐵)Image((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝐶))
1412, 13ceqsexv 3242 . . 3 (∃𝑎(𝑎 = (𝐴 × 𝐵) ∧ 𝑎Image((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝐶) ↔ (𝐴 × 𝐵)Image((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝐶)
155, 11, 143bitri 286 . 2 (⟨𝐴, 𝐵⟩(Image((2nd ∘ 1st ) ↾ (1st ↾ (V × V))) ∘ Cart)𝐶 ↔ (𝐴 × 𝐵)Image((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝐶)
1612, 4brimage 32033 . . 3 ((𝐴 × 𝐵)Image((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝐶𝐶 = (((2nd ∘ 1st ) ↾ (1st ↾ (V × V))) “ (𝐴 × 𝐵)))
17 19.42v 1918 . . . . . . . 8 (∃𝑎(𝑏𝐵 ∧ (𝑎𝐴 ∧ ⟨𝑎, 𝑏⟩((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥)) ↔ (𝑏𝐵 ∧ ∃𝑎(𝑎𝐴 ∧ ⟨𝑎, 𝑏⟩((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥)))
18 anass 681 . . . . . . . . . . 11 (((𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥) ↔ (𝑝 = ⟨𝑎, 𝑏⟩ ∧ ((𝑎𝐴𝑏𝐵) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥)))
19 anass 681 . . . . . . . . . . . . 13 (((𝑎𝐴𝑏𝐵) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥) ↔ (𝑎𝐴 ∧ (𝑏𝐵𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥)))
20 an12 838 . . . . . . . . . . . . 13 ((𝑎𝐴 ∧ (𝑏𝐵𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥)) ↔ (𝑏𝐵 ∧ (𝑎𝐴𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥)))
2119, 20bitri 264 . . . . . . . . . . . 12 (((𝑎𝐴𝑏𝐵) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥) ↔ (𝑏𝐵 ∧ (𝑎𝐴𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥)))
2221anbi2i 730 . . . . . . . . . . 11 ((𝑝 = ⟨𝑎, 𝑏⟩ ∧ ((𝑎𝐴𝑏𝐵) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥)) ↔ (𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑏𝐵 ∧ (𝑎𝐴𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))))
2318, 22bitri 264 . . . . . . . . . 10 (((𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥) ↔ (𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑏𝐵 ∧ (𝑎𝐴𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))))
24232exbii 1775 . . . . . . . . 9 (∃𝑝𝑎((𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥) ↔ ∃𝑝𝑎(𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑏𝐵 ∧ (𝑎𝐴𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))))
25 excom 2042 . . . . . . . . 9 (∃𝑝𝑎(𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑏𝐵 ∧ (𝑎𝐴𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))) ↔ ∃𝑎𝑝(𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑏𝐵 ∧ (𝑎𝐴𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))))
26 opex 4932 . . . . . . . . . . 11 𝑎, 𝑏⟩ ∈ V
27 breq1 4656 . . . . . . . . . . . . 13 (𝑝 = ⟨𝑎, 𝑏⟩ → (𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥 ↔ ⟨𝑎, 𝑏⟩((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))
2827anbi2d 740 . . . . . . . . . . . 12 (𝑝 = ⟨𝑎, 𝑏⟩ → ((𝑎𝐴𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥) ↔ (𝑎𝐴 ∧ ⟨𝑎, 𝑏⟩((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥)))
2928anbi2d 740 . . . . . . . . . . 11 (𝑝 = ⟨𝑎, 𝑏⟩ → ((𝑏𝐵 ∧ (𝑎𝐴𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥)) ↔ (𝑏𝐵 ∧ (𝑎𝐴 ∧ ⟨𝑎, 𝑏⟩((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))))
3026, 29ceqsexv 3242 . . . . . . . . . 10 (∃𝑝(𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑏𝐵 ∧ (𝑎𝐴𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))) ↔ (𝑏𝐵 ∧ (𝑎𝐴 ∧ ⟨𝑎, 𝑏⟩((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥)))
3130exbii 1774 . . . . . . . . 9 (∃𝑎𝑝(𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑏𝐵 ∧ (𝑎𝐴𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))) ↔ ∃𝑎(𝑏𝐵 ∧ (𝑎𝐴 ∧ ⟨𝑎, 𝑏⟩((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥)))
3224, 25, 313bitri 286 . . . . . . . 8 (∃𝑝𝑎((𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥) ↔ ∃𝑎(𝑏𝐵 ∧ (𝑎𝐴 ∧ ⟨𝑎, 𝑏⟩((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥)))
33 df-br 4654 . . . . . . . . . 10 (𝑏𝐴𝑥 ↔ ⟨𝑏, 𝑥⟩ ∈ 𝐴)
34 risset 3062 . . . . . . . . . . 11 (⟨𝑏, 𝑥⟩ ∈ 𝐴 ↔ ∃𝑎𝐴 𝑎 = ⟨𝑏, 𝑥⟩)
35 vex 3203 . . . . . . . . . . . . . . . 16 𝑏 ∈ V
3635brres 5402 . . . . . . . . . . . . . . 15 (𝑎(1st ↾ (V × V))𝑏 ↔ (𝑎1st 𝑏𝑎 ∈ (V × V)))
37 df-br 4654 . . . . . . . . . . . . . . 15 (𝑎(1st ↾ (V × V))𝑏 ↔ ⟨𝑎, 𝑏⟩ ∈ (1st ↾ (V × V)))
38 ancom 466 . . . . . . . . . . . . . . 15 ((𝑎1st 𝑏𝑎 ∈ (V × V)) ↔ (𝑎 ∈ (V × V) ∧ 𝑎1st 𝑏))
3936, 37, 383bitr3ri 291 . . . . . . . . . . . . . 14 ((𝑎 ∈ (V × V) ∧ 𝑎1st 𝑏) ↔ ⟨𝑎, 𝑏⟩ ∈ (1st ↾ (V × V)))
4039anbi2i 730 . . . . . . . . . . . . 13 ((⟨𝑎, 𝑏⟩(2nd ∘ 1st )𝑥 ∧ (𝑎 ∈ (V × V) ∧ 𝑎1st 𝑏)) ↔ (⟨𝑎, 𝑏⟩(2nd ∘ 1st )𝑥 ∧ ⟨𝑎, 𝑏⟩ ∈ (1st ↾ (V × V))))
41 elvv 5177 . . . . . . . . . . . . . . . 16 (𝑎 ∈ (V × V) ↔ ∃𝑝𝑞 𝑎 = ⟨𝑝, 𝑞⟩)
4241anbi1i 731 . . . . . . . . . . . . . . 15 ((𝑎 ∈ (V × V) ∧ (𝑎1st 𝑏 ∧ ⟨𝑎, 𝑏⟩(2nd ∘ 1st )𝑥)) ↔ (∃𝑝𝑞 𝑎 = ⟨𝑝, 𝑞⟩ ∧ (𝑎1st 𝑏 ∧ ⟨𝑎, 𝑏⟩(2nd ∘ 1st )𝑥)))
43 anass 681 . . . . . . . . . . . . . . 15 (((𝑎 ∈ (V × V) ∧ 𝑎1st 𝑏) ∧ ⟨𝑎, 𝑏⟩(2nd ∘ 1st )𝑥) ↔ (𝑎 ∈ (V × V) ∧ (𝑎1st 𝑏 ∧ ⟨𝑎, 𝑏⟩(2nd ∘ 1st )𝑥)))
44 ancom 466 . . . . . . . . . . . . . . . . . 18 ((𝑎 = ⟨𝑝, 𝑞⟩ ∧ (𝑝 = 𝑏𝑞 = 𝑥)) ↔ ((𝑝 = 𝑏𝑞 = 𝑥) ∧ 𝑎 = ⟨𝑝, 𝑞⟩))
45 breq1 4656 . . . . . . . . . . . . . . . . . . . . 21 (𝑎 = ⟨𝑝, 𝑞⟩ → (𝑎1st 𝑏 ↔ ⟨𝑝, 𝑞⟩1st 𝑏))
46 opeq1 4402 . . . . . . . . . . . . . . . . . . . . . 22 (𝑎 = ⟨𝑝, 𝑞⟩ → ⟨𝑎, 𝑏⟩ = ⟨⟨𝑝, 𝑞⟩, 𝑏⟩)
4746breq1d 4663 . . . . . . . . . . . . . . . . . . . . 21 (𝑎 = ⟨𝑝, 𝑞⟩ → (⟨𝑎, 𝑏⟩(2nd ∘ 1st )𝑥 ↔ ⟨⟨𝑝, 𝑞⟩, 𝑏⟩(2nd ∘ 1st )𝑥))
4845, 47anbi12d 747 . . . . . . . . . . . . . . . . . . . 20 (𝑎 = ⟨𝑝, 𝑞⟩ → ((𝑎1st 𝑏 ∧ ⟨𝑎, 𝑏⟩(2nd ∘ 1st )𝑥) ↔ (⟨𝑝, 𝑞⟩1st 𝑏 ∧ ⟨⟨𝑝, 𝑞⟩, 𝑏⟩(2nd ∘ 1st )𝑥)))
49 vex 3203 . . . . . . . . . . . . . . . . . . . . . . 23 𝑝 ∈ V
50 vex 3203 . . . . . . . . . . . . . . . . . . . . . . 23 𝑞 ∈ V
5149, 50br1steq 31670 . . . . . . . . . . . . . . . . . . . . . 22 (⟨𝑝, 𝑞⟩1st 𝑏𝑏 = 𝑝)
52 equcom 1945 . . . . . . . . . . . . . . . . . . . . . 22 (𝑏 = 𝑝𝑝 = 𝑏)
5351, 52bitri 264 . . . . . . . . . . . . . . . . . . . . 21 (⟨𝑝, 𝑞⟩1st 𝑏𝑝 = 𝑏)
54 opex 4932 . . . . . . . . . . . . . . . . . . . . . . . 24 ⟨⟨𝑝, 𝑞⟩, 𝑏⟩ ∈ V
55 vex 3203 . . . . . . . . . . . . . . . . . . . . . . . 24 𝑥 ∈ V
5654, 55brco 5292 . . . . . . . . . . . . . . . . . . . . . . 23 (⟨⟨𝑝, 𝑞⟩, 𝑏⟩(2nd ∘ 1st )𝑥 ↔ ∃𝑎(⟨⟨𝑝, 𝑞⟩, 𝑏⟩1st 𝑎𝑎2nd 𝑥))
57 opex 4932 . . . . . . . . . . . . . . . . . . . . . . . . . 26 𝑝, 𝑞⟩ ∈ V
5857, 35br1steq 31670 . . . . . . . . . . . . . . . . . . . . . . . . 25 (⟨⟨𝑝, 𝑞⟩, 𝑏⟩1st 𝑎𝑎 = ⟨𝑝, 𝑞⟩)
5958anbi1i 731 . . . . . . . . . . . . . . . . . . . . . . . 24 ((⟨⟨𝑝, 𝑞⟩, 𝑏⟩1st 𝑎𝑎2nd 𝑥) ↔ (𝑎 = ⟨𝑝, 𝑞⟩ ∧ 𝑎2nd 𝑥))
6059exbii 1774 . . . . . . . . . . . . . . . . . . . . . . 23 (∃𝑎(⟨⟨𝑝, 𝑞⟩, 𝑏⟩1st 𝑎𝑎2nd 𝑥) ↔ ∃𝑎(𝑎 = ⟨𝑝, 𝑞⟩ ∧ 𝑎2nd 𝑥))
6156, 60bitri 264 . . . . . . . . . . . . . . . . . . . . . 22 (⟨⟨𝑝, 𝑞⟩, 𝑏⟩(2nd ∘ 1st )𝑥 ↔ ∃𝑎(𝑎 = ⟨𝑝, 𝑞⟩ ∧ 𝑎2nd 𝑥))
62 breq1 4656 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑎 = ⟨𝑝, 𝑞⟩ → (𝑎2nd 𝑥 ↔ ⟨𝑝, 𝑞⟩2nd 𝑥))
6357, 62ceqsexv 3242 . . . . . . . . . . . . . . . . . . . . . . 23 (∃𝑎(𝑎 = ⟨𝑝, 𝑞⟩ ∧ 𝑎2nd 𝑥) ↔ ⟨𝑝, 𝑞⟩2nd 𝑥)
6449, 50br2ndeq 31671 . . . . . . . . . . . . . . . . . . . . . . 23 (⟨𝑝, 𝑞⟩2nd 𝑥𝑥 = 𝑞)
6563, 64bitri 264 . . . . . . . . . . . . . . . . . . . . . 22 (∃𝑎(𝑎 = ⟨𝑝, 𝑞⟩ ∧ 𝑎2nd 𝑥) ↔ 𝑥 = 𝑞)
66 equcom 1945 . . . . . . . . . . . . . . . . . . . . . 22 (𝑥 = 𝑞𝑞 = 𝑥)
6761, 65, 663bitri 286 . . . . . . . . . . . . . . . . . . . . 21 (⟨⟨𝑝, 𝑞⟩, 𝑏⟩(2nd ∘ 1st )𝑥𝑞 = 𝑥)
6853, 67anbi12i 733 . . . . . . . . . . . . . . . . . . . 20 ((⟨𝑝, 𝑞⟩1st 𝑏 ∧ ⟨⟨𝑝, 𝑞⟩, 𝑏⟩(2nd ∘ 1st )𝑥) ↔ (𝑝 = 𝑏𝑞 = 𝑥))
6948, 68syl6bb 276 . . . . . . . . . . . . . . . . . . 19 (𝑎 = ⟨𝑝, 𝑞⟩ → ((𝑎1st 𝑏 ∧ ⟨𝑎, 𝑏⟩(2nd ∘ 1st )𝑥) ↔ (𝑝 = 𝑏𝑞 = 𝑥)))
7069pm5.32i 669 . . . . . . . . . . . . . . . . . 18 ((𝑎 = ⟨𝑝, 𝑞⟩ ∧ (𝑎1st 𝑏 ∧ ⟨𝑎, 𝑏⟩(2nd ∘ 1st )𝑥)) ↔ (𝑎 = ⟨𝑝, 𝑞⟩ ∧ (𝑝 = 𝑏𝑞 = 𝑥)))
71 df-3an 1039 . . . . . . . . . . . . . . . . . 18 ((𝑝 = 𝑏𝑞 = 𝑥𝑎 = ⟨𝑝, 𝑞⟩) ↔ ((𝑝 = 𝑏𝑞 = 𝑥) ∧ 𝑎 = ⟨𝑝, 𝑞⟩))
7244, 70, 713bitr4i 292 . . . . . . . . . . . . . . . . 17 ((𝑎 = ⟨𝑝, 𝑞⟩ ∧ (𝑎1st 𝑏 ∧ ⟨𝑎, 𝑏⟩(2nd ∘ 1st )𝑥)) ↔ (𝑝 = 𝑏𝑞 = 𝑥𝑎 = ⟨𝑝, 𝑞⟩))
73722exbii 1775 . . . . . . . . . . . . . . . 16 (∃𝑝𝑞(𝑎 = ⟨𝑝, 𝑞⟩ ∧ (𝑎1st 𝑏 ∧ ⟨𝑎, 𝑏⟩(2nd ∘ 1st )𝑥)) ↔ ∃𝑝𝑞(𝑝 = 𝑏𝑞 = 𝑥𝑎 = ⟨𝑝, 𝑞⟩))
74 19.41vv 1915 . . . . . . . . . . . . . . . 16 (∃𝑝𝑞(𝑎 = ⟨𝑝, 𝑞⟩ ∧ (𝑎1st 𝑏 ∧ ⟨𝑎, 𝑏⟩(2nd ∘ 1st )𝑥)) ↔ (∃𝑝𝑞 𝑎 = ⟨𝑝, 𝑞⟩ ∧ (𝑎1st 𝑏 ∧ ⟨𝑎, 𝑏⟩(2nd ∘ 1st )𝑥)))
75 opeq1 4402 . . . . . . . . . . . . . . . . . 18 (𝑝 = 𝑏 → ⟨𝑝, 𝑞⟩ = ⟨𝑏, 𝑞⟩)
7675eqeq2d 2632 . . . . . . . . . . . . . . . . 17 (𝑝 = 𝑏 → (𝑎 = ⟨𝑝, 𝑞⟩ ↔ 𝑎 = ⟨𝑏, 𝑞⟩))
77 opeq2 4403 . . . . . . . . . . . . . . . . . 18 (𝑞 = 𝑥 → ⟨𝑏, 𝑞⟩ = ⟨𝑏, 𝑥⟩)
7877eqeq2d 2632 . . . . . . . . . . . . . . . . 17 (𝑞 = 𝑥 → (𝑎 = ⟨𝑏, 𝑞⟩ ↔ 𝑎 = ⟨𝑏, 𝑥⟩))
7935, 55, 76, 78ceqsex2v 3245 . . . . . . . . . . . . . . . 16 (∃𝑝𝑞(𝑝 = 𝑏𝑞 = 𝑥𝑎 = ⟨𝑝, 𝑞⟩) ↔ 𝑎 = ⟨𝑏, 𝑥⟩)
8073, 74, 793bitr3ri 291 . . . . . . . . . . . . . . 15 (𝑎 = ⟨𝑏, 𝑥⟩ ↔ (∃𝑝𝑞 𝑎 = ⟨𝑝, 𝑞⟩ ∧ (𝑎1st 𝑏 ∧ ⟨𝑎, 𝑏⟩(2nd ∘ 1st )𝑥)))
8142, 43, 803bitr4ri 293 . . . . . . . . . . . . . 14 (𝑎 = ⟨𝑏, 𝑥⟩ ↔ ((𝑎 ∈ (V × V) ∧ 𝑎1st 𝑏) ∧ ⟨𝑎, 𝑏⟩(2nd ∘ 1st )𝑥))
82 ancom 466 . . . . . . . . . . . . . 14 (((𝑎 ∈ (V × V) ∧ 𝑎1st 𝑏) ∧ ⟨𝑎, 𝑏⟩(2nd ∘ 1st )𝑥) ↔ (⟨𝑎, 𝑏⟩(2nd ∘ 1st )𝑥 ∧ (𝑎 ∈ (V × V) ∧ 𝑎1st 𝑏)))
8381, 82bitri 264 . . . . . . . . . . . . 13 (𝑎 = ⟨𝑏, 𝑥⟩ ↔ (⟨𝑎, 𝑏⟩(2nd ∘ 1st )𝑥 ∧ (𝑎 ∈ (V × V) ∧ 𝑎1st 𝑏)))
8455brres 5402 . . . . . . . . . . . . 13 (⟨𝑎, 𝑏⟩((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥 ↔ (⟨𝑎, 𝑏⟩(2nd ∘ 1st )𝑥 ∧ ⟨𝑎, 𝑏⟩ ∈ (1st ↾ (V × V))))
8540, 83, 843bitr4i 292 . . . . . . . . . . . 12 (𝑎 = ⟨𝑏, 𝑥⟩ ↔ ⟨𝑎, 𝑏⟩((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥)
8685rexbii 3041 . . . . . . . . . . 11 (∃𝑎𝐴 𝑎 = ⟨𝑏, 𝑥⟩ ↔ ∃𝑎𝐴𝑎, 𝑏⟩((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥)
8734, 86bitri 264 . . . . . . . . . 10 (⟨𝑏, 𝑥⟩ ∈ 𝐴 ↔ ∃𝑎𝐴𝑎, 𝑏⟩((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥)
88 df-rex 2918 . . . . . . . . . 10 (∃𝑎𝐴𝑎, 𝑏⟩((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥 ↔ ∃𝑎(𝑎𝐴 ∧ ⟨𝑎, 𝑏⟩((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))
8933, 87, 883bitri 286 . . . . . . . . 9 (𝑏𝐴𝑥 ↔ ∃𝑎(𝑎𝐴 ∧ ⟨𝑎, 𝑏⟩((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))
9089anbi2i 730 . . . . . . . 8 ((𝑏𝐵𝑏𝐴𝑥) ↔ (𝑏𝐵 ∧ ∃𝑎(𝑎𝐴 ∧ ⟨𝑎, 𝑏⟩((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥)))
9117, 32, 903bitr4ri 293 . . . . . . 7 ((𝑏𝐵𝑏𝐴𝑥) ↔ ∃𝑝𝑎((𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))
9291exbii 1774 . . . . . 6 (∃𝑏(𝑏𝐵𝑏𝐴𝑥) ↔ ∃𝑏𝑝𝑎((𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))
9355elima2 5472 . . . . . 6 (𝑥 ∈ (𝐴𝐵) ↔ ∃𝑏(𝑏𝐵𝑏𝐴𝑥))
9455elima2 5472 . . . . . . 7 (𝑥 ∈ (((2nd ∘ 1st ) ↾ (1st ↾ (V × V))) “ (𝐴 × 𝐵)) ↔ ∃𝑝(𝑝 ∈ (𝐴 × 𝐵) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))
95 elxp 5131 . . . . . . . . . 10 (𝑝 ∈ (𝐴 × 𝐵) ↔ ∃𝑎𝑏(𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)))
9695anbi1i 731 . . . . . . . . 9 ((𝑝 ∈ (𝐴 × 𝐵) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥) ↔ (∃𝑎𝑏(𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))
97 19.41vv 1915 . . . . . . . . 9 (∃𝑎𝑏((𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥) ↔ (∃𝑎𝑏(𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))
9896, 97bitr4i 267 . . . . . . . 8 ((𝑝 ∈ (𝐴 × 𝐵) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥) ↔ ∃𝑎𝑏((𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))
9998exbii 1774 . . . . . . 7 (∃𝑝(𝑝 ∈ (𝐴 × 𝐵) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥) ↔ ∃𝑝𝑎𝑏((𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))
100 exrot3 2045 . . . . . . . 8 (∃𝑝𝑎𝑏((𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥) ↔ ∃𝑎𝑏𝑝((𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))
101 exrot3 2045 . . . . . . . 8 (∃𝑎𝑏𝑝((𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥) ↔ ∃𝑏𝑝𝑎((𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))
102100, 101bitri 264 . . . . . . 7 (∃𝑝𝑎𝑏((𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥) ↔ ∃𝑏𝑝𝑎((𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))
10394, 99, 1023bitri 286 . . . . . 6 (𝑥 ∈ (((2nd ∘ 1st ) ↾ (1st ↾ (V × V))) “ (𝐴 × 𝐵)) ↔ ∃𝑏𝑝𝑎((𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))
10492, 93, 1033bitr4ri 293 . . . . 5 (𝑥 ∈ (((2nd ∘ 1st ) ↾ (1st ↾ (V × V))) “ (𝐴 × 𝐵)) ↔ 𝑥 ∈ (𝐴𝐵))
105104eqriv 2619 . . . 4 (((2nd ∘ 1st ) ↾ (1st ↾ (V × V))) “ (𝐴 × 𝐵)) = (𝐴𝐵)
106105eqeq2i 2634 . . 3 (𝐶 = (((2nd ∘ 1st ) ↾ (1st ↾ (V × V))) “ (𝐴 × 𝐵)) ↔ 𝐶 = (𝐴𝐵))
10716, 106bitri 264 . 2 ((𝐴 × 𝐵)Image((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝐶𝐶 = (𝐴𝐵))
1082, 15, 1073bitri 286 1 (⟨𝐴, 𝐵⟩Img𝐶𝐶 = (𝐴𝐵))
Colors of variables: wff setvar class
Syntax hints:  wb 196  wa 384  w3a 1037   = wceq 1483  wex 1704  wcel 1990  wrex 2913  Vcvv 3200  cop 4183   class class class wbr 4653   × cxp 5112  cres 5116  cima 5117  ccom 5118  1st c1st 7166  2nd c2nd 7167  Imagecimage 31947  Cartccart 31948  Imgcimg 31949
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1722  ax-4 1737  ax-5 1839  ax-6 1888  ax-7 1935  ax-8 1992  ax-9 1999  ax-10 2019  ax-11 2034  ax-12 2047  ax-13 2246  ax-ext 2602  ax-sep 4781  ax-nul 4789  ax-pow 4843  ax-pr 4906  ax-un 6949
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3an 1039  df-tru 1486  df-ex 1705  df-nf 1710  df-sb 1881  df-eu 2474  df-mo 2475  df-clab 2609  df-cleq 2615  df-clel 2618  df-nfc 2753  df-ne 2795  df-ral 2917  df-rex 2918  df-rab 2921  df-v 3202  df-sbc 3436  df-dif 3577  df-un 3579  df-in 3581  df-ss 3588  df-symdif 3844  df-nul 3916  df-if 4087  df-pw 4160  df-sn 4178  df-pr 4180  df-op 4184  df-uni 4437  df-br 4654  df-opab 4713  df-mpt 4730  df-id 5024  df-eprel 5029  df-xp 5120  df-rel 5121  df-cnv 5122  df-co 5123  df-dm 5124  df-rn 5125  df-res 5126  df-ima 5127  df-iota 5851  df-fun 5890  df-fn 5891  df-f 5892  df-fo 5894  df-fv 5896  df-1st 7168  df-2nd 7169  df-txp 31961  df-pprod 31962  df-image 31971  df-cart 31972  df-img 31973
This theorem is referenced by:  brapply  32045  dfrdg4  32058
  Copyright terms: Public domain W3C validator