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

Theorem tgjustc1 26566
Description: A justification for using distance equality instead of the textbook relation on pairs of points for congruence. (Contributed by Thierry Arnoux, 29-Jan-2023.)
Hypotheses
Ref Expression
tgjustc1.p 𝑃 = (Base‘𝐺)
tgjustc1.d = (dist‘𝐺)
Assertion
Ref Expression
tgjustc1 𝑟(𝑟 Er (𝑃 × 𝑃) ∧ ∀𝑤𝑃𝑥𝑃𝑦𝑃𝑧𝑃 (⟨𝑤, 𝑥𝑟𝑦, 𝑧⟩ ↔ (𝑤 𝑥) = (𝑦 𝑧)))
Distinct variable groups:   ,𝑟,𝑤,𝑥,𝑦,𝑧   𝑃,𝑟,𝑤,𝑥,𝑦,𝑧
Allowed substitution hints:   𝐺(𝑥,𝑦,𝑧,𝑤,𝑟)

Proof of Theorem tgjustc1
Dummy variables 𝑢 𝑣 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 tgjustc1.p . . . . 5 𝑃 = (Base‘𝐺)
21fvexi 6731 . . . 4 𝑃 ∈ V
32, 2xpex 7538 . . 3 (𝑃 × 𝑃) ∈ V
4 tgjustf 26564 . . 3 ((𝑃 × 𝑃) ∈ V → ∃𝑟(𝑟 Er (𝑃 × 𝑃) ∧ ∀𝑢 ∈ (𝑃 × 𝑃)∀𝑣 ∈ (𝑃 × 𝑃)(𝑢𝑟𝑣 ↔ ( 𝑢) = ( 𝑣))))
53, 4ax-mp 5 . 2 𝑟(𝑟 Er (𝑃 × 𝑃) ∧ ∀𝑢 ∈ (𝑃 × 𝑃)∀𝑣 ∈ (𝑃 × 𝑃)(𝑢𝑟𝑣 ↔ ( 𝑢) = ( 𝑣)))
6 simplrl 777 . . . . . . 7 (((∀𝑢 ∈ (𝑃 × 𝑃)∀𝑣 ∈ (𝑃 × 𝑃)(𝑢𝑟𝑣 ↔ ( 𝑢) = ( 𝑣)) ∧ (𝑤𝑃𝑥𝑃)) ∧ (𝑦𝑃𝑧𝑃)) → 𝑤𝑃)
7 simplrr 778 . . . . . . 7 (((∀𝑢 ∈ (𝑃 × 𝑃)∀𝑣 ∈ (𝑃 × 𝑃)(𝑢𝑟𝑣 ↔ ( 𝑢) = ( 𝑣)) ∧ (𝑤𝑃𝑥𝑃)) ∧ (𝑦𝑃𝑧𝑃)) → 𝑥𝑃)
86, 7opelxpd 5589 . . . . . 6 (((∀𝑢 ∈ (𝑃 × 𝑃)∀𝑣 ∈ (𝑃 × 𝑃)(𝑢𝑟𝑣 ↔ ( 𝑢) = ( 𝑣)) ∧ (𝑤𝑃𝑥𝑃)) ∧ (𝑦𝑃𝑧𝑃)) → ⟨𝑤, 𝑥⟩ ∈ (𝑃 × 𝑃))
9 simprl 771 . . . . . . 7 (((∀𝑢 ∈ (𝑃 × 𝑃)∀𝑣 ∈ (𝑃 × 𝑃)(𝑢𝑟𝑣 ↔ ( 𝑢) = ( 𝑣)) ∧ (𝑤𝑃𝑥𝑃)) ∧ (𝑦𝑃𝑧𝑃)) → 𝑦𝑃)
10 simprr 773 . . . . . . 7 (((∀𝑢 ∈ (𝑃 × 𝑃)∀𝑣 ∈ (𝑃 × 𝑃)(𝑢𝑟𝑣 ↔ ( 𝑢) = ( 𝑣)) ∧ (𝑤𝑃𝑥𝑃)) ∧ (𝑦𝑃𝑧𝑃)) → 𝑧𝑃)
119, 10opelxpd 5589 . . . . . 6 (((∀𝑢 ∈ (𝑃 × 𝑃)∀𝑣 ∈ (𝑃 × 𝑃)(𝑢𝑟𝑣 ↔ ( 𝑢) = ( 𝑣)) ∧ (𝑤𝑃𝑥𝑃)) ∧ (𝑦𝑃𝑧𝑃)) → ⟨𝑦, 𝑧⟩ ∈ (𝑃 × 𝑃))
12 simpll 767 . . . . . 6 (((∀𝑢 ∈ (𝑃 × 𝑃)∀𝑣 ∈ (𝑃 × 𝑃)(𝑢𝑟𝑣 ↔ ( 𝑢) = ( 𝑣)) ∧ (𝑤𝑃𝑥𝑃)) ∧ (𝑦𝑃𝑧𝑃)) → ∀𝑢 ∈ (𝑃 × 𝑃)∀𝑣 ∈ (𝑃 × 𝑃)(𝑢𝑟𝑣 ↔ ( 𝑢) = ( 𝑣)))
13 breq1 5056 . . . . . . . 8 (𝑢 = ⟨𝑤, 𝑥⟩ → (𝑢𝑟𝑣 ↔ ⟨𝑤, 𝑥𝑟𝑣))
14 fveq2 6717 . . . . . . . . . 10 (𝑢 = ⟨𝑤, 𝑥⟩ → ( 𝑢) = ( ‘⟨𝑤, 𝑥⟩))
15 df-ov 7216 . . . . . . . . . 10 (𝑤 𝑥) = ( ‘⟨𝑤, 𝑥⟩)
1614, 15eqtr4di 2796 . . . . . . . . 9 (𝑢 = ⟨𝑤, 𝑥⟩ → ( 𝑢) = (𝑤 𝑥))
1716eqeq1d 2739 . . . . . . . 8 (𝑢 = ⟨𝑤, 𝑥⟩ → (( 𝑢) = ( 𝑣) ↔ (𝑤 𝑥) = ( 𝑣)))
1813, 17bibi12d 349 . . . . . . 7 (𝑢 = ⟨𝑤, 𝑥⟩ → ((𝑢𝑟𝑣 ↔ ( 𝑢) = ( 𝑣)) ↔ (⟨𝑤, 𝑥𝑟𝑣 ↔ (𝑤 𝑥) = ( 𝑣))))
19 breq2 5057 . . . . . . . 8 (𝑣 = ⟨𝑦, 𝑧⟩ → (⟨𝑤, 𝑥𝑟𝑣 ↔ ⟨𝑤, 𝑥𝑟𝑦, 𝑧⟩))
20 fveq2 6717 . . . . . . . . . 10 (𝑣 = ⟨𝑦, 𝑧⟩ → ( 𝑣) = ( ‘⟨𝑦, 𝑧⟩))
21 df-ov 7216 . . . . . . . . . 10 (𝑦 𝑧) = ( ‘⟨𝑦, 𝑧⟩)
2220, 21eqtr4di 2796 . . . . . . . . 9 (𝑣 = ⟨𝑦, 𝑧⟩ → ( 𝑣) = (𝑦 𝑧))
2322eqeq2d 2748 . . . . . . . 8 (𝑣 = ⟨𝑦, 𝑧⟩ → ((𝑤 𝑥) = ( 𝑣) ↔ (𝑤 𝑥) = (𝑦 𝑧)))
2419, 23bibi12d 349 . . . . . . 7 (𝑣 = ⟨𝑦, 𝑧⟩ → ((⟨𝑤, 𝑥𝑟𝑣 ↔ (𝑤 𝑥) = ( 𝑣)) ↔ (⟨𝑤, 𝑥𝑟𝑦, 𝑧⟩ ↔ (𝑤 𝑥) = (𝑦 𝑧))))
2518, 24rspc2va 3548 . . . . . 6 (((⟨𝑤, 𝑥⟩ ∈ (𝑃 × 𝑃) ∧ ⟨𝑦, 𝑧⟩ ∈ (𝑃 × 𝑃)) ∧ ∀𝑢 ∈ (𝑃 × 𝑃)∀𝑣 ∈ (𝑃 × 𝑃)(𝑢𝑟𝑣 ↔ ( 𝑢) = ( 𝑣))) → (⟨𝑤, 𝑥𝑟𝑦, 𝑧⟩ ↔ (𝑤 𝑥) = (𝑦 𝑧)))
268, 11, 12, 25syl21anc 838 . . . . 5 (((∀𝑢 ∈ (𝑃 × 𝑃)∀𝑣 ∈ (𝑃 × 𝑃)(𝑢𝑟𝑣 ↔ ( 𝑢) = ( 𝑣)) ∧ (𝑤𝑃𝑥𝑃)) ∧ (𝑦𝑃𝑧𝑃)) → (⟨𝑤, 𝑥𝑟𝑦, 𝑧⟩ ↔ (𝑤 𝑥) = (𝑦 𝑧)))
2726ralrimivva 3112 . . . 4 ((∀𝑢 ∈ (𝑃 × 𝑃)∀𝑣 ∈ (𝑃 × 𝑃)(𝑢𝑟𝑣 ↔ ( 𝑢) = ( 𝑣)) ∧ (𝑤𝑃𝑥𝑃)) → ∀𝑦𝑃𝑧𝑃 (⟨𝑤, 𝑥𝑟𝑦, 𝑧⟩ ↔ (𝑤 𝑥) = (𝑦 𝑧)))
2827ralrimivva 3112 . . 3 (∀𝑢 ∈ (𝑃 × 𝑃)∀𝑣 ∈ (𝑃 × 𝑃)(𝑢𝑟𝑣 ↔ ( 𝑢) = ( 𝑣)) → ∀𝑤𝑃𝑥𝑃𝑦𝑃𝑧𝑃 (⟨𝑤, 𝑥𝑟𝑦, 𝑧⟩ ↔ (𝑤 𝑥) = (𝑦 𝑧)))
2928anim2i 620 . 2 ((𝑟 Er (𝑃 × 𝑃) ∧ ∀𝑢 ∈ (𝑃 × 𝑃)∀𝑣 ∈ (𝑃 × 𝑃)(𝑢𝑟𝑣 ↔ ( 𝑢) = ( 𝑣))) → (𝑟 Er (𝑃 × 𝑃) ∧ ∀𝑤𝑃𝑥𝑃𝑦𝑃𝑧𝑃 (⟨𝑤, 𝑥𝑟𝑦, 𝑧⟩ ↔ (𝑤 𝑥) = (𝑦 𝑧))))
305, 29eximii 1844 1 𝑟(𝑟 Er (𝑃 × 𝑃) ∧ ∀𝑤𝑃𝑥𝑃𝑦𝑃𝑧𝑃 (⟨𝑤, 𝑥𝑟𝑦, 𝑧⟩ ↔ (𝑤 𝑥) = (𝑦 𝑧)))
Colors of variables: wff setvar class
Syntax hints:  wb 209  wa 399   = wceq 1543  wex 1787  wcel 2110  wral 3061  Vcvv 3408  cop 4547   class class class wbr 5053   × cxp 5549  cfv 6380  (class class class)co 7213   Er wer 8388  Basecbs 16760  distcds 16811
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1803  ax-4 1817  ax-5 1918  ax-6 1976  ax-7 2016  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2158  ax-12 2175  ax-ext 2708  ax-sep 5192  ax-nul 5199  ax-pow 5258  ax-pr 5322  ax-un 7523
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 848  df-3an 1091  df-tru 1546  df-fal 1556  df-ex 1788  df-nf 1792  df-sb 2071  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2729  df-clel 2816  df-nfc 2886  df-ral 3066  df-rex 3067  df-rab 3070  df-v 3410  df-dif 3869  df-un 3871  df-in 3873  df-ss 3883  df-nul 4238  df-if 4440  df-pw 4515  df-sn 4542  df-pr 4544  df-op 4548  df-uni 4820  df-br 5054  df-opab 5116  df-xp 5557  df-rel 5558  df-cnv 5559  df-co 5560  df-dm 5561  df-iota 6338  df-fv 6388  df-ov 7216  df-er 8391
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator