Theorem mirval 29133

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 29131	. . . 4 ⊢ pInvG = (𝑔 ∈ V ↦ (𝑥 ∈ (Base‘𝑔) ↦ (𝑦 ∈ (Base‘𝑔) ↦ (℩𝑧 ∈ (Base‘𝑔)((𝑥(dist‘𝑔)𝑧) = (𝑥(dist‘𝑔)𝑦) ∧ 𝑥 ∈ (𝑧(Itv‘𝑔)𝑦))))))
3		fveq2 6886	. . . . . 6 ⊢ (𝑔 = 𝐺 → (Base‘𝑔) = (Base‘𝐺))
4		mirval.p	. . . . . 6 ⊢ 𝑃 = (Base‘𝐺)
5	3, 4	eqtr4di 2813	. . . . 5 ⊢ (𝑔 = 𝐺 → (Base‘𝑔) = 𝑃)
6		fveq2 6886	. . . . . . . . . . 11 ⊢ (𝑔 = 𝐺 → (dist‘𝑔) = (dist‘𝐺))
7		mirval.d	. . . . . . . . . . 11 ⊢ − = (dist‘𝐺)
8	6, 7	eqtr4di 2813	. . . . . . . . . 10 ⊢ (𝑔 = 𝐺 → (dist‘𝑔) = − )
9	8	oveqd 7438	. . . . . . . . 9 ⊢ (𝑔 = 𝐺 → (𝑥(dist‘𝑔)𝑧) = (𝑥 − 𝑧))
10	8	oveqd 7438	. . . . . . . . 9 ⊢ (𝑔 = 𝐺 → (𝑥(dist‘𝑔)𝑦) = (𝑥 − 𝑦))
11	9, 10	eqeq12d 2776	. . . . . . . 8 ⊢ (𝑔 = 𝐺 → ((𝑥(dist‘𝑔)𝑧) = (𝑥(dist‘𝑔)𝑦) ↔ (𝑥 − 𝑧) = (𝑥 − 𝑦)))
12		fveq2 6886	. . . . . . . . . . 11 ⊢ (𝑔 = 𝐺 → (Itv‘𝑔) = (Itv‘𝐺))
13		mirval.i	. . . . . . . . . . 11 ⊢ 𝐼 = (Itv‘𝐺)
14	12, 13	eqtr4di 2813	. . . . . . . . . 10 ⊢ (𝑔 = 𝐺 → (Itv‘𝑔) = 𝐼)
15	14	oveqd 7438	. . . . . . . . 9 ⊢ (𝑔 = 𝐺 → (𝑧(Itv‘𝑔)𝑦) = (𝑧𝐼𝑦))
16	15	eleq2d 2846	. . . . . . . 8 ⊢ (𝑔 = 𝐺 → (𝑥 ∈ (𝑧(Itv‘𝑔)𝑦) ↔ 𝑥 ∈ (𝑧𝐼𝑦)))
17	11, 16	anbi12d 644	. . . . . . 7 ⊢ (𝑔 = 𝐺 → (((𝑥(dist‘𝑔)𝑧) = (𝑥(dist‘𝑔)𝑦) ∧ 𝑥 ∈ (𝑧(Itv‘𝑔)𝑦)) ↔ ((𝑥 − 𝑧) = (𝑥 − 𝑦) ∧ 𝑥 ∈ (𝑧𝐼𝑦))))
18	5, 17	riotaeqbidv 7381	. . . . . 6 ⊢ (𝑔 = 𝐺 → (℩𝑧 ∈ (Base‘𝑔)((𝑥(dist‘𝑔)𝑧) = (𝑥(dist‘𝑔)𝑦) ∧ 𝑥 ∈ (𝑧(Itv‘𝑔)𝑦))) = (℩𝑧 ∈ 𝑃 ((𝑥 − 𝑧) = (𝑥 − 𝑦) ∧ 𝑥 ∈ (𝑧𝐼𝑦))))
19	5, 18	mpteq12dv 5191	. . . . 5 ⊢ (𝑔 = 𝐺 → (𝑦 ∈ (Base‘𝑔) ↦ (℩𝑧 ∈ (Base‘𝑔)((𝑥(dist‘𝑔)𝑧) = (𝑥(dist‘𝑔)𝑦) ∧ 𝑥 ∈ (𝑧(Itv‘𝑔)𝑦)))) = (𝑦 ∈ 𝑃 ↦ (℩𝑧 ∈ 𝑃 ((𝑥 − 𝑧) = (𝑥 − 𝑦) ∧ 𝑥 ∈ (𝑧𝐼𝑦)))))
20	5, 19	mpteq12dv 5191	. . . 4 ⊢ (𝑔 = 𝐺 → (𝑥 ∈ (Base‘𝑔) ↦ (𝑦 ∈ (Base‘𝑔) ↦ (℩𝑧 ∈ (Base‘𝑔)((𝑥(dist‘𝑔)𝑧) = (𝑥(dist‘𝑔)𝑦) ∧ 𝑥 ∈ (𝑧(Itv‘𝑔)𝑦))))) = (𝑥 ∈ 𝑃 ↦ (𝑦 ∈ 𝑃 ↦ (℩𝑧 ∈ 𝑃 ((𝑥 − 𝑧) = (𝑥 − 𝑦) ∧ 𝑥 ∈ (𝑧𝐼𝑦))))))
21		mirval.g	. . . . 5 ⊢ (𝜑 → 𝐺 ∈ TarskiG)
22	21	elexd 3473	. . . 4 ⊢ (𝜑 → 𝐺 ∈ V)
23	4	fvexi 6900	. . . . . 6 ⊢ 𝑃 ∈ V
24	23	mptex 7230	. . . . 5 ⊢ (𝑥 ∈ 𝑃 ↦ (𝑦 ∈ 𝑃 ↦ (℩𝑧 ∈ 𝑃 ((𝑥 − 𝑧) = (𝑥 − 𝑦) ∧ 𝑥 ∈ (𝑧𝐼𝑦))))) ∈ V
25	24	a1i 11	. . . 4 ⊢ (𝜑 → (𝑥 ∈ 𝑃 ↦ (𝑦 ∈ 𝑃 ↦ (℩𝑧 ∈ 𝑃 ((𝑥 − 𝑧) = (𝑥 − 𝑦) ∧ 𝑥 ∈ (𝑧𝐼𝑦))))) ∈ V)
26	2, 20, 22, 25	fvmptd3 7018	. . 3 ⊢ (𝜑 → (pInvG‘𝐺) = (𝑥 ∈ 𝑃 ↦ (𝑦 ∈ 𝑃 ↦ (℩𝑧 ∈ 𝑃 ((𝑥 − 𝑧) = (𝑥 − 𝑦) ∧ 𝑥 ∈ (𝑧𝐼𝑦))))))
27	1, 26	eqtrid 2807	. 2 ⊢ (𝜑 → 𝑆 = (𝑥 ∈ 𝑃 ↦ (𝑦 ∈ 𝑃 ↦ (℩𝑧 ∈ 𝑃 ((𝑥 − 𝑧) = (𝑥 − 𝑦) ∧ 𝑥 ∈ (𝑧𝐼𝑦))))))
28		simpll 779	. . . . . . . 8 ⊢ (((𝑥 = 𝐴 ∧ 𝑦 ∈ 𝑃) ∧ 𝑧 ∈ 𝑃) → 𝑥 = 𝐴)
29	28	oveq1d 7436	. . . . . . 7 ⊢ (((𝑥 = 𝐴 ∧ 𝑦 ∈ 𝑃) ∧ 𝑧 ∈ 𝑃) → (𝑥 − 𝑧) = (𝐴 − 𝑧))
30	28	oveq1d 7436	. . . . . . 7 ⊢ (((𝑥 = 𝐴 ∧ 𝑦 ∈ 𝑃) ∧ 𝑧 ∈ 𝑃) → (𝑥 − 𝑦) = (𝐴 − 𝑦))
31	29, 30	eqeq12d 2776	. . . . . 6 ⊢ (((𝑥 = 𝐴 ∧ 𝑦 ∈ 𝑃) ∧ 𝑧 ∈ 𝑃) → ((𝑥 − 𝑧) = (𝑥 − 𝑦) ↔ (𝐴 − 𝑧) = (𝐴 − 𝑦)))
32	28	eleq1d 2845	. . . . . 6 ⊢ (((𝑥 = 𝐴 ∧ 𝑦 ∈ 𝑃) ∧ 𝑧 ∈ 𝑃) → (𝑥 ∈ (𝑧𝐼𝑦) ↔ 𝐴 ∈ (𝑧𝐼𝑦)))
33	31, 32	anbi12d 644	. . . . 5 ⊢ (((𝑥 = 𝐴 ∧ 𝑦 ∈ 𝑃) ∧ 𝑧 ∈ 𝑃) → (((𝑥 − 𝑧) = (𝑥 − 𝑦) ∧ 𝑥 ∈ (𝑧𝐼𝑦)) ↔ ((𝐴 − 𝑧) = (𝐴 − 𝑦) ∧ 𝐴 ∈ (𝑧𝐼𝑦))))
34	33	riotabidva 7397	. . . 4 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 ∈ 𝑃) → (℩𝑧 ∈ 𝑃 ((𝑥 − 𝑧) = (𝑥 − 𝑦) ∧ 𝑥 ∈ (𝑧𝐼𝑦))) = (℩𝑧 ∈ 𝑃 ((𝐴 − 𝑧) = (𝐴 − 𝑦) ∧ 𝐴 ∈ (𝑧𝐼𝑦))))
35	34	mpteq2dva 5197	. . 3 ⊢ (𝑥 = 𝐴 → (𝑦 ∈ 𝑃 ↦ (℩𝑧 ∈ 𝑃 ((𝑥 − 𝑧) = (𝑥 − 𝑦) ∧ 𝑥 ∈ (𝑧𝐼𝑦)))) = (𝑦 ∈ 𝑃 ↦ (℩𝑧 ∈ 𝑃 ((𝐴 − 𝑧) = (𝐴 − 𝑦) ∧ 𝐴 ∈ (𝑧𝐼𝑦)))))
36	35	adantl 487	. 2 ⊢ ((𝜑 ∧ 𝑥 = 𝐴) → (𝑦 ∈ 𝑃 ↦ (℩𝑧 ∈ 𝑃 ((𝑥 − 𝑧) = (𝑥 − 𝑦) ∧ 𝑥 ∈ (𝑧𝐼𝑦)))) = (𝑦 ∈ 𝑃 ↦ (℩𝑧 ∈ 𝑃 ((𝐴 − 𝑧) = (𝐴 − 𝑦) ∧ 𝐴 ∈ (𝑧𝐼𝑦)))))
37		mirval.a	. 2 ⊢ (𝜑 → 𝐴 ∈ 𝑃)
38	23	mptex 7230	. . 3 ⊢ (𝑦 ∈ 𝑃 ↦ (℩𝑧 ∈ 𝑃 ((𝐴 − 𝑧) = (𝐴 − 𝑦) ∧ 𝐴 ∈ (𝑧𝐼𝑦)))) ∈ V
39	38	a1i 11	. 2 ⊢ (𝜑 → (𝑦 ∈ 𝑃 ↦ (℩𝑧 ∈ 𝑃 ((𝐴 − 𝑧) = (𝐴 − 𝑦) ∧ 𝐴 ∈ (𝑧𝐼𝑦)))) ∈ V)
40	27, 36, 37, 39	fvmptd 7002	1 ⊢ (𝜑 → (𝑆‘𝐴) = (𝑦 ∈ 𝑃 ↦ (℩𝑧 ∈ 𝑃 ((𝐴 − 𝑧) = (𝐴 − 𝑦) ∧ 𝐴 ∈ (𝑧𝐼𝑦)))))

