Theorem mirval 26441

Description: Value of the point inversion function 𝑆. Definition 7.5 of [Schwabhauser] p. 49. (Contributed by Thierry Arnoux, 30-May-2019.)

Hypotheses

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

Assertion

Ref	Expression
mirval	⊢ (𝜑 → (𝑆‘𝐴) = (𝑦 ∈ 𝑃 ↦ (℩𝑧 ∈ 𝑃 ((𝐴 − 𝑧) = (𝐴 − 𝑦) ∧ 𝐴 ∈ (𝑧𝐼𝑦)))))

Distinct variable groups:   𝑦,𝑧,𝐴   𝑦,𝐺,𝑧   𝑦,𝐼,𝑧   𝑦,𝑃,𝑧   𝜑,𝑦,𝑧   𝑦, − ,𝑧

Allowed substitution hints:   𝑆(𝑦,𝑧)   𝐿(𝑦,𝑧)

Proof of Theorem mirval

Dummy variables 𝑥 𝑔 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		mirval.s	. . 3 ⊢ 𝑆 = (pInvG‘𝐺)
2		df-mir 26439	. . . 4 ⊢ pInvG = (𝑔 ∈ V ↦ (𝑥 ∈ (Base‘𝑔) ↦ (𝑦 ∈ (Base‘𝑔) ↦ (℩𝑧 ∈ (Base‘𝑔)((𝑥(dist‘𝑔)𝑧) = (𝑥(dist‘𝑔)𝑦) ∧ 𝑥 ∈ (𝑧(Itv‘𝑔)𝑦))))))
3		fveq2 6670	. . . . . 6 ⊢ (𝑔 = 𝐺 → (Base‘𝑔) = (Base‘𝐺))
4		mirval.p	. . . . . 6 ⊢ 𝑃 = (Base‘𝐺)
5	3, 4	syl6eqr 2874	. . . . 5 ⊢ (𝑔 = 𝐺 → (Base‘𝑔) = 𝑃)
6		fveq2 6670	. . . . . . . . . . 11 ⊢ (𝑔 = 𝐺 → (dist‘𝑔) = (dist‘𝐺))
7		mirval.d	. . . . . . . . . . 11 ⊢ − = (dist‘𝐺)
8	6, 7	syl6eqr 2874	. . . . . . . . . 10 ⊢ (𝑔 = 𝐺 → (dist‘𝑔) = − )
9	8	oveqd 7173	. . . . . . . . 9 ⊢ (𝑔 = 𝐺 → (𝑥(dist‘𝑔)𝑧) = (𝑥 − 𝑧))
10	8	oveqd 7173	. . . . . . . . 9 ⊢ (𝑔 = 𝐺 → (𝑥(dist‘𝑔)𝑦) = (𝑥 − 𝑦))
11	9, 10	eqeq12d 2837	. . . . . . . 8 ⊢ (𝑔 = 𝐺 → ((𝑥(dist‘𝑔)𝑧) = (𝑥(dist‘𝑔)𝑦) ↔ (𝑥 − 𝑧) = (𝑥 − 𝑦)))
12		fveq2 6670	. . . . . . . . . . 11 ⊢ (𝑔 = 𝐺 → (Itv‘𝑔) = (Itv‘𝐺))
13		mirval.i	. . . . . . . . . . 11 ⊢ 𝐼 = (Itv‘𝐺)
14	12, 13	syl6eqr 2874	. . . . . . . . . 10 ⊢ (𝑔 = 𝐺 → (Itv‘𝑔) = 𝐼)
15	14	oveqd 7173	. . . . . . . . 9 ⊢ (𝑔 = 𝐺 → (𝑧(Itv‘𝑔)𝑦) = (𝑧𝐼𝑦))
16	15	eleq2d 2898	. . . . . . . 8 ⊢ (𝑔 = 𝐺 → (𝑥 ∈ (𝑧(Itv‘𝑔)𝑦) ↔ 𝑥 ∈ (𝑧𝐼𝑦)))
17	11, 16	anbi12d 632	. . . . . . 7 ⊢ (𝑔 = 𝐺 → (((𝑥(dist‘𝑔)𝑧) = (𝑥(dist‘𝑔)𝑦) ∧ 𝑥 ∈ (𝑧(Itv‘𝑔)𝑦)) ↔ ((𝑥 − 𝑧) = (𝑥 − 𝑦) ∧ 𝑥 ∈ (𝑧𝐼𝑦))))
18	5, 17	riotaeqbidv 7117	. . . . . 6 ⊢ (𝑔 = 𝐺 → (℩𝑧 ∈ (Base‘𝑔)((𝑥(dist‘𝑔)𝑧) = (𝑥(dist‘𝑔)𝑦) ∧ 𝑥 ∈ (𝑧(Itv‘𝑔)𝑦))) = (℩𝑧 ∈ 𝑃 ((𝑥 − 𝑧) = (𝑥 − 𝑦) ∧ 𝑥 ∈ (𝑧𝐼𝑦))))
19	5, 18	mpteq12dv 5151	. . . . 5 ⊢ (𝑔 = 𝐺 → (𝑦 ∈ (Base‘𝑔) ↦ (℩𝑧 ∈ (Base‘𝑔)((𝑥(dist‘𝑔)𝑧) = (𝑥(dist‘𝑔)𝑦) ∧ 𝑥 ∈ (𝑧(Itv‘𝑔)𝑦)))) = (𝑦 ∈ 𝑃 ↦ (℩𝑧 ∈ 𝑃 ((𝑥 − 𝑧) = (𝑥 − 𝑦) ∧ 𝑥 ∈ (𝑧𝐼𝑦)))))
20	5, 19	mpteq12dv 5151	. . . 4 ⊢ (𝑔 = 𝐺 → (𝑥 ∈ (Base‘𝑔) ↦ (𝑦 ∈ (Base‘𝑔) ↦ (℩𝑧 ∈ (Base‘𝑔)((𝑥(dist‘𝑔)𝑧) = (𝑥(dist‘𝑔)𝑦) ∧ 𝑥 ∈ (𝑧(Itv‘𝑔)𝑦))))) = (𝑥 ∈ 𝑃 ↦ (𝑦 ∈ 𝑃 ↦ (℩𝑧 ∈ 𝑃 ((𝑥 − 𝑧) = (𝑥 − 𝑦) ∧ 𝑥 ∈ (𝑧𝐼𝑦))))))
21		mirval.g	. . . . 5 ⊢ (𝜑 → 𝐺 ∈ TarskiG)
22	21	elexd 3514	. . . 4 ⊢ (𝜑 → 𝐺 ∈ V)
23	4	fvexi 6684	. . . . . 6 ⊢ 𝑃 ∈ V
24	23	mptex 6986	. . . . 5 ⊢ (𝑥 ∈ 𝑃 ↦ (𝑦 ∈ 𝑃 ↦ (℩𝑧 ∈ 𝑃 ((𝑥 − 𝑧) = (𝑥 − 𝑦) ∧ 𝑥 ∈ (𝑧𝐼𝑦))))) ∈ V
25	24	a1i 11	. . . 4 ⊢ (𝜑 → (𝑥 ∈ 𝑃 ↦ (𝑦 ∈ 𝑃 ↦ (℩𝑧 ∈ 𝑃 ((𝑥 − 𝑧) = (𝑥 − 𝑦) ∧ 𝑥 ∈ (𝑧𝐼𝑦))))) ∈ V)
26	2, 20, 22, 25	fvmptd3 6791	. . 3 ⊢ (𝜑 → (pInvG‘𝐺) = (𝑥 ∈ 𝑃 ↦ (𝑦 ∈ 𝑃 ↦ (℩𝑧 ∈ 𝑃 ((𝑥 − 𝑧) = (𝑥 − 𝑦) ∧ 𝑥 ∈ (𝑧𝐼𝑦))))))
27	1, 26	syl5eq 2868	. 2 ⊢ (𝜑 → 𝑆 = (𝑥 ∈ 𝑃 ↦ (𝑦 ∈ 𝑃 ↦ (℩𝑧 ∈ 𝑃 ((𝑥 − 𝑧) = (𝑥 − 𝑦) ∧ 𝑥 ∈ (𝑧𝐼𝑦))))))
28		simpll 765	. . . . . . . 8 ⊢ (((𝑥 = 𝐴 ∧ 𝑦 ∈ 𝑃) ∧ 𝑧 ∈ 𝑃) → 𝑥 = 𝐴)
29	28	oveq1d 7171	. . . . . . 7 ⊢ (((𝑥 = 𝐴 ∧ 𝑦 ∈ 𝑃) ∧ 𝑧 ∈ 𝑃) → (𝑥 − 𝑧) = (𝐴 − 𝑧))
30	28	oveq1d 7171	. . . . . . 7 ⊢ (((𝑥 = 𝐴 ∧ 𝑦 ∈ 𝑃) ∧ 𝑧 ∈ 𝑃) → (𝑥 − 𝑦) = (𝐴 − 𝑦))
31	29, 30	eqeq12d 2837	. . . . . 6 ⊢ (((𝑥 = 𝐴 ∧ 𝑦 ∈ 𝑃) ∧ 𝑧 ∈ 𝑃) → ((𝑥 − 𝑧) = (𝑥 − 𝑦) ↔ (𝐴 − 𝑧) = (𝐴 − 𝑦)))
32	28	eleq1d 2897	. . . . . 6 ⊢ (((𝑥 = 𝐴 ∧ 𝑦 ∈ 𝑃) ∧ 𝑧 ∈ 𝑃) → (𝑥 ∈ (𝑧𝐼𝑦) ↔ 𝐴 ∈ (𝑧𝐼𝑦)))
33	31, 32	anbi12d 632	. . . . 5 ⊢ (((𝑥 = 𝐴 ∧ 𝑦 ∈ 𝑃) ∧ 𝑧 ∈ 𝑃) → (((𝑥 − 𝑧) = (𝑥 − 𝑦) ∧ 𝑥 ∈ (𝑧𝐼𝑦)) ↔ ((𝐴 − 𝑧) = (𝐴 − 𝑦) ∧ 𝐴 ∈ (𝑧𝐼𝑦))))
34	33	riotabidva 7133	. . . 4 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 ∈ 𝑃) → (℩𝑧 ∈ 𝑃 ((𝑥 − 𝑧) = (𝑥 − 𝑦) ∧ 𝑥 ∈ (𝑧𝐼𝑦))) = (℩𝑧 ∈ 𝑃 ((𝐴 − 𝑧) = (𝐴 − 𝑦) ∧ 𝐴 ∈ (𝑧𝐼𝑦))))
35	34	mpteq2dva 5161	. . 3 ⊢ (𝑥 = 𝐴 → (𝑦 ∈ 𝑃 ↦ (℩𝑧 ∈ 𝑃 ((𝑥 − 𝑧) = (𝑥 − 𝑦) ∧ 𝑥 ∈ (𝑧𝐼𝑦)))) = (𝑦 ∈ 𝑃 ↦ (℩𝑧 ∈ 𝑃 ((𝐴 − 𝑧) = (𝐴 − 𝑦) ∧ 𝐴 ∈ (𝑧𝐼𝑦)))))
36	35	adantl 484	. 2 ⊢ ((𝜑 ∧ 𝑥 = 𝐴) → (𝑦 ∈ 𝑃 ↦ (℩𝑧 ∈ 𝑃 ((𝑥 − 𝑧) = (𝑥 − 𝑦) ∧ 𝑥 ∈ (𝑧𝐼𝑦)))) = (𝑦 ∈ 𝑃 ↦ (℩𝑧 ∈ 𝑃 ((𝐴 − 𝑧) = (𝐴 − 𝑦) ∧ 𝐴 ∈ (𝑧𝐼𝑦)))))
37		mirval.a	. 2 ⊢ (𝜑 → 𝐴 ∈ 𝑃)
38	23	mptex 6986	. . 3 ⊢ (𝑦 ∈ 𝑃 ↦ (℩𝑧 ∈ 𝑃 ((𝐴 − 𝑧) = (𝐴 − 𝑦) ∧ 𝐴 ∈ (𝑧𝐼𝑦)))) ∈ V
39	38	a1i 11	. 2 ⊢ (𝜑 → (𝑦 ∈ 𝑃 ↦ (℩𝑧 ∈ 𝑃 ((𝐴 − 𝑧) = (𝐴 − 𝑦) ∧ 𝐴 ∈ (𝑧𝐼𝑦)))) ∈ V)
40	27, 36, 37, 39	fvmptd 6775	1 ⊢ (𝜑 → (𝑆‘𝐴) = (𝑦 ∈ 𝑃 ↦ (℩𝑧 ∈ 𝑃 ((𝐴 − 𝑧) = (𝐴 − 𝑦) ∧ 𝐴 ∈ (𝑧𝐼𝑦)))))

