Theorem israg 27702

Description: Property for 3 points A, B, C to form a right angle. Definition 8.1 of [Schwabhauser] p. 57. (Contributed by Thierry Arnoux, 25-Aug-2019.)

Hypotheses

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

Assertion

Ref	Expression
israg	⊢ (𝜑 → (⟨“𝐴𝐵𝐶”⟩ ∈ (∟G‘𝐺) ↔ (𝐴 − 𝐶) = (𝐴 − ((𝑆‘𝐵)‘𝐶))))

Proof of Theorem israg

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

Step	Hyp	Ref	Expression
1		israg.a	. . . 4 ⊢ (𝜑 → 𝐴 ∈ 𝑃)
2		israg.b	. . . 4 ⊢ (𝜑 → 𝐵 ∈ 𝑃)
3		israg.c	. . . 4 ⊢ (𝜑 → 𝐶 ∈ 𝑃)
4	1, 2, 3	s3cld 14773	. . 3 ⊢ (𝜑 → ⟨“𝐴𝐵𝐶”⟩ ∈ Word 𝑃)
5		fveqeq2 6856	. . . . 5 ⊢ (𝑤 = ⟨“𝐴𝐵𝐶”⟩ → ((♯‘𝑤) = 3 ↔ (♯‘⟨“𝐴𝐵𝐶”⟩) = 3))
6		fveq1 6846	. . . . . . 7 ⊢ (𝑤 = ⟨“𝐴𝐵𝐶”⟩ → (𝑤‘0) = (⟨“𝐴𝐵𝐶”⟩‘0))
7		fveq1 6846	. . . . . . 7 ⊢ (𝑤 = ⟨“𝐴𝐵𝐶”⟩ → (𝑤‘2) = (⟨“𝐴𝐵𝐶”⟩‘2))
8	6, 7	oveq12d 7380	. . . . . 6 ⊢ (𝑤 = ⟨“𝐴𝐵𝐶”⟩ → ((𝑤‘0) − (𝑤‘2)) = ((⟨“𝐴𝐵𝐶”⟩‘0) − (⟨“𝐴𝐵𝐶”⟩‘2)))
9		fveq1 6846	. . . . . . . . 9 ⊢ (𝑤 = ⟨“𝐴𝐵𝐶”⟩ → (𝑤‘1) = (⟨“𝐴𝐵𝐶”⟩‘1))
10	9	fveq2d 6851	. . . . . . . 8 ⊢ (𝑤 = ⟨“𝐴𝐵𝐶”⟩ → (𝑆‘(𝑤‘1)) = (𝑆‘(⟨“𝐴𝐵𝐶”⟩‘1)))
11	10, 7	fveq12d 6854	. . . . . . 7 ⊢ (𝑤 = ⟨“𝐴𝐵𝐶”⟩ → ((𝑆‘(𝑤‘1))‘(𝑤‘2)) = ((𝑆‘(⟨“𝐴𝐵𝐶”⟩‘1))‘(⟨“𝐴𝐵𝐶”⟩‘2)))
12	6, 11	oveq12d 7380	. . . . . 6 ⊢ (𝑤 = ⟨“𝐴𝐵𝐶”⟩ → ((𝑤‘0) − ((𝑆‘(𝑤‘1))‘(𝑤‘2))) = ((⟨“𝐴𝐵𝐶”⟩‘0) − ((𝑆‘(⟨“𝐴𝐵𝐶”⟩‘1))‘(⟨“𝐴𝐵𝐶”⟩‘2))))
13	8, 12	eqeq12d 2747	. . . . 5 ⊢ (𝑤 = ⟨“𝐴𝐵𝐶”⟩ → (((𝑤‘0) − (𝑤‘2)) = ((𝑤‘0) − ((𝑆‘(𝑤‘1))‘(𝑤‘2))) ↔ ((⟨“𝐴𝐵𝐶”⟩‘0) − (⟨“𝐴𝐵𝐶”⟩‘2)) = ((⟨“𝐴𝐵𝐶”⟩‘0) − ((𝑆‘(⟨“𝐴𝐵𝐶”⟩‘1))‘(⟨“𝐴𝐵𝐶”⟩‘2)))))
14	5, 13	anbi12d 631	. . . 4 ⊢ (𝑤 = ⟨“𝐴𝐵𝐶”⟩ → (((♯‘𝑤) = 3 ∧ ((𝑤‘0) − (𝑤‘2)) = ((𝑤‘0) − ((𝑆‘(𝑤‘1))‘(𝑤‘2)))) ↔ ((♯‘⟨“𝐴𝐵𝐶”⟩) = 3 ∧ ((⟨“𝐴𝐵𝐶”⟩‘0) − (⟨“𝐴𝐵𝐶”⟩‘2)) = ((⟨“𝐴𝐵𝐶”⟩‘0) − ((𝑆‘(⟨“𝐴𝐵𝐶”⟩‘1))‘(⟨“𝐴𝐵𝐶”⟩‘2))))))
15	14	elrab3 3649	. . 3 ⊢ (⟨“𝐴𝐵𝐶”⟩ ∈ Word 𝑃 → (⟨“𝐴𝐵𝐶”⟩ ∈ {𝑤 ∈ Word 𝑃 ∣ ((♯‘𝑤) = 3 ∧ ((𝑤‘0) − (𝑤‘2)) = ((𝑤‘0) − ((𝑆‘(𝑤‘1))‘(𝑤‘2))))} ↔ ((♯‘⟨“𝐴𝐵𝐶”⟩) = 3 ∧ ((⟨“𝐴𝐵𝐶”⟩‘0) − (⟨“𝐴𝐵𝐶”⟩‘2)) = ((⟨“𝐴𝐵𝐶”⟩‘0) − ((𝑆‘(⟨“𝐴𝐵𝐶”⟩‘1))‘(⟨“𝐴𝐵𝐶”⟩‘2))))))
16	4, 15	syl 17	. 2 ⊢ (𝜑 → (⟨“𝐴𝐵𝐶”⟩ ∈ {𝑤 ∈ Word 𝑃 ∣ ((♯‘𝑤) = 3 ∧ ((𝑤‘0) − (𝑤‘2)) = ((𝑤‘0) − ((𝑆‘(𝑤‘1))‘(𝑤‘2))))} ↔ ((♯‘⟨“𝐴𝐵𝐶”⟩) = 3 ∧ ((⟨“𝐴𝐵𝐶”⟩‘0) − (⟨“𝐴𝐵𝐶”⟩‘2)) = ((⟨“𝐴𝐵𝐶”⟩‘0) − ((𝑆‘(⟨“𝐴𝐵𝐶”⟩‘1))‘(⟨“𝐴𝐵𝐶”⟩‘2))))))
17		df-rag 27699	. . . 4 ⊢ ∟G = (𝑔 ∈ V ↦ {𝑤 ∈ Word (Base‘𝑔) ∣ ((♯‘𝑤) = 3 ∧ ((𝑤‘0)(dist‘𝑔)(𝑤‘2)) = ((𝑤‘0)(dist‘𝑔)(((pInvG‘𝑔)‘(𝑤‘1))‘(𝑤‘2))))})
18		simpr 485	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑔 = 𝐺) → 𝑔 = 𝐺)
19	18	fveq2d 6851	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑔 = 𝐺) → (Base‘𝑔) = (Base‘𝐺))
20		israg.p	. . . . . . 7 ⊢ 𝑃 = (Base‘𝐺)
21	19, 20	eqtr4di 2789	. . . . . 6 ⊢ ((𝜑 ∧ 𝑔 = 𝐺) → (Base‘𝑔) = 𝑃)
22		wrdeq 14436	. . . . . 6 ⊢ ((Base‘𝑔) = 𝑃 → Word (Base‘𝑔) = Word 𝑃)
23	21, 22	syl 17	. . . . 5 ⊢ ((𝜑 ∧ 𝑔 = 𝐺) → Word (Base‘𝑔) = Word 𝑃)
24	18	fveq2d 6851	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑔 = 𝐺) → (dist‘𝑔) = (dist‘𝐺))
25		israg.d	. . . . . . . . 9 ⊢ − = (dist‘𝐺)
26	24, 25	eqtr4di 2789	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑔 = 𝐺) → (dist‘𝑔) = − )
27	26	oveqd 7379	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑔 = 𝐺) → ((𝑤‘0)(dist‘𝑔)(𝑤‘2)) = ((𝑤‘0) − (𝑤‘2)))
28		eqidd 2732	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑔 = 𝐺) → (𝑤‘0) = (𝑤‘0))
29	18	fveq2d 6851	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑔 = 𝐺) → (pInvG‘𝑔) = (pInvG‘𝐺))
30		israg.s	. . . . . . . . . . 11 ⊢ 𝑆 = (pInvG‘𝐺)
31	29, 30	eqtr4di 2789	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑔 = 𝐺) → (pInvG‘𝑔) = 𝑆)
32	31	fveq1d 6849	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑔 = 𝐺) → ((pInvG‘𝑔)‘(𝑤‘1)) = (𝑆‘(𝑤‘1)))
33	32	fveq1d 6849	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑔 = 𝐺) → (((pInvG‘𝑔)‘(𝑤‘1))‘(𝑤‘2)) = ((𝑆‘(𝑤‘1))‘(𝑤‘2)))
34	26, 28, 33	oveq123d 7383	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑔 = 𝐺) → ((𝑤‘0)(dist‘𝑔)(((pInvG‘𝑔)‘(𝑤‘1))‘(𝑤‘2))) = ((𝑤‘0) − ((𝑆‘(𝑤‘1))‘(𝑤‘2))))
35	27, 34	eqeq12d 2747	. . . . . 6 ⊢ ((𝜑 ∧ 𝑔 = 𝐺) → (((𝑤‘0)(dist‘𝑔)(𝑤‘2)) = ((𝑤‘0)(dist‘𝑔)(((pInvG‘𝑔)‘(𝑤‘1))‘(𝑤‘2))) ↔ ((𝑤‘0) − (𝑤‘2)) = ((𝑤‘0) − ((𝑆‘(𝑤‘1))‘(𝑤‘2)))))
36	35	anbi2d 629	. . . . 5 ⊢ ((𝜑 ∧ 𝑔 = 𝐺) → (((♯‘𝑤) = 3 ∧ ((𝑤‘0)(dist‘𝑔)(𝑤‘2)) = ((𝑤‘0)(dist‘𝑔)(((pInvG‘𝑔)‘(𝑤‘1))‘(𝑤‘2)))) ↔ ((♯‘𝑤) = 3 ∧ ((𝑤‘0) − (𝑤‘2)) = ((𝑤‘0) − ((𝑆‘(𝑤‘1))‘(𝑤‘2))))))
37	23, 36	rabeqbidv 3422	. . . 4 ⊢ ((𝜑 ∧ 𝑔 = 𝐺) → {𝑤 ∈ Word (Base‘𝑔) ∣ ((♯‘𝑤) = 3 ∧ ((𝑤‘0)(dist‘𝑔)(𝑤‘2)) = ((𝑤‘0)(dist‘𝑔)(((pInvG‘𝑔)‘(𝑤‘1))‘(𝑤‘2))))} = {𝑤 ∈ Word 𝑃 ∣ ((♯‘𝑤) = 3 ∧ ((𝑤‘0) − (𝑤‘2)) = ((𝑤‘0) − ((𝑆‘(𝑤‘1))‘(𝑤‘2))))})
38		israg.g	. . . . 5 ⊢ (𝜑 → 𝐺 ∈ TarskiG)
39	38	elexd 3466	. . . 4 ⊢ (𝜑 → 𝐺 ∈ V)
40	20	fvexi 6861	. . . . . . 7 ⊢ 𝑃 ∈ V
41	40	wrdexi 14426	. . . . . 6 ⊢ Word 𝑃 ∈ V
42	41	rabex 5294	. . . . 5 ⊢ {𝑤 ∈ Word 𝑃 ∣ ((♯‘𝑤) = 3 ∧ ((𝑤‘0) − (𝑤‘2)) = ((𝑤‘0) − ((𝑆‘(𝑤‘1))‘(𝑤‘2))))} ∈ V
43	42	a1i 11	. . . 4 ⊢ (𝜑 → {𝑤 ∈ Word 𝑃 ∣ ((♯‘𝑤) = 3 ∧ ((𝑤‘0) − (𝑤‘2)) = ((𝑤‘0) − ((𝑆‘(𝑤‘1))‘(𝑤‘2))))} ∈ V)
44	17, 37, 39, 43	fvmptd2 6961	. . 3 ⊢ (𝜑 → (∟G‘𝐺) = {𝑤 ∈ Word 𝑃 ∣ ((♯‘𝑤) = 3 ∧ ((𝑤‘0) − (𝑤‘2)) = ((𝑤‘0) − ((𝑆‘(𝑤‘1))‘(𝑤‘2))))})
45	44	eleq2d 2818	. 2 ⊢ (𝜑 → (⟨“𝐴𝐵𝐶”⟩ ∈ (∟G‘𝐺) ↔ ⟨“𝐴𝐵𝐶”⟩ ∈ {𝑤 ∈ Word 𝑃 ∣ ((♯‘𝑤) = 3 ∧ ((𝑤‘0) − (𝑤‘2)) = ((𝑤‘0) − ((𝑆‘(𝑤‘1))‘(𝑤‘2))))}))
46		s3fv0 14792	. . . . . . 7 ⊢ (𝐴 ∈ 𝑃 → (⟨“𝐴𝐵𝐶”⟩‘0) = 𝐴)
47	1, 46	syl 17	. . . . . 6 ⊢ (𝜑 → (⟨“𝐴𝐵𝐶”⟩‘0) = 𝐴)
48	47	eqcomd 2737	. . . . 5 ⊢ (𝜑 → 𝐴 = (⟨“𝐴𝐵𝐶”⟩‘0))
49		s3fv2 14794	. . . . . . 7 ⊢ (𝐶 ∈ 𝑃 → (⟨“𝐴𝐵𝐶”⟩‘2) = 𝐶)
50	3, 49	syl 17	. . . . . 6 ⊢ (𝜑 → (⟨“𝐴𝐵𝐶”⟩‘2) = 𝐶)
51	50	eqcomd 2737	. . . . 5 ⊢ (𝜑 → 𝐶 = (⟨“𝐴𝐵𝐶”⟩‘2))
52	48, 51	oveq12d 7380	. . . 4 ⊢ (𝜑 → (𝐴 − 𝐶) = ((⟨“𝐴𝐵𝐶”⟩‘0) − (⟨“𝐴𝐵𝐶”⟩‘2)))
53		s3fv1 14793	. . . . . . . . 9 ⊢ (𝐵 ∈ 𝑃 → (⟨“𝐴𝐵𝐶”⟩‘1) = 𝐵)
54	2, 53	syl 17	. . . . . . . 8 ⊢ (𝜑 → (⟨“𝐴𝐵𝐶”⟩‘1) = 𝐵)
55	54	eqcomd 2737	. . . . . . 7 ⊢ (𝜑 → 𝐵 = (⟨“𝐴𝐵𝐶”⟩‘1))
56	55	fveq2d 6851	. . . . . 6 ⊢ (𝜑 → (𝑆‘𝐵) = (𝑆‘(⟨“𝐴𝐵𝐶”⟩‘1)))
57	56, 51	fveq12d 6854	. . . . 5 ⊢ (𝜑 → ((𝑆‘𝐵)‘𝐶) = ((𝑆‘(⟨“𝐴𝐵𝐶”⟩‘1))‘(⟨“𝐴𝐵𝐶”⟩‘2)))
58	48, 57	oveq12d 7380	. . . 4 ⊢ (𝜑 → (𝐴 − ((𝑆‘𝐵)‘𝐶)) = ((⟨“𝐴𝐵𝐶”⟩‘0) − ((𝑆‘(⟨“𝐴𝐵𝐶”⟩‘1))‘(⟨“𝐴𝐵𝐶”⟩‘2))))
59	52, 58	eqeq12d 2747	. . 3 ⊢ (𝜑 → ((𝐴 − 𝐶) = (𝐴 − ((𝑆‘𝐵)‘𝐶)) ↔ ((⟨“𝐴𝐵𝐶”⟩‘0) − (⟨“𝐴𝐵𝐶”⟩‘2)) = ((⟨“𝐴𝐵𝐶”⟩‘0) − ((𝑆‘(⟨“𝐴𝐵𝐶”⟩‘1))‘(⟨“𝐴𝐵𝐶”⟩‘2)))))
60		s3len 14795	. . . . 5 ⊢ (♯‘⟨“𝐴𝐵𝐶”⟩) = 3
61	60	a1i 11	. . . 4 ⊢ (𝜑 → (♯‘⟨“𝐴𝐵𝐶”⟩) = 3)
62	61	biantrurd 533	. . 3 ⊢ (𝜑 → (((⟨“𝐴𝐵𝐶”⟩‘0) − (⟨“𝐴𝐵𝐶”⟩‘2)) = ((⟨“𝐴𝐵𝐶”⟩‘0) − ((𝑆‘(⟨“𝐴𝐵𝐶”⟩‘1))‘(⟨“𝐴𝐵𝐶”⟩‘2))) ↔ ((♯‘⟨“𝐴𝐵𝐶”⟩) = 3 ∧ ((⟨“𝐴𝐵𝐶”⟩‘0) − (⟨“𝐴𝐵𝐶”⟩‘2)) = ((⟨“𝐴𝐵𝐶”⟩‘0) − ((𝑆‘(⟨“𝐴𝐵𝐶”⟩‘1))‘(⟨“𝐴𝐵𝐶”⟩‘2))))))
63	59, 62	bitrd 278	. 2 ⊢ (𝜑 → ((𝐴 − 𝐶) = (𝐴 − ((𝑆‘𝐵)‘𝐶)) ↔ ((♯‘⟨“𝐴𝐵𝐶”⟩) = 3 ∧ ((⟨“𝐴𝐵𝐶”⟩‘0) − (⟨“𝐴𝐵𝐶”⟩‘2)) = ((⟨“𝐴𝐵𝐶”⟩‘0) − ((𝑆‘(⟨“𝐴𝐵𝐶”⟩‘1))‘(⟨“𝐴𝐵𝐶”⟩‘2))))))
64	16, 45, 63	3bitr4d 310	1 ⊢ (𝜑 → (⟨“𝐴𝐵𝐶”⟩ ∈ (∟G‘𝐺) ↔ (𝐴 − 𝐶) = (𝐴 − ((𝑆‘𝐵)‘𝐶))))