This proof depends on syntax axioms:   → wi 4   ∧ wa 401   = wceq 1569   ∈ wcel 2144  Vcvv 3450   ↦ cmpt 5185  ‘cfv 6539  ℩crio 7377  (class class class)co 7421  Basecbs 17393  distcds 17443  TarskiGcstrkg 28895  Itvcitv 28901  LineGclng 28902  pInvGcmir 29130

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1827  ax-4 1841  ax-5 1942  ax-6 1999  ax-7 2040  ax-8 2146  ax-9 2154  ax-10 2177  ax-11 2193  ax-12 2212  ax-ext 2732  ax-rep 5231  ax-sep 5248  ax-nul 5259  ax-pr 5390

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1572  df-fal 1582  df-ex 1812  df-nf 1816  df-sb 2099  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-ral 3077  df-rex 3087  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3739  df-csb 3847  df-ss 3896  df-dif 4047  df-in 4091  df-un 4151  df-nul 4279  df-if 4482  df-sn 4585  df-pr 4587  df-op 4835  df-uni 4867  df-iun 4952  df-br 5103  df-opab 5167  df-mpt 5186  df-id 5545  df-xp 5656  df-rel 5657  df-cnv 5658  df-co 5659  df-dm 5660  df-rn 5661  df-res 5662  df-ima 5663  df-iota 6494  df-fun 6541  df-fn 6542  df-f 6543  df-f1 6544  df-fo 6545  df-f1o 6546  df-fv 6547  df-riota 7378  df-ov 7424  df-mir 29131

This theorem is used by:  mirfv  29134  mirf  29138