Syntax hints:   → wi 4   ∧ wa 398   = wceq 1537   ∈ wcel 2114  Vcvv 3494   ↦ cmpt 5146  ‘cfv 6355  ℩crio 7113  (class class class)co 7156  Basecbs 16483  distcds 16574  TarskiGcstrkg 26216  Itvcitv 26222  LineGclng 26223  pInvGcmir 26438

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2793  ax-rep 5190  ax-sep 5203  ax-nul 5210  ax-pr 5330

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3an 1085  df-tru 1540  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2654  df-clab 2800  df-cleq 2814  df-clel 2893  df-nfc 2963  df-ne 3017  df-ral 3143  df-rex 3144  df-reu 3145  df-rab 3147  df-v 3496  df-sbc 3773  df-csb 3884  df-dif 3939  df-un 3941  df-in 3943  df-ss 3952  df-nul 4292  df-if 4468  df-sn 4568  df-pr 4570  df-op 4574  df-uni 4839  df-iun 4921  df-br 5067  df-opab 5129  df-mpt 5147  df-id 5460  df-xp 5561  df-rel 5562  df-cnv 5563  df-co 5564  df-dm 5565  df-rn 5566  df-res 5567  df-ima 5568  df-iota 6314  df-fun 6357  df-fn 6358  df-f 6359  df-f1 6360  df-fo 6361  df-f1o 6362  df-fv 6363  df-riota 7114  df-ov 7159  df-mir 26439

This theorem is referenced by:  mirfv  26442  mirf  26446