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 31214
Description: The binary relationship 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 31142 . . 3 Img = (Image((2nd ∘ 1st ) ↾ (1st ↾ (V × V))) ∘ Cart)
21breqi 4589 . 2 (⟨𝐴, 𝐵⟩Img𝐶 ↔ ⟨𝐴, 𝐵⟩(Image((2nd ∘ 1st ) ↾ (1st ↾ (V × V))) ∘ Cart)𝐶)
3 opex 4859 . . . 4 𝐴, 𝐵⟩ ∈ V
4 brimg.3 . . . 4 𝐶 ∈ V
53, 4brco 5214 . . 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 3176 . . . . . 6 𝑎 ∈ V
96, 7, 8brcart 31209 . . . . 5 (⟨𝐴, 𝐵⟩Cart𝑎𝑎 = (𝐴 × 𝐵))
109anbi1i 727 . . . 4 ((⟨𝐴, 𝐵⟩Cart𝑎𝑎Image((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝐶) ↔ (𝑎 = (𝐴 × 𝐵) ∧ 𝑎Image((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝐶))
1110exbii 1764 . . 3 (∃𝑎(⟨𝐴, 𝐵⟩Cart𝑎𝑎Image((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝐶) ↔ ∃𝑎(𝑎 = (𝐴 × 𝐵) ∧ 𝑎Image((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝐶))
126, 7xpex 6860 . . . 4 (𝐴 × 𝐵) ∈ V
13 breq1 4586 . . . 4 (𝑎 = (𝐴 × 𝐵) → (𝑎Image((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝐶 ↔ (𝐴 × 𝐵)Image((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝐶))
1412, 13ceqsexv 3215 . . 3 (∃𝑎(𝑎 = (𝐴 × 𝐵) ∧ 𝑎Image((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝐶) ↔ (𝐴 × 𝐵)Image((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝐶)
155, 11, 143bitri 285 . 2 (⟨𝐴, 𝐵⟩(Image((2nd ∘ 1st ) ↾ (1st ↾ (V × V))) ∘ Cart)𝐶 ↔ (𝐴 × 𝐵)Image((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝐶)
1612, 4brimage 31203 . . 3 ((𝐴 × 𝐵)Image((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝐶𝐶 = (((2nd ∘ 1st ) ↾ (1st ↾ (V × V))) “ (𝐴 × 𝐵)))
17 19.42v 1905 . . . . . . . 8 (∃𝑎(𝑏𝐵 ∧ (𝑎𝐴 ∧ ⟨𝑎, 𝑏⟩((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥)) ↔ (𝑏𝐵 ∧ ∃𝑎(𝑎𝐴 ∧ ⟨𝑎, 𝑏⟩((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥)))
18 anass 679 . . . . . . . . . . 11 (((𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥) ↔ (𝑝 = ⟨𝑎, 𝑏⟩ ∧ ((𝑎𝐴𝑏𝐵) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥)))
19 anass 679 . . . . . . . . . . . . 13 (((𝑎𝐴𝑏𝐵) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥) ↔ (𝑎𝐴 ∧ (𝑏𝐵𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥)))
20 an12 834 . . . . . . . . . . . . 13 ((𝑎𝐴 ∧ (𝑏𝐵𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥)) ↔ (𝑏𝐵 ∧ (𝑎𝐴𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥)))
2119, 20bitri 263 . . . . . . . . . . . 12 (((𝑎𝐴𝑏𝐵) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥) ↔ (𝑏𝐵 ∧ (𝑎𝐴𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥)))
2221anbi2i 726 . . . . . . . . . . 11 ((𝑝 = ⟨𝑎, 𝑏⟩ ∧ ((𝑎𝐴𝑏𝐵) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥)) ↔ (𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑏𝐵 ∧ (𝑎𝐴𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))))
2318, 22bitri 263 . . . . . . . . . 10 (((𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥) ↔ (𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑏𝐵 ∧ (𝑎𝐴𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))))
24232exbii 1765 . . . . . . . . 9 (∃𝑝𝑎((𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥) ↔ ∃𝑝𝑎(𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑏𝐵 ∧ (𝑎𝐴𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))))
25 excom 2029 . . . . . . . . 9 (∃𝑝𝑎(𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑏𝐵 ∧ (𝑎𝐴𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))) ↔ ∃𝑎𝑝(𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑏𝐵 ∧ (𝑎𝐴𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))))
26 opex 4859 . . . . . . . . . . 11 𝑎, 𝑏⟩ ∈ V
27 breq1 4586 . . . . . . . . . . . . 13 (𝑝 = ⟨𝑎, 𝑏⟩ → (𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥 ↔ ⟨𝑎, 𝑏⟩((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))
2827anbi2d 736 . . . . . . . . . . . 12 (𝑝 = ⟨𝑎, 𝑏⟩ → ((𝑎𝐴𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥) ↔ (𝑎𝐴 ∧ ⟨𝑎, 𝑏⟩((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥)))
2928anbi2d 736 . . . . . . . . . . 11 (𝑝 = ⟨𝑎, 𝑏⟩ → ((𝑏𝐵 ∧ (𝑎𝐴𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥)) ↔ (𝑏𝐵 ∧ (𝑎𝐴 ∧ ⟨𝑎, 𝑏⟩((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))))
3026, 29ceqsexv 3215 . . . . . . . . . 10 (∃𝑝(𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑏𝐵 ∧ (𝑎𝐴𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))) ↔ (𝑏𝐵 ∧ (𝑎𝐴 ∧ ⟨𝑎, 𝑏⟩((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥)))
3130exbii 1764 . . . . . . . . 9 (∃𝑎𝑝(𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑏𝐵 ∧ (𝑎𝐴𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))) ↔ ∃𝑎(𝑏𝐵 ∧ (𝑎𝐴 ∧ ⟨𝑎, 𝑏⟩((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥)))
3224, 25, 313bitri 285 . . . . . . . 8 (∃𝑝𝑎((𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥) ↔ ∃𝑎(𝑏𝐵 ∧ (𝑎𝐴 ∧ ⟨𝑎, 𝑏⟩((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥)))
33 df-br 4584 . . . . . . . . . 10 (𝑏𝐴𝑥 ↔ ⟨𝑏, 𝑥⟩ ∈ 𝐴)
34 risset 3044 . . . . . . . . . . 11 (⟨𝑏, 𝑥⟩ ∈ 𝐴 ↔ ∃𝑎𝐴 𝑎 = ⟨𝑏, 𝑥⟩)
35 vex 3176 . . . . . . . . . . . . . . . 16 𝑏 ∈ V
3635brres 5323 . . . . . . . . . . . . . . 15 (𝑎(1st ↾ (V × V))𝑏 ↔ (𝑎1st 𝑏𝑎 ∈ (V × V)))
37 df-br 4584 . . . . . . . . . . . . . . 15 (𝑎(1st ↾ (V × V))𝑏 ↔ ⟨𝑎, 𝑏⟩ ∈ (1st ↾ (V × V)))
38 ancom 465 . . . . . . . . . . . . . . 15 ((𝑎1st 𝑏𝑎 ∈ (V × V)) ↔ (𝑎 ∈ (V × V) ∧ 𝑎1st 𝑏))
3936, 37, 383bitr3ri 290 . . . . . . . . . . . . . 14 ((𝑎 ∈ (V × V) ∧ 𝑎1st 𝑏) ↔ ⟨𝑎, 𝑏⟩ ∈ (1st ↾ (V × V)))
4039anbi2i 726 . . . . . . . . . . . . 13 ((⟨𝑎, 𝑏⟩(2nd ∘ 1st )𝑥 ∧ (𝑎 ∈ (V × V) ∧ 𝑎1st 𝑏)) ↔ (⟨𝑎, 𝑏⟩(2nd ∘ 1st )𝑥 ∧ ⟨𝑎, 𝑏⟩ ∈ (1st ↾ (V × V))))
41 elvv 5100 . . . . . . . . . . . . . . . 16 (𝑎 ∈ (V × V) ↔ ∃𝑝𝑞 𝑎 = ⟨𝑝, 𝑞⟩)
4241anbi1i 727 . . . . . . . . . . . . . . 15 ((𝑎 ∈ (V × V) ∧ (𝑎1st 𝑏 ∧ ⟨𝑎, 𝑏⟩(2nd ∘ 1st )𝑥)) ↔ (∃𝑝𝑞 𝑎 = ⟨𝑝, 𝑞⟩ ∧ (𝑎1st 𝑏 ∧ ⟨𝑎, 𝑏⟩(2nd ∘ 1st )𝑥)))
43 anass 679 . . . . . . . . . . . . . . 15 (((𝑎 ∈ (V × V) ∧ 𝑎1st 𝑏) ∧ ⟨𝑎, 𝑏⟩(2nd ∘ 1st )𝑥) ↔ (𝑎 ∈ (V × V) ∧ (𝑎1st 𝑏 ∧ ⟨𝑎, 𝑏⟩(2nd ∘ 1st )𝑥)))
44 ancom 465 . . . . . . . . . . . . . . . . . 18 ((𝑎 = ⟨𝑝, 𝑞⟩ ∧ (𝑝 = 𝑏𝑞 = 𝑥)) ↔ ((𝑝 = 𝑏𝑞 = 𝑥) ∧ 𝑎 = ⟨𝑝, 𝑞⟩))
45 breq1 4586 . . . . . . . . . . . . . . . . . . . . 21 (𝑎 = ⟨𝑝, 𝑞⟩ → (𝑎1st 𝑏 ↔ ⟨𝑝, 𝑞⟩1st 𝑏))
46 opeq1 4340 . . . . . . . . . . . . . . . . . . . . . 22 (𝑎 = ⟨𝑝, 𝑞⟩ → ⟨𝑎, 𝑏⟩ = ⟨⟨𝑝, 𝑞⟩, 𝑏⟩)
4746breq1d 4593 . . . . . . . . . . . . . . . . . . . . 21 (𝑎 = ⟨𝑝, 𝑞⟩ → (⟨𝑎, 𝑏⟩(2nd ∘ 1st )𝑥 ↔ ⟨⟨𝑝, 𝑞⟩, 𝑏⟩(2nd ∘ 1st )𝑥))
4845, 47anbi12d 743 . . . . . . . . . . . . . . . . . . . 20 (𝑎 = ⟨𝑝, 𝑞⟩ → ((𝑎1st 𝑏 ∧ ⟨𝑎, 𝑏⟩(2nd ∘ 1st )𝑥) ↔ (⟨𝑝, 𝑞⟩1st 𝑏 ∧ ⟨⟨𝑝, 𝑞⟩, 𝑏⟩(2nd ∘ 1st )𝑥)))
49 vex 3176 . . . . . . . . . . . . . . . . . . . . . . 23 𝑝 ∈ V
50 vex 3176 . . . . . . . . . . . . . . . . . . . . . . 23 𝑞 ∈ V
5149, 50, 35br1steq 30917 . . . . . . . . . . . . . . . . . . . . . 22 (⟨𝑝, 𝑞⟩1st 𝑏𝑏 = 𝑝)
52 equcom 1932 . . . . . . . . . . . . . . . . . . . . . 22 (𝑏 = 𝑝𝑝 = 𝑏)
5351, 52bitri 263 . . . . . . . . . . . . . . . . . . . . 21 (⟨𝑝, 𝑞⟩1st 𝑏𝑝 = 𝑏)
54 opex 4859 . . . . . . . . . . . . . . . . . . . . . . . 24 ⟨⟨𝑝, 𝑞⟩, 𝑏⟩ ∈ V
55 vex 3176 . . . . . . . . . . . . . . . . . . . . . . . 24 𝑥 ∈ V
5654, 55brco 5214 . . . . . . . . . . . . . . . . . . . . . . 23 (⟨⟨𝑝, 𝑞⟩, 𝑏⟩(2nd ∘ 1st )𝑥 ↔ ∃𝑎(⟨⟨𝑝, 𝑞⟩, 𝑏⟩1st 𝑎𝑎2nd 𝑥))
57 opex 4859 . . . . . . . . . . . . . . . . . . . . . . . . . 26 𝑝, 𝑞⟩ ∈ V
5857, 35, 8br1steq 30917 . . . . . . . . . . . . . . . . . . . . . . . . 25 (⟨⟨𝑝, 𝑞⟩, 𝑏⟩1st 𝑎𝑎 = ⟨𝑝, 𝑞⟩)
5958anbi1i 727 . . . . . . . . . . . . . . . . . . . . . . . 24 ((⟨⟨𝑝, 𝑞⟩, 𝑏⟩1st 𝑎𝑎2nd 𝑥) ↔ (𝑎 = ⟨𝑝, 𝑞⟩ ∧ 𝑎2nd 𝑥))
6059exbii 1764 . . . . . . . . . . . . . . . . . . . . . . 23 (∃𝑎(⟨⟨𝑝, 𝑞⟩, 𝑏⟩1st 𝑎𝑎2nd 𝑥) ↔ ∃𝑎(𝑎 = ⟨𝑝, 𝑞⟩ ∧ 𝑎2nd 𝑥))
6156, 60bitri 263 . . . . . . . . . . . . . . . . . . . . . 22 (⟨⟨𝑝, 𝑞⟩, 𝑏⟩(2nd ∘ 1st )𝑥 ↔ ∃𝑎(𝑎 = ⟨𝑝, 𝑞⟩ ∧ 𝑎2nd 𝑥))
62 breq1 4586 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑎 = ⟨𝑝, 𝑞⟩ → (𝑎2nd 𝑥 ↔ ⟨𝑝, 𝑞⟩2nd 𝑥))
6357, 62ceqsexv 3215 . . . . . . . . . . . . . . . . . . . . . . 23 (∃𝑎(𝑎 = ⟨𝑝, 𝑞⟩ ∧ 𝑎2nd 𝑥) ↔ ⟨𝑝, 𝑞⟩2nd 𝑥)
6449, 50, 55br2ndeq 30918 . . . . . . . . . . . . . . . . . . . . . . 23 (⟨𝑝, 𝑞⟩2nd 𝑥𝑥 = 𝑞)
6563, 64bitri 263 . . . . . . . . . . . . . . . . . . . . . 22 (∃𝑎(𝑎 = ⟨𝑝, 𝑞⟩ ∧ 𝑎2nd 𝑥) ↔ 𝑥 = 𝑞)
66 equcom 1932 . . . . . . . . . . . . . . . . . . . . . 22 (𝑥 = 𝑞𝑞 = 𝑥)
6761, 65, 663bitri 285 . . . . . . . . . . . . . . . . . . . . 21 (⟨⟨𝑝, 𝑞⟩, 𝑏⟩(2nd ∘ 1st )𝑥𝑞 = 𝑥)
6853, 67anbi12i 729 . . . . . . . . . . . . . . . . . . . 20 ((⟨𝑝, 𝑞⟩1st 𝑏 ∧ ⟨⟨𝑝, 𝑞⟩, 𝑏⟩(2nd ∘ 1st )𝑥) ↔ (𝑝 = 𝑏𝑞 = 𝑥))
6948, 68syl6bb 275 . . . . . . . . . . . . . . . . . . 19 (𝑎 = ⟨𝑝, 𝑞⟩ → ((𝑎1st 𝑏 ∧ ⟨𝑎, 𝑏⟩(2nd ∘ 1st )𝑥) ↔ (𝑝 = 𝑏𝑞 = 𝑥)))
7069pm5.32i 667 . . . . . . . . . . . . . . . . . 18 ((𝑎 = ⟨𝑝, 𝑞⟩ ∧ (𝑎1st 𝑏 ∧ ⟨𝑎, 𝑏⟩(2nd ∘ 1st )𝑥)) ↔ (𝑎 = ⟨𝑝, 𝑞⟩ ∧ (𝑝 = 𝑏𝑞 = 𝑥)))
71 df-3an 1033 . . . . . . . . . . . . . . . . . 18 ((𝑝 = 𝑏𝑞 = 𝑥𝑎 = ⟨𝑝, 𝑞⟩) ↔ ((𝑝 = 𝑏𝑞 = 𝑥) ∧ 𝑎 = ⟨𝑝, 𝑞⟩))
7244, 70, 713bitr4i 291 . . . . . . . . . . . . . . . . 17 ((𝑎 = ⟨𝑝, 𝑞⟩ ∧ (𝑎1st 𝑏 ∧ ⟨𝑎, 𝑏⟩(2nd ∘ 1st )𝑥)) ↔ (𝑝 = 𝑏𝑞 = 𝑥𝑎 = ⟨𝑝, 𝑞⟩))
73722exbii 1765 . . . . . . . . . . . . . . . 16 (∃𝑝𝑞(𝑎 = ⟨𝑝, 𝑞⟩ ∧ (𝑎1st 𝑏 ∧ ⟨𝑎, 𝑏⟩(2nd ∘ 1st )𝑥)) ↔ ∃𝑝𝑞(𝑝 = 𝑏𝑞 = 𝑥𝑎 = ⟨𝑝, 𝑞⟩))
74 19.41vv 1902 . . . . . . . . . . . . . . . 16 (∃𝑝𝑞(𝑎 = ⟨𝑝, 𝑞⟩ ∧ (𝑎1st 𝑏 ∧ ⟨𝑎, 𝑏⟩(2nd ∘ 1st )𝑥)) ↔ (∃𝑝𝑞 𝑎 = ⟨𝑝, 𝑞⟩ ∧ (𝑎1st 𝑏 ∧ ⟨𝑎, 𝑏⟩(2nd ∘ 1st )𝑥)))
75 opeq1 4340 . . . . . . . . . . . . . . . . . 18 (𝑝 = 𝑏 → ⟨𝑝, 𝑞⟩ = ⟨𝑏, 𝑞⟩)
7675eqeq2d 2620 . . . . . . . . . . . . . . . . 17 (𝑝 = 𝑏 → (𝑎 = ⟨𝑝, 𝑞⟩ ↔ 𝑎 = ⟨𝑏, 𝑞⟩))
77 opeq2 4341 . . . . . . . . . . . . . . . . . 18 (𝑞 = 𝑥 → ⟨𝑏, 𝑞⟩ = ⟨𝑏, 𝑥⟩)
7877eqeq2d 2620 . . . . . . . . . . . . . . . . 17 (𝑞 = 𝑥 → (𝑎 = ⟨𝑏, 𝑞⟩ ↔ 𝑎 = ⟨𝑏, 𝑥⟩))
7935, 55, 76, 78ceqsex2v 3218 . . . . . . . . . . . . . . . 16 (∃𝑝𝑞(𝑝 = 𝑏𝑞 = 𝑥𝑎 = ⟨𝑝, 𝑞⟩) ↔ 𝑎 = ⟨𝑏, 𝑥⟩)
8073, 74, 793bitr3ri 290 . . . . . . . . . . . . . . 15 (𝑎 = ⟨𝑏, 𝑥⟩ ↔ (∃𝑝𝑞 𝑎 = ⟨𝑝, 𝑞⟩ ∧ (𝑎1st 𝑏 ∧ ⟨𝑎, 𝑏⟩(2nd ∘ 1st )𝑥)))
8142, 43, 803bitr4ri 292 . . . . . . . . . . . . . 14 (𝑎 = ⟨𝑏, 𝑥⟩ ↔ ((𝑎 ∈ (V × V) ∧ 𝑎1st 𝑏) ∧ ⟨𝑎, 𝑏⟩(2nd ∘ 1st )𝑥))
82 ancom 465 . . . . . . . . . . . . . 14 (((𝑎 ∈ (V × V) ∧ 𝑎1st 𝑏) ∧ ⟨𝑎, 𝑏⟩(2nd ∘ 1st )𝑥) ↔ (⟨𝑎, 𝑏⟩(2nd ∘ 1st )𝑥 ∧ (𝑎 ∈ (V × V) ∧ 𝑎1st 𝑏)))
8381, 82bitri 263 . . . . . . . . . . . . 13 (𝑎 = ⟨𝑏, 𝑥⟩ ↔ (⟨𝑎, 𝑏⟩(2nd ∘ 1st )𝑥 ∧ (𝑎 ∈ (V × V) ∧ 𝑎1st 𝑏)))
8455brres 5323 . . . . . . . . . . . . 13 (⟨𝑎, 𝑏⟩((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥 ↔ (⟨𝑎, 𝑏⟩(2nd ∘ 1st )𝑥 ∧ ⟨𝑎, 𝑏⟩ ∈ (1st ↾ (V × V))))
8540, 83, 843bitr4i 291 . . . . . . . . . . . 12 (𝑎 = ⟨𝑏, 𝑥⟩ ↔ ⟨𝑎, 𝑏⟩((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥)
8685rexbii 3023 . . . . . . . . . . 11 (∃𝑎𝐴 𝑎 = ⟨𝑏, 𝑥⟩ ↔ ∃𝑎𝐴𝑎, 𝑏⟩((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥)
8734, 86bitri 263 . . . . . . . . . 10 (⟨𝑏, 𝑥⟩ ∈ 𝐴 ↔ ∃𝑎𝐴𝑎, 𝑏⟩((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥)
88 df-rex 2902 . . . . . . . . . 10 (∃𝑎𝐴𝑎, 𝑏⟩((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥 ↔ ∃𝑎(𝑎𝐴 ∧ ⟨𝑎, 𝑏⟩((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))
8933, 87, 883bitri 285 . . . . . . . . 9 (𝑏𝐴𝑥 ↔ ∃𝑎(𝑎𝐴 ∧ ⟨𝑎, 𝑏⟩((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))
9089anbi2i 726 . . . . . . . 8 ((𝑏𝐵𝑏𝐴𝑥) ↔ (𝑏𝐵 ∧ ∃𝑎(𝑎𝐴 ∧ ⟨𝑎, 𝑏⟩((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥)))
9117, 32, 903bitr4ri 292 . . . . . . 7 ((𝑏𝐵𝑏𝐴𝑥) ↔ ∃𝑝𝑎((𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))
9291exbii 1764 . . . . . 6 (∃𝑏(𝑏𝐵𝑏𝐴𝑥) ↔ ∃𝑏𝑝𝑎((𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))
9355elima2 5391 . . . . . 6 (𝑥 ∈ (𝐴𝐵) ↔ ∃𝑏(𝑏𝐵𝑏𝐴𝑥))
9455elima2 5391 . . . . . . 7 (𝑥 ∈ (((2nd ∘ 1st ) ↾ (1st ↾ (V × V))) “ (𝐴 × 𝐵)) ↔ ∃𝑝(𝑝 ∈ (𝐴 × 𝐵) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))
95 elxp 5055 . . . . . . . . . 10 (𝑝 ∈ (𝐴 × 𝐵) ↔ ∃𝑎𝑏(𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)))
9695anbi1i 727 . . . . . . . . 9 ((𝑝 ∈ (𝐴 × 𝐵) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥) ↔ (∃𝑎𝑏(𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))
97 19.41vv 1902 . . . . . . . . 9 (∃𝑎𝑏((𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥) ↔ (∃𝑎𝑏(𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))
9896, 97bitr4i 266 . . . . . . . 8 ((𝑝 ∈ (𝐴 × 𝐵) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥) ↔ ∃𝑎𝑏((𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))
9998exbii 1764 . . . . . . 7 (∃𝑝(𝑝 ∈ (𝐴 × 𝐵) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥) ↔ ∃𝑝𝑎𝑏((𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))
100 exrot3 2032 . . . . . . . 8 (∃𝑝𝑎𝑏((𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥) ↔ ∃𝑎𝑏𝑝((𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))
101 exrot3 2032 . . . . . . . 8 (∃𝑎𝑏𝑝((𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥) ↔ ∃𝑏𝑝𝑎((𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))
102100, 101bitri 263 . . . . . . 7 (∃𝑝𝑎𝑏((𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥) ↔ ∃𝑏𝑝𝑎((𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))
10394, 99, 1023bitri 285 . . . . . 6 (𝑥 ∈ (((2nd ∘ 1st ) ↾ (1st ↾ (V × V))) “ (𝐴 × 𝐵)) ↔ ∃𝑏𝑝𝑎((𝑝 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)) ∧ 𝑝((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝑥))
10492, 93, 1033bitr4ri 292 . . . . 5 (𝑥 ∈ (((2nd ∘ 1st ) ↾ (1st ↾ (V × V))) “ (𝐴 × 𝐵)) ↔ 𝑥 ∈ (𝐴𝐵))
105104eqriv 2607 . . . 4 (((2nd ∘ 1st ) ↾ (1st ↾ (V × V))) “ (𝐴 × 𝐵)) = (𝐴𝐵)
106105eqeq2i 2622 . . 3 (𝐶 = (((2nd ∘ 1st ) ↾ (1st ↾ (V × V))) “ (𝐴 × 𝐵)) ↔ 𝐶 = (𝐴𝐵))
10716, 106bitri 263 . 2 ((𝐴 × 𝐵)Image((2nd ∘ 1st ) ↾ (1st ↾ (V × V)))𝐶𝐶 = (𝐴𝐵))
1082, 15, 1073bitri 285 1 (⟨𝐴, 𝐵⟩Img𝐶𝐶 = (𝐴𝐵))
Colors of variables: wff setvar class
Syntax hints:  wb 195  wa 383  w3a 1031   = wceq 1475  wex 1695  wcel 1977  wrex 2897  Vcvv 3173  cop 4131   class class class wbr 4583   × cxp 5036  cres 5040  cima 5041  ccom 5042  1st c1st 7057  2nd c2nd 7058  Imagecimage 31116  Cartccart 31117  Imgcimg 31118
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1713  ax-4 1728  ax-5 1827  ax-6 1875  ax-7 1922  ax-8 1979  ax-9 1986  ax-10 2006  ax-11 2021  ax-12 2034  ax-13 2234  ax-ext 2590  ax-sep 4709  ax-nul 4717  ax-pow 4769  ax-pr 4833  ax-un 6847
This theorem depends on definitions:  df-bi 196  df-or 384  df-an 385  df-3an 1033  df-tru 1478  df-ex 1696  df-nf 1701  df-sb 1868  df-eu 2462  df-mo 2463  df-clab 2597  df-cleq 2603  df-clel 2606  df-nfc 2740  df-ne 2782  df-ral 2901  df-rex 2902  df-rab 2905  df-v 3175  df-sbc 3403  df-dif 3543  df-un 3545  df-in 3547  df-ss 3554  df-symdif 3806  df-nul 3875  df-if 4037  df-pw 4110  df-sn 4126  df-pr 4128  df-op 4132  df-uni 4373  df-br 4584  df-opab 4644  df-mpt 4645  df-eprel 4949  df-id 4953  df-xp 5044  df-rel 5045  df-cnv 5046  df-co 5047  df-dm 5048  df-rn 5049  df-res 5050  df-ima 5051  df-iota 5768  df-fun 5806  df-fn 5807  df-f 5808  df-fo 5810  df-fv 5812  df-1st 7059  df-2nd 7060  df-txp 31130  df-pprod 31131  df-image 31140  df-cart 31141  df-img 31142
This theorem is referenced by:  brapply  31215  dfrdg4  31228
  Copyright terms: Public domain W3C validator