Syntax hints:   → wi 4   ↔ wb 205   ∧ wa 396   = wceq 1541   ∈ wcel 2106  {crab 3405  Vcvv 3446  ‘cfv 6501  (class class class)co 7362  0cc0 11060  1c1 11061  2c2 12217  3c3 12218  ♯chash 14240  Word cword 14414  ⟨“cs3 14743  Basecbs 17094  distcds 17156  TarskiGcstrkg 27432  Itvcitv 27438  LineGclng 27439  pInvGcmir 27657  ∟Gcrag 27698

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 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2702  ax-rep 5247  ax-sep 5261  ax-nul 5268  ax-pow 5325  ax-pr 5389  ax-un 7677  ax-cnex 11116  ax-resscn 11117  ax-1cn 11118  ax-icn 11119  ax-addcl 11120  ax-addrcl 11121  ax-mulcl 11122  ax-mulrcl 11123  ax-mulcom 11124  ax-addass 11125  ax-mulass 11126  ax-distr 11127  ax-i2m1 11128  ax-1ne0 11129  ax-1rid 11130  ax-rnegex 11131  ax-rrecex 11132  ax-cnre 11133  ax-pre-lttri 11134  ax-pre-lttrn 11135  ax-pre-ltadd 11136  ax-pre-mulgt0 11137

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2533  df-eu 2562  df-clab 2709  df-cleq 2723  df-clel 2809  df-nfc 2884  df-ne 2940  df-nel 3046  df-ral 3061  df-rex 3070  df-reu 3352  df-rab 3406  df-v 3448  df-sbc 3743  df-csb 3859  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-pss 3932  df-nul 4288  df-if 4492  df-pw 4567  df-sn 4592  df-pr 4594  df-op 4598  df-uni 4871  df-int 4913  df-iun 4961  df-br 5111  df-opab 5173  df-mpt 5194  df-tr 5228  df-id 5536  df-eprel 5542  df-po 5550  df-so 5551  df-fr 5593  df-we 5595  df-xp 5644  df-rel 5645  df-cnv 5646  df-co 5647  df-dm 5648  df-rn 5649  df-res 5650  df-ima 5651  df-pred 6258  df-ord 6325  df-on 6326  df-lim 6327  df-suc 6328  df-iota 6453  df-fun 6503  df-fn 6504  df-f 6505  df-f1 6506  df-fo 6507  df-f1o 6508  df-fv 6509  df-riota 7318  df-ov 7365  df-oprab 7366  df-mpo 7367  df-om 7808  df-1st 7926  df-2nd 7927  df-frecs 8217  df-wrecs 8248  df-recs 8322  df-rdg 8361  df-1o 8417  df-er 8655  df-map 8774  df-en 8891  df-dom 8892  df-sdom 8893  df-fin 8894  df-card 9884  df-pnf 11200  df-mnf 11201  df-xr 11202  df-ltxr 11203  df-le 11204  df-sub 11396  df-neg 11397  df-nn 12163  df-2 12225  df-3 12226  df-n0 12423  df-z 12509  df-uz 12773  df-fz 13435  df-fzo 13578  df-hash 14241  df-word 14415  df-concat 14471  df-s1 14496  df-s2 14749  df-s3 14750  df-rag 27699

This theorem is referenced by:  ragcom  27703  ragcol  27704  ragmir  27705  mirrag  27706  ragtrivb  27707  ragflat2  27708  ragflat  27709  ragcgr  27712  footexALT  27723  footexlem1  27724  footexlem2  27725  colperpexlem1  27735  colperpexlem3  27737  mideulem2  27739  opphllem  27740  lmiisolem  27801  hypcgrlem1  27804  hypcgrlem2  27805  trgcopyeulem  27810