Theorem mircgr 27007

Description: Property of the image by the point inversion function. Definition 7.5 of [Schwabhauser] p. 49. (Contributed by Thierry Arnoux, 3-Jun-2019.)

Hypotheses

Ref	Expression
mirval.p	⊢ 𝑃 = (Base‘𝐺)
mirval.d	⊢ − = (dist‘𝐺)
mirval.i	⊢ 𝐼 = (Itv‘𝐺)
mirval.l	⊢ 𝐿 = (LineG‘𝐺)
mirval.s	⊢ 𝑆 = (pInvG‘𝐺)
mirval.g	⊢ (𝜑 → 𝐺 ∈ TarskiG)
mirval.a	⊢ (𝜑 → 𝐴 ∈ 𝑃)
mirfv.m	⊢ 𝑀 = (𝑆‘𝐴)
mirfv.b	⊢ (𝜑 → 𝐵 ∈ 𝑃)

Assertion

Ref	Expression
mircgr	⊢ (𝜑 → (𝐴 − (𝑀‘𝐵)) = (𝐴 − 𝐵))

Proof of Theorem mircgr

Dummy variable 𝑧 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		mirval.p	. . . . 5 ⊢ 𝑃 = (Base‘𝐺)
2		mirval.d	. . . . 5 ⊢ − = (dist‘𝐺)
3		mirval.i	. . . . 5 ⊢ 𝐼 = (Itv‘𝐺)
4		mirval.l	. . . . 5 ⊢ 𝐿 = (LineG‘𝐺)
5		mirval.s	. . . . 5 ⊢ 𝑆 = (pInvG‘𝐺)
6		mirval.g	. . . . 5 ⊢ (𝜑 → 𝐺 ∈ TarskiG)
7		mirval.a	. . . . 5 ⊢ (𝜑 → 𝐴 ∈ 𝑃)
8		mirfv.m	. . . . 5 ⊢ 𝑀 = (𝑆‘𝐴)
9		mirfv.b	. . . . 5 ⊢ (𝜑 → 𝐵 ∈ 𝑃)
10	1, 2, 3, 4, 5, 6, 7, 8, 9	mirfv 27006	. . . 4 ⊢ (𝜑 → (𝑀‘𝐵) = (℩𝑧 ∈ 𝑃 ((𝐴 − 𝑧) = (𝐴 − 𝐵) ∧ 𝐴 ∈ (𝑧𝐼𝐵))))
11	1, 2, 3, 6, 9, 7	mirreu3 27004	. . . . 5 ⊢ (𝜑 → ∃!𝑧 ∈ 𝑃 ((𝐴 − 𝑧) = (𝐴 − 𝐵) ∧ 𝐴 ∈ (𝑧𝐼𝐵)))
12		riotacl2 7243	. . . . 5 ⊢ (∃!𝑧 ∈ 𝑃 ((𝐴 − 𝑧) = (𝐴 − 𝐵) ∧ 𝐴 ∈ (𝑧𝐼𝐵)) → (℩𝑧 ∈ 𝑃 ((𝐴 − 𝑧) = (𝐴 − 𝐵) ∧ 𝐴 ∈ (𝑧𝐼𝐵))) ∈ {𝑧 ∈ 𝑃 ∣ ((𝐴 − 𝑧) = (𝐴 − 𝐵) ∧ 𝐴 ∈ (𝑧𝐼𝐵))})
13	11, 12	syl 17	. . . 4 ⊢ (𝜑 → (℩𝑧 ∈ 𝑃 ((𝐴 − 𝑧) = (𝐴 − 𝐵) ∧ 𝐴 ∈ (𝑧𝐼𝐵))) ∈ {𝑧 ∈ 𝑃 ∣ ((𝐴 − 𝑧) = (𝐴 − 𝐵) ∧ 𝐴 ∈ (𝑧𝐼𝐵))})
14	10, 13	eqeltrd 2839	. . 3 ⊢ (𝜑 → (𝑀‘𝐵) ∈ {𝑧 ∈ 𝑃 ∣ ((𝐴 − 𝑧) = (𝐴 − 𝐵) ∧ 𝐴 ∈ (𝑧𝐼𝐵))})
15		oveq2 7277	. . . . . 6 ⊢ (𝑧 = (𝑀‘𝐵) → (𝐴 − 𝑧) = (𝐴 − (𝑀‘𝐵)))
16	15	eqeq1d 2740	. . . . 5 ⊢ (𝑧 = (𝑀‘𝐵) → ((𝐴 − 𝑧) = (𝐴 − 𝐵) ↔ (𝐴 − (𝑀‘𝐵)) = (𝐴 − 𝐵)))
17		oveq1 7276	. . . . . 6 ⊢ (𝑧 = (𝑀‘𝐵) → (𝑧𝐼𝐵) = ((𝑀‘𝐵)𝐼𝐵))
18	17	eleq2d 2824	. . . . 5 ⊢ (𝑧 = (𝑀‘𝐵) → (𝐴 ∈ (𝑧𝐼𝐵) ↔ 𝐴 ∈ ((𝑀‘𝐵)𝐼𝐵)))
19	16, 18	anbi12d 631	. . . 4 ⊢ (𝑧 = (𝑀‘𝐵) → (((𝐴 − 𝑧) = (𝐴 − 𝐵) ∧ 𝐴 ∈ (𝑧𝐼𝐵)) ↔ ((𝐴 − (𝑀‘𝐵)) = (𝐴 − 𝐵) ∧ 𝐴 ∈ ((𝑀‘𝐵)𝐼𝐵))))
20	19	elrab 3625	. . 3 ⊢ ((𝑀‘𝐵) ∈ {𝑧 ∈ 𝑃 ∣ ((𝐴 − 𝑧) = (𝐴 − 𝐵) ∧ 𝐴 ∈ (𝑧𝐼𝐵))} ↔ ((𝑀‘𝐵) ∈ 𝑃 ∧ ((𝐴 − (𝑀‘𝐵)) = (𝐴 − 𝐵) ∧ 𝐴 ∈ ((𝑀‘𝐵)𝐼𝐵))))
21	14, 20	sylib 217	. 2 ⊢ (𝜑 → ((𝑀‘𝐵) ∈ 𝑃 ∧ ((𝐴 − (𝑀‘𝐵)) = (𝐴 − 𝐵) ∧ 𝐴 ∈ ((𝑀‘𝐵)𝐼𝐵))))
22	21	simprld 769	1 ⊢ (𝜑 → (𝐴 − (𝑀‘𝐵)) = (𝐴 − 𝐵))

