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

Theorem ecgrtg 29370
Description: The congruence relation used in the Tarski structure for the Euclidean geometry is the same as Cgr. (Contributed by Thierry Arnoux, 15-Mar-2019.)
Hypotheses
Ref Expression
ecgrtg.1 (𝜑𝑁 ∈ ℕ)
ecgrtg.2 𝑃 = (Base‘(EEG‘𝑁))
ecgrtg.3 = (dist‘(EEG‘𝑁))
ecgrtg.a (𝜑𝐴𝑃)
ecgrtg.b (𝜑𝐵𝑃)
ecgrtg.c (𝜑𝐶𝑃)
ecgrtg.d (𝜑𝐷𝑃)
Assertion
Ref Expression
ecgrtg (𝜑 → (⟨𝐴, 𝐵⟩Cgr⟨𝐶, 𝐷⟩ ↔ (𝐴 𝐵) = (𝐶 𝐷)))

Proof of Theorem ecgrtg
Dummy variables 𝑥 𝑖 𝑦 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 ecgrtg.a . . . 4 (𝜑𝐴𝑃)
2 ecgrtg.1 . . . . . 6 (𝜑𝑁 ∈ ℕ)
3 eengbas 29368 . . . . . 6 (𝑁 ∈ ℕ → (𝔼‘𝑁) = (Base‘(EEG‘𝑁)))
42, 3syl 18 . . . . 5 (𝜑 → (𝔼‘𝑁) = (Base‘(EEG‘𝑁)))
5 ecgrtg.2 . . . . 5 𝑃 = (Base‘(EEG‘𝑁))
64, 5eqtr4di 2819 . . . 4 (𝜑 → (𝔼‘𝑁) = 𝑃)
71, 6eleqtrrd 2869 . . 3 (𝜑𝐴 ∈ (𝔼‘𝑁))
8 ecgrtg.b . . . 4 (𝜑𝐵𝑃)
98, 6eleqtrrd 2869 . . 3 (𝜑𝐵 ∈ (𝔼‘𝑁))
10 ecgrtg.c . . . 4 (𝜑𝐶𝑃)
1110, 6eleqtrrd 2869 . . 3 (𝜑𝐶 ∈ (𝔼‘𝑁))
12 ecgrtg.d . . . 4 (𝜑𝐷𝑃)
1312, 6eleqtrrd 2869 . . 3 (𝜑𝐷 ∈ (𝔼‘𝑁))
14 brcgr 29287 . . 3 (((𝐴 ∈ (𝔼‘𝑁) ∧ 𝐵 ∈ (𝔼‘𝑁)) ∧ (𝐶 ∈ (𝔼‘𝑁) ∧ 𝐷 ∈ (𝔼‘𝑁))) → (⟨𝐴, 𝐵⟩Cgr⟨𝐶, 𝐷⟩ ↔ Σ𝑖 ∈ (1...𝑁)(((𝐴𝑖) − (𝐵𝑖))↑2) = Σ𝑖 ∈ (1...𝑁)(((𝐶𝑖) − (𝐷𝑖))↑2)))
157, 9, 11, 13, 14syl22anc 852 . 2 (𝜑 → (⟨𝐴, 𝐵⟩Cgr⟨𝐶, 𝐷⟩ ↔ Σ𝑖 ∈ (1...𝑁)(((𝐴𝑖) − (𝐵𝑖))↑2) = Σ𝑖 ∈ (1...𝑁)(((𝐶𝑖) − (𝐷𝑖))↑2)))
16 ecgrtg.3 . . . . . 6 = (dist‘(EEG‘𝑁))
17 dsid 17464 . . . . . . 7 dist = Slot (dist‘ndx)
18 fvexd 6903 . . . . . . 7 (𝜑 → (EEG‘𝑁) ∈ V)
19 eengstr 29367 . . . . . . . . . 10 (𝑁 ∈ ℕ → (EEG‘𝑁) Struct ⟨1, 17⟩)
202, 19syl 18 . . . . . . . . 9 (𝜑 → (EEG‘𝑁) Struct ⟨1, 17⟩)
21 structn0fun 17236 . . . . . . . . 9 ((EEG‘𝑁) Struct ⟨1, 17⟩ → Fun ((EEG‘𝑁) ∖ {∅}))
2220, 21syl 18 . . . . . . . 8 (𝜑 → Fun ((EEG‘𝑁) ∖ {∅}))
23 structcnvcnv 17238 . . . . . . . . . 10 ((EEG‘𝑁) Struct ⟨1, 17⟩ → (EEG‘𝑁) = ((EEG‘𝑁) ∖ {∅}))
2420, 23syl 18 . . . . . . . . 9 (𝜑(EEG‘𝑁) = ((EEG‘𝑁) ∖ {∅}))
2524funeqd 6565 . . . . . . . 8 (𝜑 → (Fun (EEG‘𝑁) ↔ Fun ((EEG‘𝑁) ∖ {∅})))
2622, 25mpbird 260 . . . . . . 7 (𝜑 → Fun (EEG‘𝑁))
27 opex 5450 . . . . . . . . . 10 ⟨(dist‘ndx), (𝑥 ∈ (𝔼‘𝑁), 𝑦 ∈ (𝔼‘𝑁) ↦ Σ𝑖 ∈ (1...𝑁)(((𝑥𝑖) − (𝑦𝑖))↑2))⟩ ∈ V
2827prid2 4734 . . . . . . . . 9 ⟨(dist‘ndx), (𝑥 ∈ (𝔼‘𝑁), 𝑦 ∈ (𝔼‘𝑁) ↦ Σ𝑖 ∈ (1...𝑁)(((𝑥𝑖) − (𝑦𝑖))↑2))⟩ ∈ {⟨(Base‘ndx), (𝔼‘𝑁)⟩, ⟨(dist‘ndx), (𝑥 ∈ (𝔼‘𝑁), 𝑦 ∈ (𝔼‘𝑁) ↦ Σ𝑖 ∈ (1...𝑁)(((𝑥𝑖) − (𝑦𝑖))↑2))⟩}
29 elun1 4138 . . . . . . . . 9 (⟨(dist‘ndx), (𝑥 ∈ (𝔼‘𝑁), 𝑦 ∈ (𝔼‘𝑁) ↦ Σ𝑖 ∈ (1...𝑁)(((𝑥𝑖) − (𝑦𝑖))↑2))⟩ ∈ {⟨(Base‘ndx), (𝔼‘𝑁)⟩, ⟨(dist‘ndx), (𝑥 ∈ (𝔼‘𝑁), 𝑦 ∈ (𝔼‘𝑁) ↦ Σ𝑖 ∈ (1...𝑁)(((𝑥𝑖) − (𝑦𝑖))↑2))⟩} → ⟨(dist‘ndx), (𝑥 ∈ (𝔼‘𝑁), 𝑦 ∈ (𝔼‘𝑁) ↦ Σ𝑖 ∈ (1...𝑁)(((𝑥𝑖) − (𝑦𝑖))↑2))⟩ ∈ ({⟨(Base‘ndx), (𝔼‘𝑁)⟩, ⟨(dist‘ndx), (𝑥 ∈ (𝔼‘𝑁), 𝑦 ∈ (𝔼‘𝑁) ↦ Σ𝑖 ∈ (1...𝑁)(((𝑥𝑖) − (𝑦𝑖))↑2))⟩} ∪ {⟨(Itv‘ndx), (𝑥 ∈ (𝔼‘𝑁), 𝑦 ∈ (𝔼‘𝑁) ↦ {𝑧 ∈ (𝔼‘𝑁) ∣ 𝑧 Btwn ⟨𝑥, 𝑦⟩})⟩, ⟨(LineG‘ndx), (𝑥 ∈ (𝔼‘𝑁), 𝑦 ∈ ((𝔼‘𝑁) ∖ {𝑥}) ↦ {𝑧 ∈ (𝔼‘𝑁) ∣ (𝑧 Btwn ⟨𝑥, 𝑦⟩ ∨ 𝑥 Btwn ⟨𝑧, 𝑦⟩ ∨ 𝑦 Btwn ⟨𝑥, 𝑧⟩)})⟩}))
3028, 29ax-mp 5 . . . . . . . 8 ⟨(dist‘ndx), (𝑥 ∈ (𝔼‘𝑁), 𝑦 ∈ (𝔼‘𝑁) ↦ Σ𝑖 ∈ (1...𝑁)(((𝑥𝑖) − (𝑦𝑖))↑2))⟩ ∈ ({⟨(Base‘ndx), (𝔼‘𝑁)⟩, ⟨(dist‘ndx), (𝑥 ∈ (𝔼‘𝑁), 𝑦 ∈ (𝔼‘𝑁) ↦ Σ𝑖 ∈ (1...𝑁)(((𝑥𝑖) − (𝑦𝑖))↑2))⟩} ∪ {⟨(Itv‘ndx), (𝑥 ∈ (𝔼‘𝑁), 𝑦 ∈ (𝔼‘𝑁) ↦ {𝑧 ∈ (𝔼‘𝑁) ∣ 𝑧 Btwn ⟨𝑥, 𝑦⟩})⟩, ⟨(LineG‘ndx), (𝑥 ∈ (𝔼‘𝑁), 𝑦 ∈ ((𝔼‘𝑁) ∖ {𝑥}) ↦ {𝑧 ∈ (𝔼‘𝑁) ∣ (𝑧 Btwn ⟨𝑥, 𝑦⟩ ∨ 𝑥 Btwn ⟨𝑧, 𝑦⟩ ∨ 𝑦 Btwn ⟨𝑥, 𝑧⟩)})⟩})
31 eengv 29366 . . . . . . . . 9 (𝑁 ∈ ℕ → (EEG‘𝑁) = ({⟨(Base‘ndx), (𝔼‘𝑁)⟩, ⟨(dist‘ndx), (𝑥 ∈ (𝔼‘𝑁), 𝑦 ∈ (𝔼‘𝑁) ↦ Σ𝑖 ∈ (1...𝑁)(((𝑥𝑖) − (𝑦𝑖))↑2))⟩} ∪ {⟨(Itv‘ndx), (𝑥 ∈ (𝔼‘𝑁), 𝑦 ∈ (𝔼‘𝑁) ↦ {𝑧 ∈ (𝔼‘𝑁) ∣ 𝑧 Btwn ⟨𝑥, 𝑦⟩})⟩, ⟨(LineG‘ndx), (𝑥 ∈ (𝔼‘𝑁), 𝑦 ∈ ((𝔼‘𝑁) ∖ {𝑥}) ↦ {𝑧 ∈ (𝔼‘𝑁) ∣ (𝑧 Btwn ⟨𝑥, 𝑦⟩ ∨ 𝑥 Btwn ⟨𝑧, 𝑦⟩ ∨ 𝑦 Btwn ⟨𝑥, 𝑧⟩)})⟩}))
322, 31syl 18 . . . . . . . 8 (𝜑 → (EEG‘𝑁) = ({⟨(Base‘ndx), (𝔼‘𝑁)⟩, ⟨(dist‘ndx), (𝑥 ∈ (𝔼‘𝑁), 𝑦 ∈ (𝔼‘𝑁) ↦ Σ𝑖 ∈ (1...𝑁)(((𝑥𝑖) − (𝑦𝑖))↑2))⟩} ∪ {⟨(Itv‘ndx), (𝑥 ∈ (𝔼‘𝑁), 𝑦 ∈ (𝔼‘𝑁) ↦ {𝑧 ∈ (𝔼‘𝑁) ∣ 𝑧 Btwn ⟨𝑥, 𝑦⟩})⟩, ⟨(LineG‘ndx), (𝑥 ∈ (𝔼‘𝑁), 𝑦 ∈ ((𝔼‘𝑁) ∖ {𝑥}) ↦ {𝑧 ∈ (𝔼‘𝑁) ∣ (𝑧 Btwn ⟨𝑥, 𝑦⟩ ∨ 𝑥 Btwn ⟨𝑧, 𝑦⟩ ∨ 𝑦 Btwn ⟨𝑥, 𝑧⟩)})⟩}))
3330, 32eleqtrrid 2873 . . . . . . 7 (𝜑 → ⟨(dist‘ndx), (𝑥 ∈ (𝔼‘𝑁), 𝑦 ∈ (𝔼‘𝑁) ↦ Σ𝑖 ∈ (1...𝑁)(((𝑥𝑖) − (𝑦𝑖))↑2))⟩ ∈ (EEG‘𝑁))
34 fvex 6901 . . . . . . . . 9 (𝔼‘𝑁) ∈ V
3534, 34mpoex 8085 . . . . . . . 8 (𝑥 ∈ (𝔼‘𝑁), 𝑦 ∈ (𝔼‘𝑁) ↦ Σ𝑖 ∈ (1...𝑁)(((𝑥𝑖) − (𝑦𝑖))↑2)) ∈ V
3635a1i 11 . . . . . . 7 (𝜑 → (𝑥 ∈ (𝔼‘𝑁), 𝑦 ∈ (𝔼‘𝑁) ↦ Σ𝑖 ∈ (1...𝑁)(((𝑥𝑖) − (𝑦𝑖))↑2)) ∈ V)
3717, 18, 26, 33, 36strfv2d 17286 . . . . . 6 (𝜑 → (𝑥 ∈ (𝔼‘𝑁), 𝑦 ∈ (𝔼‘𝑁) ↦ Σ𝑖 ∈ (1...𝑁)(((𝑥𝑖) − (𝑦𝑖))↑2)) = (dist‘(EEG‘𝑁)))
3816, 37eqtr4id 2820 . . . . 5 (𝜑 = (𝑥 ∈ (𝔼‘𝑁), 𝑦 ∈ (𝔼‘𝑁) ↦ Σ𝑖 ∈ (1...𝑁)(((𝑥𝑖) − (𝑦𝑖))↑2)))
39 simplrl 789 . . . . . . . . 9 (((𝜑 ∧ (𝑥 = 𝐴𝑦 = 𝐵)) ∧ 𝑖 ∈ (1...𝑁)) → 𝑥 = 𝐴)
4039fveq1d 6890 . . . . . . . 8 (((𝜑 ∧ (𝑥 = 𝐴𝑦 = 𝐵)) ∧ 𝑖 ∈ (1...𝑁)) → (𝑥𝑖) = (𝐴𝑖))
41 simplrr 790 . . . . . . . . 9 (((𝜑 ∧ (𝑥 = 𝐴𝑦 = 𝐵)) ∧ 𝑖 ∈ (1...𝑁)) → 𝑦 = 𝐵)
4241fveq1d 6890 . . . . . . . 8 (((𝜑 ∧ (𝑥 = 𝐴𝑦 = 𝐵)) ∧ 𝑖 ∈ (1...𝑁)) → (𝑦𝑖) = (𝐵𝑖))
4340, 42oveq12d 7441 . . . . . . 7 (((𝜑 ∧ (𝑥 = 𝐴𝑦 = 𝐵)) ∧ 𝑖 ∈ (1...𝑁)) → ((𝑥𝑖) − (𝑦𝑖)) = ((𝐴𝑖) − (𝐵𝑖)))
4443oveq1d 7438 . . . . . 6 (((𝜑 ∧ (𝑥 = 𝐴𝑦 = 𝐵)) ∧ 𝑖 ∈ (1...𝑁)) → (((𝑥𝑖) − (𝑦𝑖))↑2) = (((𝐴𝑖) − (𝐵𝑖))↑2))
4544sumeq2dv 15779 . . . . 5 ((𝜑 ∧ (𝑥 = 𝐴𝑦 = 𝐵)) → Σ𝑖 ∈ (1...𝑁)(((𝑥𝑖) − (𝑦𝑖))↑2) = Σ𝑖 ∈ (1...𝑁)(((𝐴𝑖) − (𝐵𝑖))↑2))
46 sumex 15765 . . . . . 6 Σ𝑖 ∈ (1...𝑁)(((𝐴𝑖) − (𝐵𝑖))↑2) ∈ V
4746a1i 11 . . . . 5 (𝜑 → Σ𝑖 ∈ (1...𝑁)(((𝐴𝑖) − (𝐵𝑖))↑2) ∈ V)
4838, 45, 7, 9, 47ovmpod 7575 . . . 4 (𝜑 → (𝐴 𝐵) = Σ𝑖 ∈ (1...𝑁)(((𝐴𝑖) − (𝐵𝑖))↑2))
4948eqcomd 2772 . . 3 (𝜑 → Σ𝑖 ∈ (1...𝑁)(((𝐴𝑖) − (𝐵𝑖))↑2) = (𝐴 𝐵))
50 simplrl 789 . . . . . . . . 9 (((𝜑 ∧ (𝑥 = 𝐶𝑦 = 𝐷)) ∧ 𝑖 ∈ (1...𝑁)) → 𝑥 = 𝐶)
5150fveq1d 6890 . . . . . . . 8 (((𝜑 ∧ (𝑥 = 𝐶𝑦 = 𝐷)) ∧ 𝑖 ∈ (1...𝑁)) → (𝑥𝑖) = (𝐶𝑖))
52 simplrr 790 . . . . . . . . 9 (((𝜑 ∧ (𝑥 = 𝐶𝑦 = 𝐷)) ∧ 𝑖 ∈ (1...𝑁)) → 𝑦 = 𝐷)
5352fveq1d 6890 . . . . . . . 8 (((𝜑 ∧ (𝑥 = 𝐶𝑦 = 𝐷)) ∧ 𝑖 ∈ (1...𝑁)) → (𝑦𝑖) = (𝐷𝑖))
5451, 53oveq12d 7441 . . . . . . 7 (((𝜑 ∧ (𝑥 = 𝐶𝑦 = 𝐷)) ∧ 𝑖 ∈ (1...𝑁)) → ((𝑥𝑖) − (𝑦𝑖)) = ((𝐶𝑖) − (𝐷𝑖)))
5554oveq1d 7438 . . . . . 6 (((𝜑 ∧ (𝑥 = 𝐶𝑦 = 𝐷)) ∧ 𝑖 ∈ (1...𝑁)) → (((𝑥𝑖) − (𝑦𝑖))↑2) = (((𝐶𝑖) − (𝐷𝑖))↑2))
5655sumeq2dv 15779 . . . . 5 ((𝜑 ∧ (𝑥 = 𝐶𝑦 = 𝐷)) → Σ𝑖 ∈ (1...𝑁)(((𝑥𝑖) − (𝑦𝑖))↑2) = Σ𝑖 ∈ (1...𝑁)(((𝐶𝑖) − (𝐷𝑖))↑2))
57 sumex 15765 . . . . . 6 Σ𝑖 ∈ (1...𝑁)(((𝐶𝑖) − (𝐷𝑖))↑2) ∈ V
5857a1i 11 . . . . 5 (𝜑 → Σ𝑖 ∈ (1...𝑁)(((𝐶𝑖) − (𝐷𝑖))↑2) ∈ V)
5938, 56, 11, 13, 58ovmpod 7575 . . . 4 (𝜑 → (𝐶 𝐷) = Σ𝑖 ∈ (1...𝑁)(((𝐶𝑖) − (𝐷𝑖))↑2))
6059eqcomd 2772 . . 3 (𝜑 → Σ𝑖 ∈ (1...𝑁)(((𝐶𝑖) − (𝐷𝑖))↑2) = (𝐶 𝐷))
6149, 60eqeq12d 2782 . 2 (𝜑 → (Σ𝑖 ∈ (1...𝑁)(((𝐴𝑖) − (𝐵𝑖))↑2) = Σ𝑖 ∈ (1...𝑁)(((𝐶𝑖) − (𝐷𝑖))↑2) ↔ (𝐴 𝐵) = (𝐶 𝐷)))
6215, 61bitrd 282 1 (𝜑 → (⟨𝐴, 𝐵⟩Cgr⟨𝐶, 𝐷⟩ ↔ (𝐴 𝐵) = (𝐶 𝐷)))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  wi 4  wb 209  wa 401  w3o 1102   = wceq 1570  wcel 2146  {crab 3419  Vcvv 3458  cdif 3905  cun 3906  c0 4289  {csn 4594  {cpr 4596  cop 4600   class class class wbr 5114  ccnv 5665  Fun wfun 6537  cfv 6543  (class class class)co 7423  cmpo 7425  1c1 11119  cmin 11459  cn 12251  2c2 12313  7c7 12318  cdc 12729  ...cfz 13553  cexp 14117  Σcsu 15763   Struct cstr 17231  ndxcnx 17278  Basecbs 17294  distcds 17344  Itvcitv 28739  LineGclng 28740  𝔼cee 29274   Btwn cbtwn 29275  Cgrccgr 29276  EEGceeng 29364
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2738  ax-rep 5243  ax-sep 5262  ax-nul 5274  ax-pow 5341  ax-pr 5409  ax-un 7745  ax-cnex 11174  ax-resscn 11175  ax-1cn 11176  ax-icn 11177  ax-addcl 11178  ax-addrcl 11179  ax-mulcl 11180  ax-mulrcl 11181  ax-mulcom 11182  ax-addass 11183  ax-mulass 11184  ax-distr 11185  ax-i2m1 11186  ax-1ne0 11187  ax-1rid 11188  ax-rnegex 11189  ax-rrecex 11190  ax-cnre 11191  ax-pre-lttri 11192  ax-pre-lttrn 11193  ax-pre-ltadd 11194  ax-pre-mulgt0 11195
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2570  df-eu 2600  df-clab 2745  df-cleq 2758  df-clel 2841  df-nfc 2915  df-ne 2962  df-nel 3068  df-ral 3083  df-rex 3093  df-reu 3373  df-rab 3420  df-v 3460  df-sbc 3748  df-csb 3857  df-dif 3911  df-un 3913  df-in 3915  df-ss 3925  df-pss 3928  df-nul 4290  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-op 4601  df-uni 4878  df-iun 4963  df-br 5115  df-opab 5179  df-mpt 5198  df-tr 5224  df-id 5561  df-eprel 5566  df-po 5574  df-so 5575  df-fr 5619  df-we 5621  df-xp 5672  df-rel 5673  df-cnv 5674  df-co 5675  df-dm 5676  df-rn 5677  df-res 5678  df-ima 5679  df-pred 6309  df-ord 6370  df-on 6371  df-lim 6372  df-suc 6373  df-iota 6499  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-riota 7380  df-ov 7426  df-oprab 7427  df-mpo 7428  df-om 7872  df-1st 7995  df-2nd 7996  df-frecs 8287  df-wrecs 8318  df-recs 8367  df-rdg 8406  df-1o 8462  df-er 8703  df-map 8835  df-en 8953  df-dom 8954  df-sdom 8955  df-fin 8956  df-pnf 11263  df-mnf 11264  df-xr 11265  df-ltxr 11266  df-le 11267  df-sub 11461  df-neg 11462  df-nn 12252  df-2 12321  df-3 12322  df-4 12323  df-5 12324  df-6 12325  df-7 12326  df-8 12327  df-9 12328  df-n0 12523  df-z 12610  df-dec 12730  df-uz 12881  df-fz 13554  df-seq 14058  df-sum 15764  df-struct 17232  df-slot 17267  df-ndx 17279  df-base 17295  df-ds 17357  df-itv 28741  df-lng 28742  df-ee 29277  df-cgr 29279  df-eeng 29365
This theorem is used by:  eengtrkg  29373
  Copyright terms: Public domain W3C validator