Theorem mircgr 29159

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 29158	. . . 4 ⊢ (𝜑 → (𝑀‘𝐵) = (℩𝑧 ∈ 𝑃 ((𝐴 − 𝑧) = (𝐴 − 𝐵) ∧ 𝐴 ∈ (𝑧𝐼𝐵))))
11	1, 2, 3, 6, 9, 7	mirreu3 29156	. . . . 5 ⊢ (𝜑 → ∃!𝑧 ∈ 𝑃 ((𝐴 − 𝑧) = (𝐴 − 𝐵) ∧ 𝐴 ∈ (𝑧𝐼𝐵)))
12		riotacl2 7416	. . . . 5 ⊢ (∃!𝑧 ∈ 𝑃 ((𝐴 − 𝑧) = (𝐴 − 𝐵) ∧ 𝐴 ∈ (𝑧𝐼𝐵)) → (℩𝑧 ∈ 𝑃 ((𝐴 − 𝑧) = (𝐴 − 𝐵) ∧ 𝐴 ∈ (𝑧𝐼𝐵))) ∈ {𝑧 ∈ 𝑃 ∣ ((𝐴 − 𝑧) = (𝐴 − 𝐵) ∧ 𝐴 ∈ (𝑧𝐼𝐵))})
13	11, 12	syl 18	. . . 4 ⊢ (𝜑 → (℩𝑧 ∈ 𝑃 ((𝐴 − 𝑧) = (𝐴 − 𝐵) ∧ 𝐴 ∈ (𝑧𝐼𝐵))) ∈ {𝑧 ∈ 𝑃 ∣ ((𝐴 − 𝑧) = (𝐴 − 𝐵) ∧ 𝐴 ∈ (𝑧𝐼𝐵))})
14	10, 13	eqeltrd 2864	. . 3 ⊢ (𝜑 → (𝑀‘𝐵) ∈ {𝑧 ∈ 𝑃 ∣ ((𝐴 − 𝑧) = (𝐴 − 𝐵) ∧ 𝐴 ∈ (𝑧𝐼𝐵))})
15		oveq2 7451	. . . . . 6 ⊢ (𝑧 = (𝑀‘𝐵) → (𝐴 − 𝑧) = (𝐴 − (𝑀‘𝐵)))
16	15	eqeq1d 2765	. . . . 5 ⊢ (𝑧 = (𝑀‘𝐵) → ((𝐴 − 𝑧) = (𝐴 − 𝐵) ↔ (𝐴 − (𝑀‘𝐵)) = (𝐴 − 𝐵)))
17		oveq1 7450	. . . . . 6 ⊢ (𝑧 = (𝑀‘𝐵) → (𝑧𝐼𝐵) = ((𝑀‘𝐵)𝐼𝐵))
18	17	eleq2d 2850	. . . . 5 ⊢ (𝑧 = (𝑀‘𝐵) → (𝐴 ∈ (𝑧𝐼𝐵) ↔ 𝐴 ∈ ((𝑀‘𝐵)𝐼𝐵)))
19	16, 18	anbi12d 644	. . . 4 ⊢ (𝑧 = (𝑀‘𝐵) → (((𝐴 − 𝑧) = (𝐴 − 𝐵) ∧ 𝐴 ∈ (𝑧𝐼𝐵)) ↔ ((𝐴 − (𝑀‘𝐵)) = (𝐴 − 𝐵) ∧ 𝐴 ∈ ((𝑀‘𝐵)𝐼𝐵))))
20	19	elrab 3648	. . 3 ⊢ ((𝑀‘𝐵) ∈ {𝑧 ∈ 𝑃 ∣ ((𝐴 − 𝑧) = (𝐴 − 𝐵) ∧ 𝐴 ∈ (𝑧𝐼𝐵))} ↔ ((𝑀‘𝐵) ∈ 𝑃 ∧ ((𝐴 − (𝑀‘𝐵)) = (𝐴 − 𝐵) ∧ 𝐴 ∈ ((𝑀‘𝐵)𝐼𝐵))))
21	14, 20	sylib 221	. 2 ⊢ (𝜑 → ((𝑀‘𝐵) ∈ 𝑃 ∧ ((𝐴 − (𝑀‘𝐵)) = (𝐴 − 𝐵) ∧ 𝐴 ∈ ((𝑀‘𝐵)𝐼𝐵))))
22	21	simprld 784	1 ⊢ (𝜑 → (𝐴 − (𝑀‘𝐵)) = (𝐴 − 𝐵))

This proof depends on syntax axioms:   → wi 4   ∧ wa 401   = wceq 1570   ∈ wcel 2147  ∃!wreu 3367  {crab 3416  ‘cfv 6558  ℩crio 7399  (class class class)co 7443  Basecbs 17416  distcds 17466  TarskiGcstrkg 28919  Itvcitv 28925  LineGclng 28926  pInvGcmir 29154

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 1945  ax-6 2002  ax-7 2043  ax-8 2149  ax-9 2157  ax-10 2180  ax-11 2197  ax-12 2216  ax-ext 2735  ax-rep 5235  ax-sep 5252  ax-nul 5263  ax-pr 5395

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2102  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2839  df-nfc 2913  df-ne 2960  df-ral 3081  df-rex 3091  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3456  df-sbc 3743  df-csb 3852  df-ss 3901  df-dif 4050  df-in 4094  df-un 4154  df-nul 4282  df-if 4486  df-pw 4562  df-sn 4589  df-pr 4591  df-op 4839  df-uni 4871  df-iun 4956  df-br 5107  df-opab 5171  df-mpt 5190  df-id 5550  df-xp 5661  df-rel 5662  df-cnv 5663  df-co 5664  df-dm 5665  df-rn 5666  df-res 5667  df-ima 5668  df-iota 6512  df-fun 6560  df-fn 6561  df-f 6562  df-f1 6563  df-fo 6564  df-f1o 6565  df-fv 6566  df-riota 7400  df-ov 7446  df-trkgc 28940  df-trkgb 28941  df-trkgcb 28942  df-trkg 28945  df-mir 29155

This theorem is used by:  mirmir  29164  miriso  29172  mirmir2  29176  mircgrextend  29184  mirtrcgr  29185  mirauto  29186  miduniq  29187  krippenlem  29192  symquadprlnglem  29195  ragcol  29204  ragflat  29209  ragcgr  29212  footexALT  29223  footexlem2  29225  colperpexlem1  29236  colperpexlem3  29238  mideulem2  29240  opphllem  29241  midcgr  29315  lmiisolem  29331  ragsupplcgra  29375  tgextalem1inag  33100