Syntax hints:   → wi 4   ∧ wa 396   = wceq 1539   ∈ wcel 2106  ∃!wreu 3066  {crab 3068  ‘cfv 6428  ℩crio 7225  (class class class)co 7269  Basecbs 16901  distcds 16960  TarskiGcstrkg 26777  Itvcitv 26783  LineGclng 26784  pInvGcmir 27002

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2709  ax-rep 5210  ax-sep 5223  ax-nul 5230  ax-pr 5352

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3an 1088  df-tru 1542  df-fal 1552  df-ex 1783  df-nf 1787  df-sb 2068  df-mo 2540  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2816  df-nfc 2889  df-ne 2944  df-ral 3069  df-rex 3070  df-rmo 3071  df-reu 3072  df-rab 3073  df-v 3433  df-sbc 3718  df-csb 3834  df-dif 3891  df-un 3893  df-in 3895  df-ss 3905  df-nul 4259  df-if 4462  df-pw 4537  df-sn 4564  df-pr 4566  df-op 4570  df-uni 4842  df-iun 4928  df-br 5076  df-opab 5138  df-mpt 5159  df-id 5486  df-xp 5592  df-rel 5593  df-cnv 5594  df-co 5595  df-dm 5596  df-rn 5597  df-res 5598  df-ima 5599  df-iota 6386  df-fun 6430  df-fn 6431  df-f 6432  df-f1 6433  df-fo 6434  df-f1o 6435  df-fv 6436  df-riota 7226  df-ov 7272  df-trkgc 26798  df-trkgb 26799  df-trkgcb 26800  df-trkg 26803  df-mir 27003

This theorem is referenced by:  mirmir  27012  miriso  27020  mirmir2  27024  mircgrextend  27032  mirtrcgr  27033  mirauto  27034  miduniq  27035  krippenlem  27040  ragcol  27049  ragflat  27054  ragcgr  27057  footexALT  27068  footexlem2  27070  colperpexlem1  27080  colperpexlem3  27082  mideulem2  27084  opphllem  27085  midcgr  27130  lmiisolem  27146