Theorem mirval 26449

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 26447	. . . 4 ⊢ pInvG = (𝑔 ∈ V ↦ (𝑥 ∈ (Base‘𝑔) ↦ (𝑦 ∈ (Base‘𝑔) ↦ (℩𝑧 ∈ (Base‘𝑔)((𝑥(dist‘𝑔)𝑧) = (𝑥(dist‘𝑔)𝑦) ∧ 𝑥 ∈ (𝑧(Itv‘𝑔)𝑦))))))
3		fveq2 6645	. . . . . 6 ⊢ (𝑔 = 𝐺 → (Base‘𝑔) = (Base‘𝐺))
4		mirval.p	. . . . . 6 ⊢ 𝑃 = (Base‘𝐺)
5	3, 4	eqtr4di 2851	. . . . 5 ⊢ (𝑔 = 𝐺 → (Base‘𝑔) = 𝑃)
6		fveq2 6645	. . . . . . . . . . 11 ⊢ (𝑔 = 𝐺 → (dist‘𝑔) = (dist‘𝐺))
7		mirval.d	. . . . . . . . . . 11 ⊢ − = (dist‘𝐺)
8	6, 7	eqtr4di 2851	. . . . . . . . . 10 ⊢ (𝑔 = 𝐺 → (dist‘𝑔) = − )
9	8	oveqd 7152	. . . . . . . . 9 ⊢ (𝑔 = 𝐺 → (𝑥(dist‘𝑔)𝑧) = (𝑥 − 𝑧))
10	8	oveqd 7152	. . . . . . . . 9 ⊢ (𝑔 = 𝐺 → (𝑥(dist‘𝑔)𝑦) = (𝑥 − 𝑦))
11	9, 10	eqeq12d 2814	. . . . . . . 8 ⊢ (𝑔 = 𝐺 → ((𝑥(dist‘𝑔)𝑧) = (𝑥(dist‘𝑔)𝑦) ↔ (𝑥 − 𝑧) = (𝑥 − 𝑦)))
12		fveq2 6645	. . . . . . . . . . 11 ⊢ (𝑔 = 𝐺 → (Itv‘𝑔) = (Itv‘𝐺))
13		mirval.i	. . . . . . . . . . 11 ⊢ 𝐼 = (Itv‘𝐺)
14	12, 13	eqtr4di 2851	. . . . . . . . . 10 ⊢ (𝑔 = 𝐺 → (Itv‘𝑔) = 𝐼)
15	14	oveqd 7152	. . . . . . . . 9 ⊢ (𝑔 = 𝐺 → (𝑧(Itv‘𝑔)𝑦) = (𝑧𝐼𝑦))
16	15	eleq2d 2875	. . . . . . . 8 ⊢ (𝑔 = 𝐺 → (𝑥 ∈ (𝑧(Itv‘𝑔)𝑦) ↔ 𝑥 ∈ (𝑧𝐼𝑦)))
17	11, 16	anbi12d 633	. . . . . . 7 ⊢ (𝑔 = 𝐺 → (((𝑥(dist‘𝑔)𝑧) = (𝑥(dist‘𝑔)𝑦) ∧ 𝑥 ∈ (𝑧(Itv‘𝑔)𝑦)) ↔ ((𝑥 − 𝑧) = (𝑥 − 𝑦) ∧ 𝑥 ∈ (𝑧𝐼𝑦))))
18	5, 17	riotaeqbidv 7096	. . . . . 6 ⊢ (𝑔 = 𝐺 → (℩𝑧 ∈ (Base‘𝑔)((𝑥(dist‘𝑔)𝑧) = (𝑥(dist‘𝑔)𝑦) ∧ 𝑥 ∈ (𝑧(Itv‘𝑔)𝑦))) = (℩𝑧 ∈ 𝑃 ((𝑥 − 𝑧) = (𝑥 − 𝑦) ∧ 𝑥 ∈ (𝑧𝐼𝑦))))
19	5, 18	mpteq12dv 5115	. . . . 5 ⊢ (𝑔 = 𝐺 → (𝑦 ∈ (Base‘𝑔) ↦ (℩𝑧 ∈ (Base‘𝑔)((𝑥(dist‘𝑔)𝑧) = (𝑥(dist‘𝑔)𝑦) ∧ 𝑥 ∈ (𝑧(Itv‘𝑔)𝑦)))) = (𝑦 ∈ 𝑃 ↦ (℩𝑧 ∈ 𝑃 ((𝑥 − 𝑧) = (𝑥 − 𝑦) ∧ 𝑥 ∈ (𝑧𝐼𝑦)))))
20	5, 19	mpteq12dv 5115	. . . 4 ⊢ (𝑔 = 𝐺 → (𝑥 ∈ (Base‘𝑔) ↦ (𝑦 ∈ (Base‘𝑔) ↦ (℩𝑧 ∈ (Base‘𝑔)((𝑥(dist‘𝑔)𝑧) = (𝑥(dist‘𝑔)𝑦) ∧ 𝑥 ∈ (𝑧(Itv‘𝑔)𝑦))))) = (𝑥 ∈ 𝑃 ↦ (𝑦 ∈ 𝑃 ↦ (℩𝑧 ∈ 𝑃 ((𝑥 − 𝑧) = (𝑥 − 𝑦) ∧ 𝑥 ∈ (𝑧𝐼𝑦))))))
21		mirval.g	. . . . 5 ⊢ (𝜑 → 𝐺 ∈ TarskiG)
22	21	elexd 3461	. . . 4 ⊢ (𝜑 → 𝐺 ∈ V)
23	4	fvexi 6659	. . . . . 6 ⊢ 𝑃 ∈ V
24	23	mptex 6963	. . . . 5 ⊢ (𝑥 ∈ 𝑃 ↦ (𝑦 ∈ 𝑃 ↦ (℩𝑧 ∈ 𝑃 ((𝑥 − 𝑧) = (𝑥 − 𝑦) ∧ 𝑥 ∈ (𝑧𝐼𝑦))))) ∈ V
25	24	a1i 11	. . . 4 ⊢ (𝜑 → (𝑥 ∈ 𝑃 ↦ (𝑦 ∈ 𝑃 ↦ (℩𝑧 ∈ 𝑃 ((𝑥 − 𝑧) = (𝑥 − 𝑦) ∧ 𝑥 ∈ (𝑧𝐼𝑦))))) ∈ V)
26	2, 20, 22, 25	fvmptd3 6768	. . 3 ⊢ (𝜑 → (pInvG‘𝐺) = (𝑥 ∈ 𝑃 ↦ (𝑦 ∈ 𝑃 ↦ (℩𝑧 ∈ 𝑃 ((𝑥 − 𝑧) = (𝑥 − 𝑦) ∧ 𝑥 ∈ (𝑧𝐼𝑦))))))
27	1, 26	syl5eq 2845	. 2 ⊢ (𝜑 → 𝑆 = (𝑥 ∈ 𝑃 ↦ (𝑦 ∈ 𝑃 ↦ (℩𝑧 ∈ 𝑃 ((𝑥 − 𝑧) = (𝑥 − 𝑦) ∧ 𝑥 ∈ (𝑧𝐼𝑦))))))
28		simpll 766	. . . . . . . 8 ⊢ (((𝑥 = 𝐴 ∧ 𝑦 ∈ 𝑃) ∧ 𝑧 ∈ 𝑃) → 𝑥 = 𝐴)
29	28	oveq1d 7150	. . . . . . 7 ⊢ (((𝑥 = 𝐴 ∧ 𝑦 ∈ 𝑃) ∧ 𝑧 ∈ 𝑃) → (𝑥 − 𝑧) = (𝐴 − 𝑧))
30	28	oveq1d 7150	. . . . . . 7 ⊢ (((𝑥 = 𝐴 ∧ 𝑦 ∈ 𝑃) ∧ 𝑧 ∈ 𝑃) → (𝑥 − 𝑦) = (𝐴 − 𝑦))
31	29, 30	eqeq12d 2814	. . . . . 6 ⊢ (((𝑥 = 𝐴 ∧ 𝑦 ∈ 𝑃) ∧ 𝑧 ∈ 𝑃) → ((𝑥 − 𝑧) = (𝑥 − 𝑦) ↔ (𝐴 − 𝑧) = (𝐴 − 𝑦)))
32	28	eleq1d 2874	. . . . . 6 ⊢ (((𝑥 = 𝐴 ∧ 𝑦 ∈ 𝑃) ∧ 𝑧 ∈ 𝑃) → (𝑥 ∈ (𝑧𝐼𝑦) ↔ 𝐴 ∈ (𝑧𝐼𝑦)))
33	31, 32	anbi12d 633	. . . . 5 ⊢ (((𝑥 = 𝐴 ∧ 𝑦 ∈ 𝑃) ∧ 𝑧 ∈ 𝑃) → (((𝑥 − 𝑧) = (𝑥 − 𝑦) ∧ 𝑥 ∈ (𝑧𝐼𝑦)) ↔ ((𝐴 − 𝑧) = (𝐴 − 𝑦) ∧ 𝐴 ∈ (𝑧𝐼𝑦))))
34	33	riotabidva 7112	. . . 4 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 ∈ 𝑃) → (℩𝑧 ∈ 𝑃 ((𝑥 − 𝑧) = (𝑥 − 𝑦) ∧ 𝑥 ∈ (𝑧𝐼𝑦))) = (℩𝑧 ∈ 𝑃 ((𝐴 − 𝑧) = (𝐴 − 𝑦) ∧ 𝐴 ∈ (𝑧𝐼𝑦))))
35	34	mpteq2dva 5125	. . 3 ⊢ (𝑥 = 𝐴 → (𝑦 ∈ 𝑃 ↦ (℩𝑧 ∈ 𝑃 ((𝑥 − 𝑧) = (𝑥 − 𝑦) ∧ 𝑥 ∈ (𝑧𝐼𝑦)))) = (𝑦 ∈ 𝑃 ↦ (℩𝑧 ∈ 𝑃 ((𝐴 − 𝑧) = (𝐴 − 𝑦) ∧ 𝐴 ∈ (𝑧𝐼𝑦)))))
36	35	adantl 485	. 2 ⊢ ((𝜑 ∧ 𝑥 = 𝐴) → (𝑦 ∈ 𝑃 ↦ (℩𝑧 ∈ 𝑃 ((𝑥 − 𝑧) = (𝑥 − 𝑦) ∧ 𝑥 ∈ (𝑧𝐼𝑦)))) = (𝑦 ∈ 𝑃 ↦ (℩𝑧 ∈ 𝑃 ((𝐴 − 𝑧) = (𝐴 − 𝑦) ∧ 𝐴 ∈ (𝑧𝐼𝑦)))))
37		mirval.a	. 2 ⊢ (𝜑 → 𝐴 ∈ 𝑃)
38	23	mptex 6963	. . 3 ⊢ (𝑦 ∈ 𝑃 ↦ (℩𝑧 ∈ 𝑃 ((𝐴 − 𝑧) = (𝐴 − 𝑦) ∧ 𝐴 ∈ (𝑧𝐼𝑦)))) ∈ V
39	38	a1i 11	. 2 ⊢ (𝜑 → (𝑦 ∈ 𝑃 ↦ (℩𝑧 ∈ 𝑃 ((𝐴 − 𝑧) = (𝐴 − 𝑦) ∧ 𝐴 ∈ (𝑧𝐼𝑦)))) ∈ V)
40	27, 36, 37, 39	fvmptd 6752	1 ⊢ (𝜑 → (𝑆‘𝐴) = (𝑦 ∈ 𝑃 ↦ (℩𝑧 ∈ 𝑃 ((𝐴 − 𝑧) = (𝐴 − 𝑦) ∧ 𝐴 ∈ (𝑧𝐼𝑦)))))

