MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  tgjustf Structured version   Visualization version   GIF version

Theorem tgjustf 26186
Description: Given any function 𝐹, equality of the image by 𝐹 is an equivalence relation. (Contributed by Thierry Arnoux, 25-Jan-2023.)
Assertion
Ref Expression
tgjustf (𝐴𝑉 → ∃𝑟(𝑟 Er 𝐴 ∧ ∀𝑥𝐴𝑦𝐴 (𝑥𝑟𝑦 ↔ (𝐹𝑥) = (𝐹𝑦))))
Distinct variable groups:   𝐴,𝑟,𝑥,𝑦   𝐹,𝑟,𝑥,𝑦
Allowed substitution hints:   𝑉(𝑥,𝑦,𝑟)

Proof of Theorem tgjustf
Dummy variables 𝑢 𝑣 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 relopab 5689 . . 3 Rel {⟨𝑢, 𝑣⟩ ∣ ((𝑢𝐴𝑣𝐴) ∧ (𝐹𝑢) = (𝐹𝑣))}
2 ancom 461 . . . . . 6 ((𝑥𝐴𝑦𝐴) ↔ (𝑦𝐴𝑥𝐴))
3 eqcom 2825 . . . . . 6 ((𝐹𝑥) = (𝐹𝑦) ↔ (𝐹𝑦) = (𝐹𝑥))
42, 3anbi12i 626 . . . . 5 (((𝑥𝐴𝑦𝐴) ∧ (𝐹𝑥) = (𝐹𝑦)) ↔ ((𝑦𝐴𝑥𝐴) ∧ (𝐹𝑦) = (𝐹𝑥)))
5 simpl 483 . . . . . . . 8 ((𝑢 = 𝑥𝑣 = 𝑦) → 𝑢 = 𝑥)
65fveq2d 6667 . . . . . . 7 ((𝑢 = 𝑥𝑣 = 𝑦) → (𝐹𝑢) = (𝐹𝑥))
7 simpr 485 . . . . . . . 8 ((𝑢 = 𝑥𝑣 = 𝑦) → 𝑣 = 𝑦)
87fveq2d 6667 . . . . . . 7 ((𝑢 = 𝑥𝑣 = 𝑦) → (𝐹𝑣) = (𝐹𝑦))
96, 8eqeq12d 2834 . . . . . 6 ((𝑢 = 𝑥𝑣 = 𝑦) → ((𝐹𝑢) = (𝐹𝑣) ↔ (𝐹𝑥) = (𝐹𝑦)))
10 eqid 2818 . . . . . 6 {⟨𝑢, 𝑣⟩ ∣ ((𝑢𝐴𝑣𝐴) ∧ (𝐹𝑢) = (𝐹𝑣))} = {⟨𝑢, 𝑣⟩ ∣ ((𝑢𝐴𝑣𝐴) ∧ (𝐹𝑢) = (𝐹𝑣))}
119, 10brab2a 5637 . . . . 5 (𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢𝐴𝑣𝐴) ∧ (𝐹𝑢) = (𝐹𝑣))}𝑦 ↔ ((𝑥𝐴𝑦𝐴) ∧ (𝐹𝑥) = (𝐹𝑦)))
12 simpl 483 . . . . . . . 8 ((𝑢 = 𝑦𝑣 = 𝑥) → 𝑢 = 𝑦)
1312fveq2d 6667 . . . . . . 7 ((𝑢 = 𝑦𝑣 = 𝑥) → (𝐹𝑢) = (𝐹𝑦))
14 simpr 485 . . . . . . . 8 ((𝑢 = 𝑦𝑣 = 𝑥) → 𝑣 = 𝑥)
1514fveq2d 6667 . . . . . . 7 ((𝑢 = 𝑦𝑣 = 𝑥) → (𝐹𝑣) = (𝐹𝑥))
1613, 15eqeq12d 2834 . . . . . 6 ((𝑢 = 𝑦𝑣 = 𝑥) → ((𝐹𝑢) = (𝐹𝑣) ↔ (𝐹𝑦) = (𝐹𝑥)))
1716, 10brab2a 5637 . . . . 5 (𝑦{⟨𝑢, 𝑣⟩ ∣ ((𝑢𝐴𝑣𝐴) ∧ (𝐹𝑢) = (𝐹𝑣))}𝑥 ↔ ((𝑦𝐴𝑥𝐴) ∧ (𝐹𝑦) = (𝐹𝑥)))
184, 11, 173bitr4i 304 . . . 4 (𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢𝐴𝑣𝐴) ∧ (𝐹𝑢) = (𝐹𝑣))}𝑦𝑦{⟨𝑢, 𝑣⟩ ∣ ((𝑢𝐴𝑣𝐴) ∧ (𝐹𝑢) = (𝐹𝑣))}𝑥)
1918biimpi 217 . . 3 (𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢𝐴𝑣𝐴) ∧ (𝐹𝑢) = (𝐹𝑣))}𝑦𝑦{⟨𝑢, 𝑣⟩ ∣ ((𝑢𝐴𝑣𝐴) ∧ (𝐹𝑢) = (𝐹𝑣))}𝑥)
20 simplll 771 . . . . 5 ((((𝑥𝐴𝑦𝐴) ∧ (𝐹𝑥) = (𝐹𝑦)) ∧ ((𝑦𝐴𝑧𝐴) ∧ (𝐹𝑦) = (𝐹𝑧))) → 𝑥𝐴)
21 simprlr 776 . . . . 5 ((((𝑥𝐴𝑦𝐴) ∧ (𝐹𝑥) = (𝐹𝑦)) ∧ ((𝑦𝐴𝑧𝐴) ∧ (𝐹𝑦) = (𝐹𝑧))) → 𝑧𝐴)
22 simplr 765 . . . . . 6 ((((𝑥𝐴𝑦𝐴) ∧ (𝐹𝑥) = (𝐹𝑦)) ∧ ((𝑦𝐴𝑧𝐴) ∧ (𝐹𝑦) = (𝐹𝑧))) → (𝐹𝑥) = (𝐹𝑦))
23 simprr 769 . . . . . 6 ((((𝑥𝐴𝑦𝐴) ∧ (𝐹𝑥) = (𝐹𝑦)) ∧ ((𝑦𝐴𝑧𝐴) ∧ (𝐹𝑦) = (𝐹𝑧))) → (𝐹𝑦) = (𝐹𝑧))
2422, 23eqtrd 2853 . . . . 5 ((((𝑥𝐴𝑦𝐴) ∧ (𝐹𝑥) = (𝐹𝑦)) ∧ ((𝑦𝐴𝑧𝐴) ∧ (𝐹𝑦) = (𝐹𝑧))) → (𝐹𝑥) = (𝐹𝑧))
2520, 21, 24jca31 515 . . . 4 ((((𝑥𝐴𝑦𝐴) ∧ (𝐹𝑥) = (𝐹𝑦)) ∧ ((𝑦𝐴𝑧𝐴) ∧ (𝐹𝑦) = (𝐹𝑧))) → ((𝑥𝐴𝑧𝐴) ∧ (𝐹𝑥) = (𝐹𝑧)))
26 simpl 483 . . . . . . . 8 ((𝑢 = 𝑦𝑣 = 𝑧) → 𝑢 = 𝑦)
2726fveq2d 6667 . . . . . . 7 ((𝑢 = 𝑦𝑣 = 𝑧) → (𝐹𝑢) = (𝐹𝑦))
28 simpr 485 . . . . . . . 8 ((𝑢 = 𝑦𝑣 = 𝑧) → 𝑣 = 𝑧)
2928fveq2d 6667 . . . . . . 7 ((𝑢 = 𝑦𝑣 = 𝑧) → (𝐹𝑣) = (𝐹𝑧))
3027, 29eqeq12d 2834 . . . . . 6 ((𝑢 = 𝑦𝑣 = 𝑧) → ((𝐹𝑢) = (𝐹𝑣) ↔ (𝐹𝑦) = (𝐹𝑧)))
3130, 10brab2a 5637 . . . . 5 (𝑦{⟨𝑢, 𝑣⟩ ∣ ((𝑢𝐴𝑣𝐴) ∧ (𝐹𝑢) = (𝐹𝑣))}𝑧 ↔ ((𝑦𝐴𝑧𝐴) ∧ (𝐹𝑦) = (𝐹𝑧)))
3211, 31anbi12i 626 . . . 4 ((𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢𝐴𝑣𝐴) ∧ (𝐹𝑢) = (𝐹𝑣))}𝑦𝑦{⟨𝑢, 𝑣⟩ ∣ ((𝑢𝐴𝑣𝐴) ∧ (𝐹𝑢) = (𝐹𝑣))}𝑧) ↔ (((𝑥𝐴𝑦𝐴) ∧ (𝐹𝑥) = (𝐹𝑦)) ∧ ((𝑦𝐴𝑧𝐴) ∧ (𝐹𝑦) = (𝐹𝑧))))
33 simpl 483 . . . . . . 7 ((𝑢 = 𝑥𝑣 = 𝑧) → 𝑢 = 𝑥)
3433fveq2d 6667 . . . . . 6 ((𝑢 = 𝑥𝑣 = 𝑧) → (𝐹𝑢) = (𝐹𝑥))
35 simpr 485 . . . . . . 7 ((𝑢 = 𝑥𝑣 = 𝑧) → 𝑣 = 𝑧)
3635fveq2d 6667 . . . . . 6 ((𝑢 = 𝑥𝑣 = 𝑧) → (𝐹𝑣) = (𝐹𝑧))
3734, 36eqeq12d 2834 . . . . 5 ((𝑢 = 𝑥𝑣 = 𝑧) → ((𝐹𝑢) = (𝐹𝑣) ↔ (𝐹𝑥) = (𝐹𝑧)))
3837, 10brab2a 5637 . . . 4 (𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢𝐴𝑣𝐴) ∧ (𝐹𝑢) = (𝐹𝑣))}𝑧 ↔ ((𝑥𝐴𝑧𝐴) ∧ (𝐹𝑥) = (𝐹𝑧)))
3925, 32, 383imtr4i 293 . . 3 ((𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢𝐴𝑣𝐴) ∧ (𝐹𝑢) = (𝐹𝑣))}𝑦𝑦{⟨𝑢, 𝑣⟩ ∣ ((𝑢𝐴𝑣𝐴) ∧ (𝐹𝑢) = (𝐹𝑣))}𝑧) → 𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢𝐴𝑣𝐴) ∧ (𝐹𝑢) = (𝐹𝑣))}𝑧)
40 eqid 2818 . . . . 5 (𝐹𝑥) = (𝐹𝑥)
4140biantru 530 . . . 4 ((𝑥𝐴𝑥𝐴) ↔ ((𝑥𝐴𝑥𝐴) ∧ (𝐹𝑥) = (𝐹𝑥)))
42 pm4.24 564 . . . 4 (𝑥𝐴 ↔ (𝑥𝐴𝑥𝐴))
43 simpl 483 . . . . . . 7 ((𝑢 = 𝑥𝑣 = 𝑥) → 𝑢 = 𝑥)
4443fveq2d 6667 . . . . . 6 ((𝑢 = 𝑥𝑣 = 𝑥) → (𝐹𝑢) = (𝐹𝑥))
45 simpr 485 . . . . . . 7 ((𝑢 = 𝑥𝑣 = 𝑥) → 𝑣 = 𝑥)
4645fveq2d 6667 . . . . . 6 ((𝑢 = 𝑥𝑣 = 𝑥) → (𝐹𝑣) = (𝐹𝑥))
4744, 46eqeq12d 2834 . . . . 5 ((𝑢 = 𝑥𝑣 = 𝑥) → ((𝐹𝑢) = (𝐹𝑣) ↔ (𝐹𝑥) = (𝐹𝑥)))
4847, 10brab2a 5637 . . . 4 (𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢𝐴𝑣𝐴) ∧ (𝐹𝑢) = (𝐹𝑣))}𝑥 ↔ ((𝑥𝐴𝑥𝐴) ∧ (𝐹𝑥) = (𝐹𝑥)))
4941, 42, 483bitr4i 304 . . 3 (𝑥𝐴𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢𝐴𝑣𝐴) ∧ (𝐹𝑢) = (𝐹𝑣))}𝑥)
501, 19, 39, 49iseri 8305 . 2 {⟨𝑢, 𝑣⟩ ∣ ((𝑢𝐴𝑣𝐴) ∧ (𝐹𝑢) = (𝐹𝑣))} Er 𝐴
5111baib 536 . . 3 ((𝑥𝐴𝑦𝐴) → (𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢𝐴𝑣𝐴) ∧ (𝐹𝑢) = (𝐹𝑣))}𝑦 ↔ (𝐹𝑥) = (𝐹𝑦)))
5251rgen2 3200 . 2 𝑥𝐴𝑦𝐴 (𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢𝐴𝑣𝐴) ∧ (𝐹𝑢) = (𝐹𝑣))}𝑦 ↔ (𝐹𝑥) = (𝐹𝑦))
53 id 22 . . . 4 (𝐴𝑉𝐴𝑉)
54 simprll 775 . . . 4 ((𝐴𝑉 ∧ ((𝑢𝐴𝑣𝐴) ∧ (𝐹𝑢) = (𝐹𝑣))) → 𝑢𝐴)
55 simprlr 776 . . . 4 ((𝐴𝑉 ∧ ((𝑢𝐴𝑣𝐴) ∧ (𝐹𝑢) = (𝐹𝑣))) → 𝑣𝐴)
5653, 53, 54, 55opabex2 7744 . . 3 (𝐴𝑉 → {⟨𝑢, 𝑣⟩ ∣ ((𝑢𝐴𝑣𝐴) ∧ (𝐹𝑢) = (𝐹𝑣))} ∈ V)
57 ereq1 8285 . . . . 5 (𝑟 = {⟨𝑢, 𝑣⟩ ∣ ((𝑢𝐴𝑣𝐴) ∧ (𝐹𝑢) = (𝐹𝑣))} → (𝑟 Er 𝐴 ↔ {⟨𝑢, 𝑣⟩ ∣ ((𝑢𝐴𝑣𝐴) ∧ (𝐹𝑢) = (𝐹𝑣))} Er 𝐴))
58 simpl 483 . . . . . . . 8 ((𝑟 = {⟨𝑢, 𝑣⟩ ∣ ((𝑢𝐴𝑣𝐴) ∧ (𝐹𝑢) = (𝐹𝑣))} ∧ (𝑥𝐴𝑦𝐴)) → 𝑟 = {⟨𝑢, 𝑣⟩ ∣ ((𝑢𝐴𝑣𝐴) ∧ (𝐹𝑢) = (𝐹𝑣))})
5958breqd 5068 . . . . . . 7 ((𝑟 = {⟨𝑢, 𝑣⟩ ∣ ((𝑢𝐴𝑣𝐴) ∧ (𝐹𝑢) = (𝐹𝑣))} ∧ (𝑥𝐴𝑦𝐴)) → (𝑥𝑟𝑦𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢𝐴𝑣𝐴) ∧ (𝐹𝑢) = (𝐹𝑣))}𝑦))
6059bibi1d 345 . . . . . 6 ((𝑟 = {⟨𝑢, 𝑣⟩ ∣ ((𝑢𝐴𝑣𝐴) ∧ (𝐹𝑢) = (𝐹𝑣))} ∧ (𝑥𝐴𝑦𝐴)) → ((𝑥𝑟𝑦 ↔ (𝐹𝑥) = (𝐹𝑦)) ↔ (𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢𝐴𝑣𝐴) ∧ (𝐹𝑢) = (𝐹𝑣))}𝑦 ↔ (𝐹𝑥) = (𝐹𝑦))))
61602ralbidva 3195 . . . . 5 (𝑟 = {⟨𝑢, 𝑣⟩ ∣ ((𝑢𝐴𝑣𝐴) ∧ (𝐹𝑢) = (𝐹𝑣))} → (∀𝑥𝐴𝑦𝐴 (𝑥𝑟𝑦 ↔ (𝐹𝑥) = (𝐹𝑦)) ↔ ∀𝑥𝐴𝑦𝐴 (𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢𝐴𝑣𝐴) ∧ (𝐹𝑢) = (𝐹𝑣))}𝑦 ↔ (𝐹𝑥) = (𝐹𝑦))))
6257, 61anbi12d 630 . . . 4 (𝑟 = {⟨𝑢, 𝑣⟩ ∣ ((𝑢𝐴𝑣𝐴) ∧ (𝐹𝑢) = (𝐹𝑣))} → ((𝑟 Er 𝐴 ∧ ∀𝑥𝐴𝑦𝐴 (𝑥𝑟𝑦 ↔ (𝐹𝑥) = (𝐹𝑦))) ↔ ({⟨𝑢, 𝑣⟩ ∣ ((𝑢𝐴𝑣𝐴) ∧ (𝐹𝑢) = (𝐹𝑣))} Er 𝐴 ∧ ∀𝑥𝐴𝑦𝐴 (𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢𝐴𝑣𝐴) ∧ (𝐹𝑢) = (𝐹𝑣))}𝑦 ↔ (𝐹𝑥) = (𝐹𝑦)))))
6362spcegv 3594 . . 3 ({⟨𝑢, 𝑣⟩ ∣ ((𝑢𝐴𝑣𝐴) ∧ (𝐹𝑢) = (𝐹𝑣))} ∈ V → (({⟨𝑢, 𝑣⟩ ∣ ((𝑢𝐴𝑣𝐴) ∧ (𝐹𝑢) = (𝐹𝑣))} Er 𝐴 ∧ ∀𝑥𝐴𝑦𝐴 (𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢𝐴𝑣𝐴) ∧ (𝐹𝑢) = (𝐹𝑣))}𝑦 ↔ (𝐹𝑥) = (𝐹𝑦))) → ∃𝑟(𝑟 Er 𝐴 ∧ ∀𝑥𝐴𝑦𝐴 (𝑥𝑟𝑦 ↔ (𝐹𝑥) = (𝐹𝑦)))))
6456, 63syl 17 . 2 (𝐴𝑉 → (({⟨𝑢, 𝑣⟩ ∣ ((𝑢𝐴𝑣𝐴) ∧ (𝐹𝑢) = (𝐹𝑣))} Er 𝐴 ∧ ∀𝑥𝐴𝑦𝐴 (𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢𝐴𝑣𝐴) ∧ (𝐹𝑢) = (𝐹𝑣))}𝑦 ↔ (𝐹𝑥) = (𝐹𝑦))) → ∃𝑟(𝑟 Er 𝐴 ∧ ∀𝑥𝐴𝑦𝐴 (𝑥𝑟𝑦 ↔ (𝐹𝑥) = (𝐹𝑦)))))
6550, 52, 64mp2ani 694 1 (𝐴𝑉 → ∃𝑟(𝑟 Er 𝐴 ∧ ∀𝑥𝐴𝑦𝐴 (𝑥𝑟𝑦 ↔ (𝐹𝑥) = (𝐹𝑦))))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 207  wa 396   = wceq 1528  wex 1771  wcel 2105  wral 3135  Vcvv 3492   class class class wbr 5057  {copab 5119  cfv 6348   Er wer 8275
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1787  ax-4 1801  ax-5 1902  ax-6 1961  ax-7 2006  ax-8 2107  ax-9 2115  ax-10 2136  ax-11 2151  ax-12 2167  ax-ext 2790  ax-sep 5194  ax-nul 5201  ax-pow 5257  ax-pr 5320  ax-un 7450
This theorem depends on definitions:  df-bi 208  df-an 397  df-or 842  df-3an 1081  df-tru 1531  df-ex 1772  df-nf 1776  df-sb 2061  df-mo 2615  df-eu 2647  df-clab 2797  df-cleq 2811  df-clel 2890  df-nfc 2960  df-ral 3140  df-rex 3141  df-rab 3144  df-v 3494  df-dif 3936  df-un 3938  df-in 3940  df-ss 3949  df-nul 4289  df-if 4464  df-pw 4537  df-sn 4558  df-pr 4560  df-op 4564  df-uni 4831  df-br 5058  df-opab 5120  df-xp 5554  df-rel 5555  df-cnv 5556  df-co 5557  df-dm 5558  df-iota 6307  df-fv 6356  df-er 8278
This theorem is referenced by:  tgjustc1  26188
  Copyright terms: Public domain W3C validator