Syntax hints:   → wi 4   ∧ wa 399   = wceq 1538   ∈ wcel 2111  Vcvv 3441   ↦ cmpt 5110  ‘cfv 6324  ℩crio 7092  (class class class)co 7135  Basecbs 16475  distcds 16566  TarskiGcstrkg 26224  Itvcitv 26230  LineGclng 26231  pInvGcmir 26446

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2113  ax-9 2121  ax-10 2142  ax-11 2158  ax-12 2175  ax-ext 2770  ax-rep 5154  ax-sep 5167  ax-nul 5174  ax-pr 5295

This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3an 1086  df-tru 1541  df-ex 1782  df-nf 1786  df-sb 2070  df-mo 2598  df-eu 2629  df-clab 2777  df-cleq 2791  df-clel 2870  df-nfc 2938  df-ne 2988  df-ral 3111  df-rex 3112  df-reu 3113  df-rab 3115  df-v 3443  df-sbc 3721  df-csb 3829  df-dif 3884  df-un 3886  df-in 3888  df-ss 3898  df-nul 4244  df-if 4426  df-sn 4526  df-pr 4528  df-op 4532  df-uni 4801  df-iun 4883  df-br 5031  df-opab 5093  df-mpt 5111  df-id 5425  df-xp 5525  df-rel 5526  df-cnv 5527  df-co 5528  df-dm 5529  df-rn 5530  df-res 5531  df-ima 5532  df-iota 6283  df-fun 6326  df-fn 6327  df-f 6328  df-f1 6329  df-fo 6330  df-f1o 6331  df-fv 6332  df-riota 7093  df-ov 7138  df-mir 26447

This theorem is referenced by:  mirfv  26450  mirf  26454