isleag - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > isleag		Structured version Visualization version GIF version

Theorem isleag 29115

Description: Geometrical "less than" property for angles. Definition 11.27 of [Schwabhauser] p. 102. (Contributed by Thierry Arnoux, 7-Oct-2020.)

**Hypotheses**
Ref	Expression
isleag.p	⊢ 𝑃 = (Base‘𝐺)
isleag.g	⊢ (𝜑 → 𝐺 ∈ TarskiG)
isleag.a	⊢ (𝜑 → 𝐴 ∈ 𝑃)
isleag.b	⊢ (𝜑 → 𝐵 ∈ 𝑃)
isleag.c	⊢ (𝜑 → 𝐶 ∈ 𝑃)
isleag.d	⊢ (𝜑 → 𝐷 ∈ 𝑃)
isleag.e	⊢ (𝜑 → 𝐸 ∈ 𝑃)
isleag.f	⊢ (𝜑 → 𝐹 ∈ 𝑃)

**Assertion**
Ref	Expression
isleag	⊢ (𝜑 → (⟨“𝐴𝐵𝐶”⟩(≤_∠‘𝐺)⟨“𝐷𝐸𝐹”⟩ ↔ ∃𝑥 ∈ 𝑃 (𝑥(inA‘𝐺)⟨“𝐷𝐸𝐹”⟩ ∧ ⟨“𝐴𝐵𝐶”⟩(cgrA‘𝐺)⟨“𝐷𝐸𝑥”⟩)))

Distinct variable groups: 𝑥,𝐴 𝑥,𝐵 𝑥,𝐶 𝑥,𝐷 𝑥,𝐸 𝑥,𝐹 𝑥,𝐺 𝑥,𝑃 𝜑,𝑥

Proof of Theorem isleag Dummy variables 𝑎 𝑏 𝑔 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		isleag.a	. . . . 5 ⊢ (𝜑 → 𝐴 ∈ 𝑃)
2		isleag.b	. . . . 5 ⊢ (𝜑 → 𝐵 ∈ 𝑃)
3		isleag.c	. . . . 5 ⊢ (𝜑 → 𝐶 ∈ 𝑃)
4	1, 2, 3	s3cld 14905	. . . 4 ⊢ (𝜑 → ⟨“𝐴𝐵𝐶”⟩ ∈ Word 𝑃)
5		s3len 14927	. . . 4 ⊢ (♯‘⟨“𝐴𝐵𝐶”⟩) = 3
6		isleag.p	. . . . . 6 ⊢ 𝑃 = (Base‘𝐺)
7	6	fvexi 6893	. . . . 5 ⊢ 𝑃 ∈ V
8		3nn0 12518	. . . . 5 ⊢ 3 ∈ ℕ₀
9		wrdmap 14579	. . . . 5 ⊢ ((𝑃 ∈ V ∧ 3 ∈ ℕ₀) → ((⟨“𝐴𝐵𝐶”⟩ ∈ Word 𝑃 ∧ (♯‘⟨“𝐴𝐵𝐶”⟩) = 3) ↔ ⟨“𝐴𝐵𝐶”⟩ ∈ (𝑃 ↑_m (0..^3))))
10	7, 8, 9	mp2an 704	. . . 4 ⊢ ((⟨“𝐴𝐵𝐶”⟩ ∈ Word 𝑃 ∧ (♯‘⟨“𝐴𝐵𝐶”⟩) = 3) ↔ ⟨“𝐴𝐵𝐶”⟩ ∈ (𝑃 ↑_m (0..^3)))
11	4, 5, 10	sylanblc 600	. . 3 ⊢ (𝜑 → ⟨“𝐴𝐵𝐶”⟩ ∈ (𝑃 ↑_m (0..^3)))
12		isleag.d	. . . . 5 ⊢ (𝜑 → 𝐷 ∈ 𝑃)
13		isleag.e	. . . . 5 ⊢ (𝜑 → 𝐸 ∈ 𝑃)
14		isleag.f	. . . . 5 ⊢ (𝜑 → 𝐹 ∈ 𝑃)
15	12, 13, 14	s3cld 14905	. . . 4 ⊢ (𝜑 → ⟨“𝐷𝐸𝐹”⟩ ∈ Word 𝑃)
16		s3len 14927	. . . 4 ⊢ (♯‘⟨“𝐷𝐸𝐹”⟩) = 3
17		wrdmap 14579	. . . . 5 ⊢ ((𝑃 ∈ V ∧ 3 ∈ ℕ₀) → ((⟨“𝐷𝐸𝐹”⟩ ∈ Word 𝑃 ∧ (♯‘⟨“𝐷𝐸𝐹”⟩) = 3) ↔ ⟨“𝐷𝐸𝐹”⟩ ∈ (𝑃 ↑_m (0..^3))))
18	7, 8, 17	mp2an 704	. . . 4 ⊢ ((⟨“𝐷𝐸𝐹”⟩ ∈ Word 𝑃 ∧ (♯‘⟨“𝐷𝐸𝐹”⟩) = 3) ↔ ⟨“𝐷𝐸𝐹”⟩ ∈ (𝑃 ↑_m (0..^3)))
19	15, 16, 18	sylanblc 600	. . 3 ⊢ (𝜑 → ⟨“𝐷𝐸𝐹”⟩ ∈ (𝑃 ↑_m (0..^3)))
20	11, 19	jca 520	. 2 ⊢ (𝜑 → (⟨“𝐴𝐵𝐶”⟩ ∈ (𝑃 ↑_m (0..^3)) ∧ ⟨“𝐷𝐸𝐹”⟩ ∈ (𝑃 ↑_m (0..^3))))
21		isleag.g	. . . . 5 ⊢ (𝜑 → 𝐺 ∈ TarskiG)
22		elex 3484	. . . . 5 ⊢ (𝐺 ∈ TarskiG → 𝐺 ∈ V)
23		fveq2 6879	. . . . . . . . . . . 12 ⊢ (𝑔 = 𝐺 → (Base‘𝑔) = (Base‘𝐺))
24	23, 6	eqtr4di 2822	. . . . . . . . . . 11 ⊢ (𝑔 = 𝐺 → (Base‘𝑔) = 𝑃)
25	24	oveq1d 7423	. . . . . . . . . 10 ⊢ (𝑔 = 𝐺 → ((Base‘𝑔) ↑_m (0..^3)) = (𝑃 ↑_m (0..^3)))
26	25	eleq2d 2855	. . . . . . . . 9 ⊢ (𝑔 = 𝐺 → (𝑎 ∈ ((Base‘𝑔) ↑_m (0..^3)) ↔ 𝑎 ∈ (𝑃 ↑_m (0..^3))))
27	25	eleq2d 2855	. . . . . . . . 9 ⊢ (𝑔 = 𝐺 → (𝑏 ∈ ((Base‘𝑔) ↑_m (0..^3)) ↔ 𝑏 ∈ (𝑃 ↑_m (0..^3))))
28	26, 27	anbi12d 643	. . . . . . . 8 ⊢ (𝑔 = 𝐺 → ((𝑎 ∈ ((Base‘𝑔) ↑_m (0..^3)) ∧ 𝑏 ∈ ((Base‘𝑔) ↑_m (0..^3))) ↔ (𝑎 ∈ (𝑃 ↑_m (0..^3)) ∧ 𝑏 ∈ (𝑃 ↑_m (0..^3)))))
29		fveq2 6879	. . . . . . . . . . 11 ⊢ (𝑔 = 𝐺 → (inA‘𝑔) = (inA‘𝐺))
30	29	breqd 5121	. . . . . . . . . 10 ⊢ (𝑔 = 𝐺 → (𝑥(inA‘𝑔)⟨“(𝑏‘0)(𝑏‘1)(𝑏‘2)”⟩ ↔ 𝑥(inA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)(𝑏‘2)”⟩))
31		fveq2 6879	. . . . . . . . . . 11 ⊢ (𝑔 = 𝐺 → (cgrA‘𝑔) = (cgrA‘𝐺))
32	31	breqd 5121	. . . . . . . . . 10 ⊢ (𝑔 = 𝐺 → (⟨“(𝑎‘0)(𝑎‘1)(𝑎‘2)”⟩(cgrA‘𝑔)⟨“(𝑏‘0)(𝑏‘1)𝑥”⟩ ↔ ⟨“(𝑎‘0)(𝑎‘1)(𝑎‘2)”⟩(cgrA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)𝑥”⟩))
33	30, 32	anbi12d 643	. . . . . . . . 9 ⊢ (𝑔 = 𝐺 → ((𝑥(inA‘𝑔)⟨“(𝑏‘0)(𝑏‘1)(𝑏‘2)”⟩ ∧ ⟨“(𝑎‘0)(𝑎‘1)(𝑎‘2)”⟩(cgrA‘𝑔)⟨“(𝑏‘0)(𝑏‘1)𝑥”⟩) ↔ (𝑥(inA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)(𝑏‘2)”⟩ ∧ ⟨“(𝑎‘0)(𝑎‘1)(𝑎‘2)”⟩(cgrA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)𝑥”⟩)))
34	24, 33	rexeqbidv 3346	. . . . . . . 8 ⊢ (𝑔 = 𝐺 → (∃𝑥 ∈ (Base‘𝑔)(𝑥(inA‘𝑔)⟨“(𝑏‘0)(𝑏‘1)(𝑏‘2)”⟩ ∧ ⟨“(𝑎‘0)(𝑎‘1)(𝑎‘2)”⟩(cgrA‘𝑔)⟨“(𝑏‘0)(𝑏‘1)𝑥”⟩) ↔ ∃𝑥 ∈ 𝑃 (𝑥(inA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)(𝑏‘2)”⟩ ∧ ⟨“(𝑎‘0)(𝑎‘1)(𝑎‘2)”⟩(cgrA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)𝑥”⟩)))
35	28, 34	anbi12d 643	. . . . . . 7 ⊢ (𝑔 = 𝐺 → (((𝑎 ∈ ((Base‘𝑔) ↑_m (0..^3)) ∧ 𝑏 ∈ ((Base‘𝑔) ↑_m (0..^3))) ∧ ∃𝑥 ∈ (Base‘𝑔)(𝑥(inA‘𝑔)⟨“(𝑏‘0)(𝑏‘1)(𝑏‘2)”⟩ ∧ ⟨“(𝑎‘0)(𝑎‘1)(𝑎‘2)”⟩(cgrA‘𝑔)⟨“(𝑏‘0)(𝑏‘1)𝑥”⟩)) ↔ ((𝑎 ∈ (𝑃 ↑_m (0..^3)) ∧ 𝑏 ∈ (𝑃 ↑_m (0..^3))) ∧ ∃𝑥 ∈ 𝑃 (𝑥(inA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)(𝑏‘2)”⟩ ∧ ⟨“(𝑎‘0)(𝑎‘1)(𝑎‘2)”⟩(cgrA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)𝑥”⟩))))
36	35	opabbidv 5178	. . . . . 6 ⊢ (𝑔 = 𝐺 → {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ ((Base‘𝑔) ↑_m (0..^3)) ∧ 𝑏 ∈ ((Base‘𝑔) ↑_m (0..^3))) ∧ ∃𝑥 ∈ (Base‘𝑔)(𝑥(inA‘𝑔)⟨“(𝑏‘0)(𝑏‘1)(𝑏‘2)”⟩ ∧ ⟨“(𝑎‘0)(𝑎‘1)(𝑎‘2)”⟩(cgrA‘𝑔)⟨“(𝑏‘0)(𝑏‘1)𝑥”⟩))} = {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝑃 ↑_m (0..^3)) ∧ 𝑏 ∈ (𝑃 ↑_m (0..^3))) ∧ ∃𝑥 ∈ 𝑃 (𝑥(inA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)(𝑏‘2)”⟩ ∧ ⟨“(𝑎‘0)(𝑎‘1)(𝑎‘2)”⟩(cgrA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)𝑥”⟩))})
37		df-leag 29114	. . . . . 6 ⊢ ≤_∠ = (𝑔 ∈ V ↦ {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ ((Base‘𝑔) ↑_m (0..^3)) ∧ 𝑏 ∈ ((Base‘𝑔) ↑_m (0..^3))) ∧ ∃𝑥 ∈ (Base‘𝑔)(𝑥(inA‘𝑔)⟨“(𝑏‘0)(𝑏‘1)(𝑏‘2)”⟩ ∧ ⟨“(𝑎‘0)(𝑎‘1)(𝑎‘2)”⟩(cgrA‘𝑔)⟨“(𝑏‘0)(𝑏‘1)𝑥”⟩))})
38		ovex 7441	. . . . . . . 8 ⊢ (𝑃 ↑_m (0..^3)) ∈ V
39	38, 38	xpex 7748	. . . . . . 7 ⊢ ((𝑃 ↑_m (0..^3)) × (𝑃 ↑_m (0..^3))) ∈ V
40		opabssxp 5751	. . . . . . 7 ⊢ {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝑃 ↑_m (0..^3)) ∧ 𝑏 ∈ (𝑃 ↑_m (0..^3))) ∧ ∃𝑥 ∈ 𝑃 (𝑥(inA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)(𝑏‘2)”⟩ ∧ ⟨“(𝑎‘0)(𝑎‘1)(𝑎‘2)”⟩(cgrA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)𝑥”⟩))} ⊆ ((𝑃 ↑_m (0..^3)) × (𝑃 ↑_m (0..^3)))
41	39, 40	ssexi 5290	. . . . . 6 ⊢ {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝑃 ↑_m (0..^3)) ∧ 𝑏 ∈ (𝑃 ↑_m (0..^3))) ∧ ∃𝑥 ∈ 𝑃 (𝑥(inA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)(𝑏‘2)”⟩ ∧ ⟨“(𝑎‘0)(𝑎‘1)(𝑎‘2)”⟩(cgrA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)𝑥”⟩))} ∈ V
42	36, 37, 41	fvmpt 6987	. . . . 5 ⊢ (𝐺 ∈ V → (≤_∠‘𝐺) = {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝑃 ↑_m (0..^3)) ∧ 𝑏 ∈ (𝑃 ↑_m (0..^3))) ∧ ∃𝑥 ∈ 𝑃 (𝑥(inA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)(𝑏‘2)”⟩ ∧ ⟨“(𝑎‘0)(𝑎‘1)(𝑎‘2)”⟩(cgrA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)𝑥”⟩))})
43	21, 22, 42	3syl 19	. . . 4 ⊢ (𝜑 → (≤_∠‘𝐺) = {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝑃 ↑_m (0..^3)) ∧ 𝑏 ∈ (𝑃 ↑_m (0..^3))) ∧ ∃𝑥 ∈ 𝑃 (𝑥(inA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)(𝑏‘2)”⟩ ∧ ⟨“(𝑎‘0)(𝑎‘1)(𝑎‘2)”⟩(cgrA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)𝑥”⟩))})
44	43	breqd 5121	. . 3 ⊢ (𝜑 → (⟨“𝐴𝐵𝐶”⟩(≤_∠‘𝐺)⟨“𝐷𝐸𝐹”⟩ ↔ ⟨“𝐴𝐵𝐶”⟩{⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝑃 ↑_m (0..^3)) ∧ 𝑏 ∈ (𝑃 ↑_m (0..^3))) ∧ ∃𝑥 ∈ 𝑃 (𝑥(inA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)(𝑏‘2)”⟩ ∧ ⟨“(𝑎‘0)(𝑎‘1)(𝑎‘2)”⟩(cgrA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)𝑥”⟩))}⟨“𝐷𝐸𝐹”⟩))
45		simpr 489	. . . . . . . . . 10 ⊢ ((𝑎 = ⟨“𝐴𝐵𝐶”⟩ ∧ 𝑏 = ⟨“𝐷𝐸𝐹”⟩) → 𝑏 = ⟨“𝐷𝐸𝐹”⟩)
46	45	fveq1d 6881	. . . . . . . . 9 ⊢ ((𝑎 = ⟨“𝐴𝐵𝐶”⟩ ∧ 𝑏 = ⟨“𝐷𝐸𝐹”⟩) → (𝑏‘0) = (⟨“𝐷𝐸𝐹”⟩‘0))
47	45	fveq1d 6881	. . . . . . . . 9 ⊢ ((𝑎 = ⟨“𝐴𝐵𝐶”⟩ ∧ 𝑏 = ⟨“𝐷𝐸𝐹”⟩) → (𝑏‘1) = (⟨“𝐷𝐸𝐹”⟩‘1))
48	45	fveq1d 6881	. . . . . . . . 9 ⊢ ((𝑎 = ⟨“𝐴𝐵𝐶”⟩ ∧ 𝑏 = ⟨“𝐷𝐸𝐹”⟩) → (𝑏‘2) = (⟨“𝐷𝐸𝐹”⟩‘2))
49	46, 47, 48	s3eqd 14897	. . . . . . . 8 ⊢ ((𝑎 = ⟨“𝐴𝐵𝐶”⟩ ∧ 𝑏 = ⟨“𝐷𝐸𝐹”⟩) → ⟨“(𝑏‘0)(𝑏‘1)(𝑏‘2)”⟩ = ⟨“(⟨“𝐷𝐸𝐹”⟩‘0)(⟨“𝐷𝐸𝐹”⟩‘1)(⟨“𝐷𝐸𝐹”⟩‘2)”⟩)
50	49	breq2d 5122	. . . . . . 7 ⊢ ((𝑎 = ⟨“𝐴𝐵𝐶”⟩ ∧ 𝑏 = ⟨“𝐷𝐸𝐹”⟩) → (𝑥(inA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)(𝑏‘2)”⟩ ↔ 𝑥(inA‘𝐺)⟨“(⟨“𝐷𝐸𝐹”⟩‘0)(⟨“𝐷𝐸𝐹”⟩‘1)(⟨“𝐷𝐸𝐹”⟩‘2)”⟩))
51		simpl 487	. . . . . . . . . 10 ⊢ ((𝑎 = ⟨“𝐴𝐵𝐶”⟩ ∧ 𝑏 = ⟨“𝐷𝐸𝐹”⟩) → 𝑎 = ⟨“𝐴𝐵𝐶”⟩)
52	51	fveq1d 6881	. . . . . . . . 9 ⊢ ((𝑎 = ⟨“𝐴𝐵𝐶”⟩ ∧ 𝑏 = ⟨“𝐷𝐸𝐹”⟩) → (𝑎‘0) = (⟨“𝐴𝐵𝐶”⟩‘0))
53	51	fveq1d 6881	. . . . . . . . 9 ⊢ ((𝑎 = ⟨“𝐴𝐵𝐶”⟩ ∧ 𝑏 = ⟨“𝐷𝐸𝐹”⟩) → (𝑎‘1) = (⟨“𝐴𝐵𝐶”⟩‘1))
54	51	fveq1d 6881	. . . . . . . . 9 ⊢ ((𝑎 = ⟨“𝐴𝐵𝐶”⟩ ∧ 𝑏 = ⟨“𝐷𝐸𝐹”⟩) → (𝑎‘2) = (⟨“𝐴𝐵𝐶”⟩‘2))
55	52, 53, 54	s3eqd 14897	. . . . . . . 8 ⊢ ((𝑎 = ⟨“𝐴𝐵𝐶”⟩ ∧ 𝑏 = ⟨“𝐷𝐸𝐹”⟩) → ⟨“(𝑎‘0)(𝑎‘1)(𝑎‘2)”⟩ = ⟨“(⟨“𝐴𝐵𝐶”⟩‘0)(⟨“𝐴𝐵𝐶”⟩‘1)(⟨“𝐴𝐵𝐶”⟩‘2)”⟩)
56		eqidd 2770	. . . . . . . . 9 ⊢ ((𝑎 = ⟨“𝐴𝐵𝐶”⟩ ∧ 𝑏 = ⟨“𝐷𝐸𝐹”⟩) → 𝑥 = 𝑥)
57	46, 47, 56	s3eqd 14897	. . . . . . . 8 ⊢ ((𝑎 = ⟨“𝐴𝐵𝐶”⟩ ∧ 𝑏 = ⟨“𝐷𝐸𝐹”⟩) → ⟨“(𝑏‘0)(𝑏‘1)𝑥”⟩ = ⟨“(⟨“𝐷𝐸𝐹”⟩‘0)(⟨“𝐷𝐸𝐹”⟩‘1)𝑥”⟩)
58	55, 57	breq12d 5123	. . . . . . 7 ⊢ ((𝑎 = ⟨“𝐴𝐵𝐶”⟩ ∧ 𝑏 = ⟨“𝐷𝐸𝐹”⟩) → (⟨“(𝑎‘0)(𝑎‘1)(𝑎‘2)”⟩(cgrA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)𝑥”⟩ ↔ ⟨“(⟨“𝐴𝐵𝐶”⟩‘0)(⟨“𝐴𝐵𝐶”⟩‘1)(⟨“𝐴𝐵𝐶”⟩‘2)”⟩(cgrA‘𝐺)⟨“(⟨“𝐷𝐸𝐹”⟩‘0)(⟨“𝐷𝐸𝐹”⟩‘1)𝑥”⟩))
59	50, 58	anbi12d 643	. . . . . 6 ⊢ ((𝑎 = ⟨“𝐴𝐵𝐶”⟩ ∧ 𝑏 = ⟨“𝐷𝐸𝐹”⟩) → ((𝑥(inA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)(𝑏‘2)”⟩ ∧ ⟨“(𝑎‘0)(𝑎‘1)(𝑎‘2)”⟩(cgrA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)𝑥”⟩) ↔ (𝑥(inA‘𝐺)⟨“(⟨“𝐷𝐸𝐹”⟩‘0)(⟨“𝐷𝐸𝐹”⟩‘1)(⟨“𝐷𝐸𝐹”⟩‘2)”⟩ ∧ ⟨“(⟨“𝐴𝐵𝐶”⟩‘0)(⟨“𝐴𝐵𝐶”⟩‘1)(⟨“𝐴𝐵𝐶”⟩‘2)”⟩(cgrA‘𝐺)⟨“(⟨“𝐷𝐸𝐹”⟩‘0)(⟨“𝐷𝐸𝐹”⟩‘1)𝑥”⟩)))
60	59	rexbidv 3195	. . . . 5 ⊢ ((𝑎 = ⟨“𝐴𝐵𝐶”⟩ ∧ 𝑏 = ⟨“𝐷𝐸𝐹”⟩) → (∃𝑥 ∈ 𝑃 (𝑥(inA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)(𝑏‘2)”⟩ ∧ ⟨“(𝑎‘0)(𝑎‘1)(𝑎‘2)”⟩(cgrA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)𝑥”⟩) ↔ ∃𝑥 ∈ 𝑃 (𝑥(inA‘𝐺)⟨“(⟨“𝐷𝐸𝐹”⟩‘0)(⟨“𝐷𝐸𝐹”⟩‘1)(⟨“𝐷𝐸𝐹”⟩‘2)”⟩ ∧ ⟨“(⟨“𝐴𝐵𝐶”⟩‘0)(⟨“𝐴𝐵𝐶”⟩‘1)(⟨“𝐴𝐵𝐶”⟩‘2)”⟩(cgrA‘𝐺)⟨“(⟨“𝐷𝐸𝐹”⟩‘0)(⟨“𝐷𝐸𝐹”⟩‘1)𝑥”⟩)))
61		eqid 2769	. . . . 5 ⊢ {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝑃 ↑_m (0..^3)) ∧ 𝑏 ∈ (𝑃 ↑_m (0..^3))) ∧ ∃𝑥 ∈ 𝑃 (𝑥(inA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)(𝑏‘2)”⟩ ∧ ⟨“(𝑎‘0)(𝑎‘1)(𝑎‘2)”⟩(cgrA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)𝑥”⟩))} = {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝑃 ↑_m (0..^3)) ∧ 𝑏 ∈ (𝑃 ↑_m (0..^3))) ∧ ∃𝑥 ∈ 𝑃 (𝑥(inA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)(𝑏‘2)”⟩ ∧ ⟨“(𝑎‘0)(𝑎‘1)(𝑎‘2)”⟩(cgrA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)𝑥”⟩))}
62	60, 61	brab2a 5752	. . . 4 ⊢ (⟨“𝐴𝐵𝐶”⟩{⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝑃 ↑_m (0..^3)) ∧ 𝑏 ∈ (𝑃 ↑_m (0..^3))) ∧ ∃𝑥 ∈ 𝑃 (𝑥(inA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)(𝑏‘2)”⟩ ∧ ⟨“(𝑎‘0)(𝑎‘1)(𝑎‘2)”⟩(cgrA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)𝑥”⟩))}⟨“𝐷𝐸𝐹”⟩ ↔ ((⟨“𝐴𝐵𝐶”⟩ ∈ (𝑃 ↑_m (0..^3)) ∧ ⟨“𝐷𝐸𝐹”⟩ ∈ (𝑃 ↑_m (0..^3))) ∧ ∃𝑥 ∈ 𝑃 (𝑥(inA‘𝐺)⟨“(⟨“𝐷𝐸𝐹”⟩‘0)(⟨“𝐷𝐸𝐹”⟩‘1)(⟨“𝐷𝐸𝐹”⟩‘2)”⟩ ∧ ⟨“(⟨“𝐴𝐵𝐶”⟩‘0)(⟨“𝐴𝐵𝐶”⟩‘1)(⟨“𝐴𝐵𝐶”⟩‘2)”⟩(cgrA‘𝐺)⟨“(⟨“𝐷𝐸𝐹”⟩‘0)(⟨“𝐷𝐸𝐹”⟩‘1)𝑥”⟩)))
63	62	a1i 11	. . 3 ⊢ (𝜑 → (⟨“𝐴𝐵𝐶”⟩{⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝑃 ↑_m (0..^3)) ∧ 𝑏 ∈ (𝑃 ↑_m (0..^3))) ∧ ∃𝑥 ∈ 𝑃 (𝑥(inA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)(𝑏‘2)”⟩ ∧ ⟨“(𝑎‘0)(𝑎‘1)(𝑎‘2)”⟩(cgrA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)𝑥”⟩))}⟨“𝐷𝐸𝐹”⟩ ↔ ((⟨“𝐴𝐵𝐶”⟩ ∈ (𝑃 ↑_m (0..^3)) ∧ ⟨“𝐷𝐸𝐹”⟩ ∈ (𝑃 ↑_m (0..^3))) ∧ ∃𝑥 ∈ 𝑃 (𝑥(inA‘𝐺)⟨“(⟨“𝐷𝐸𝐹”⟩‘0)(⟨“𝐷𝐸𝐹”⟩‘1)(⟨“𝐷𝐸𝐹”⟩‘2)”⟩ ∧ ⟨“(⟨“𝐴𝐵𝐶”⟩‘0)(⟨“𝐴𝐵𝐶”⟩‘1)(⟨“𝐴𝐵𝐶”⟩‘2)”⟩(cgrA‘𝐺)⟨“(⟨“𝐷𝐸𝐹”⟩‘0)(⟨“𝐷𝐸𝐹”⟩‘1)𝑥”⟩))))
64		s3fv0 14924	. . . . . . . . 9 ⊢ (𝐷 ∈ 𝑃 → (⟨“𝐷𝐸𝐹”⟩‘0) = 𝐷)
65	12, 64	syl 18	. . . . . . . 8 ⊢ (𝜑 → (⟨“𝐷𝐸𝐹”⟩‘0) = 𝐷)
66		s3fv1 14925	. . . . . . . . 9 ⊢ (𝐸 ∈ 𝑃 → (⟨“𝐷𝐸𝐹”⟩‘1) = 𝐸)
67	13, 66	syl 18	. . . . . . . 8 ⊢ (𝜑 → (⟨“𝐷𝐸𝐹”⟩‘1) = 𝐸)
68		s3fv2 14926	. . . . . . . . 9 ⊢ (𝐹 ∈ 𝑃 → (⟨“𝐷𝐸𝐹”⟩‘2) = 𝐹)
69	14, 68	syl 18	. . . . . . . 8 ⊢ (𝜑 → (⟨“𝐷𝐸𝐹”⟩‘2) = 𝐹)
70	65, 67, 69	s3eqd 14897	. . . . . . 7 ⊢ (𝜑 → ⟨“(⟨“𝐷𝐸𝐹”⟩‘0)(⟨“𝐷𝐸𝐹”⟩‘1)(⟨“𝐷𝐸𝐹”⟩‘2)”⟩ = ⟨“𝐷𝐸𝐹”⟩)
71	70	breq2d 5122	. . . . . 6 ⊢ (𝜑 → (𝑥(inA‘𝐺)⟨“(⟨“𝐷𝐸𝐹”⟩‘0)(⟨“𝐷𝐸𝐹”⟩‘1)(⟨“𝐷𝐸𝐹”⟩‘2)”⟩ ↔ 𝑥(inA‘𝐺)⟨“𝐷𝐸𝐹”⟩))
72		s3fv0 14924	. . . . . . . . 9 ⊢ (𝐴 ∈ 𝑃 → (⟨“𝐴𝐵𝐶”⟩‘0) = 𝐴)
73	1, 72	syl 18	. . . . . . . 8 ⊢ (𝜑 → (⟨“𝐴𝐵𝐶”⟩‘0) = 𝐴)
74		s3fv1 14925	. . . . . . . . 9 ⊢ (𝐵 ∈ 𝑃 → (⟨“𝐴𝐵𝐶”⟩‘1) = 𝐵)
75	2, 74	syl 18	. . . . . . . 8 ⊢ (𝜑 → (⟨“𝐴𝐵𝐶”⟩‘1) = 𝐵)
76		s3fv2 14926	. . . . . . . . 9 ⊢ (𝐶 ∈ 𝑃 → (⟨“𝐴𝐵𝐶”⟩‘2) = 𝐶)
77	3, 76	syl 18	. . . . . . . 8 ⊢ (𝜑 → (⟨“𝐴𝐵𝐶”⟩‘2) = 𝐶)
78	73, 75, 77	s3eqd 14897	. . . . . . 7 ⊢ (𝜑 → ⟨“(⟨“𝐴𝐵𝐶”⟩‘0)(⟨“𝐴𝐵𝐶”⟩‘1)(⟨“𝐴𝐵𝐶”⟩‘2)”⟩ = ⟨“𝐴𝐵𝐶”⟩)
79		eqidd 2770	. . . . . . . 8 ⊢ (𝜑 → 𝑥 = 𝑥)
80	65, 67, 79	s3eqd 14897	. . . . . . 7 ⊢ (𝜑 → ⟨“(⟨“𝐷𝐸𝐹”⟩‘0)(⟨“𝐷𝐸𝐹”⟩‘1)𝑥”⟩ = ⟨“𝐷𝐸𝑥”⟩)
81	78, 80	breq12d 5123	. . . . . 6 ⊢ (𝜑 → (⟨“(⟨“𝐴𝐵𝐶”⟩‘0)(⟨“𝐴𝐵𝐶”⟩‘1)(⟨“𝐴𝐵𝐶”⟩‘2)”⟩(cgrA‘𝐺)⟨“(⟨“𝐷𝐸𝐹”⟩‘0)(⟨“𝐷𝐸𝐹”⟩‘1)𝑥”⟩ ↔ ⟨“𝐴𝐵𝐶”⟩(cgrA‘𝐺)⟨“𝐷𝐸𝑥”⟩))
82	71, 81	anbi12d 643	. . . . 5 ⊢ (𝜑 → ((𝑥(inA‘𝐺)⟨“(⟨“𝐷𝐸𝐹”⟩‘0)(⟨“𝐷𝐸𝐹”⟩‘1)(⟨“𝐷𝐸𝐹”⟩‘2)”⟩ ∧ ⟨“(⟨“𝐴𝐵𝐶”⟩‘0)(⟨“𝐴𝐵𝐶”⟩‘1)(⟨“𝐴𝐵𝐶”⟩‘2)”⟩(cgrA‘𝐺)⟨“(⟨“𝐷𝐸𝐹”⟩‘0)(⟨“𝐷𝐸𝐹”⟩‘1)𝑥”⟩) ↔ (𝑥(inA‘𝐺)⟨“𝐷𝐸𝐹”⟩ ∧ ⟨“𝐴𝐵𝐶”⟩(cgrA‘𝐺)⟨“𝐷𝐸𝑥”⟩)))
83	82	rexbidv 3195	. . . 4 ⊢ (𝜑 → (∃𝑥 ∈ 𝑃 (𝑥(inA‘𝐺)⟨“(⟨“𝐷𝐸𝐹”⟩‘0)(⟨“𝐷𝐸𝐹”⟩‘1)(⟨“𝐷𝐸𝐹”⟩‘2)”⟩ ∧ ⟨“(⟨“𝐴𝐵𝐶”⟩‘0)(⟨“𝐴𝐵𝐶”⟩‘1)(⟨“𝐴𝐵𝐶”⟩‘2)”⟩(cgrA‘𝐺)⟨“(⟨“𝐷𝐸𝐹”⟩‘0)(⟨“𝐷𝐸𝐹”⟩‘1)𝑥”⟩) ↔ ∃𝑥 ∈ 𝑃 (𝑥(inA‘𝐺)⟨“𝐷𝐸𝐹”⟩ ∧ ⟨“𝐴𝐵𝐶”⟩(cgrA‘𝐺)⟨“𝐷𝐸𝑥”⟩)))
84	83	anbi2d 641	. . 3 ⊢ (𝜑 → (((⟨“𝐴𝐵𝐶”⟩ ∈ (𝑃 ↑_m (0..^3)) ∧ ⟨“𝐷𝐸𝐹”⟩ ∈ (𝑃 ↑_m (0..^3))) ∧ ∃𝑥 ∈ 𝑃 (𝑥(inA‘𝐺)⟨“(⟨“𝐷𝐸𝐹”⟩‘0)(⟨“𝐷𝐸𝐹”⟩‘1)(⟨“𝐷𝐸𝐹”⟩‘2)”⟩ ∧ ⟨“(⟨“𝐴𝐵𝐶”⟩‘0)(⟨“𝐴𝐵𝐶”⟩‘1)(⟨“𝐴𝐵𝐶”⟩‘2)”⟩(cgrA‘𝐺)⟨“(⟨“𝐷𝐸𝐹”⟩‘0)(⟨“𝐷𝐸𝐹”⟩‘1)𝑥”⟩)) ↔ ((⟨“𝐴𝐵𝐶”⟩ ∈ (𝑃 ↑_m (0..^3)) ∧ ⟨“𝐷𝐸𝐹”⟩ ∈ (𝑃 ↑_m (0..^3))) ∧ ∃𝑥 ∈ 𝑃 (𝑥(inA‘𝐺)⟨“𝐷𝐸𝐹”⟩ ∧ ⟨“𝐴𝐵𝐶”⟩(cgrA‘𝐺)⟨“𝐷𝐸𝑥”⟩))))
85	44, 63, 84	3bitrd 308	. 2 ⊢ (𝜑 → (⟨“𝐴𝐵𝐶”⟩(≤_∠‘𝐺)⟨“𝐷𝐸𝐹”⟩ ↔ ((⟨“𝐴𝐵𝐶”⟩ ∈ (𝑃 ↑_m (0..^3)) ∧ ⟨“𝐷𝐸𝐹”⟩ ∈ (𝑃 ↑_m (0..^3))) ∧ ∃𝑥 ∈ 𝑃 (𝑥(inA‘𝐺)⟨“𝐷𝐸𝐹”⟩ ∧ ⟨“𝐴𝐵𝐶”⟩(cgrA‘𝐺)⟨“𝐷𝐸𝑥”⟩))))
86	20, 85	mpbirand 719	1 ⊢ (𝜑 → (⟨“𝐴𝐵𝐶”⟩(≤_∠‘𝐺)⟨“𝐷𝐸𝐹”⟩ ↔ ∃𝑥 ∈ 𝑃 (𝑥(inA‘𝐺)⟨“𝐷𝐸𝐹”⟩ ∧ ⟨“𝐴𝐵𝐶”⟩(cgrA‘𝐺)⟨“𝐷𝐸𝑥”⟩)))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 209 ∧ wa 400 = wceq 1567 ∈ wcel 2149 ∃wrex 3095 Vcvv 3463 class class class wbr 5110 {copab 5174 × cxp 5657 ‘cfv 6534 (class class class)co 7408 ↑_m cmap 8820 0cc0 11096 1c1 11097 2c2 12291 3c3 12292 ℕ₀cn0 12500 ..^cfzo 13678 ♯chash 14362 Word cword 14546 ⟨“cs3 14875 Basecbs 17265 TarskiGcstrkg 28658 cgrAccgra 29071 inAcinag 29103 ≤_∠cleag 29104

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1822 ax-4 1836 ax-5 1937 ax-6 1994 ax-7 2035 ax-8 2151 ax-9 2159 ax-10 2182 ax-11 2198 ax-12 2219 ax-ext 2741 ax-rep 5239 ax-sep 5258 ax-nul 5268 ax-pow 5334 ax-pr 5402 ax-un 7730 ax-cnex 11152 ax-resscn 11153 ax-1cn 11154 ax-icn 11155 ax-addcl 11156 ax-addrcl 11157 ax-mulcl 11158 ax-mulrcl 11159 ax-mulcom 11160 ax-addass 11161 ax-mulass 11162 ax-distr 11163 ax-i2m1 11164 ax-1ne0 11165 ax-1rid 11166 ax-rnegex 11167 ax-rrecex 11168 ax-cnre 11169 ax-pre-lttri 11170 ax-pre-lttrn 11171 ax-pre-ltadd 11172 ax-pre-mulgt0 11173

This theorem depends on definitions: df-bi 210 df-an 401 df-or 861 df-3or 1102 df-3an 1103 df-tru 1570 df-fal 1580 df-ex 1807 df-nf 1811 df-sb 2098 df-mo 2573 df-eu 2603 df-clab 2748 df-cleq 2761 df-clel 2844 df-nfc 2918 df-ne 2965 df-nel 3071 df-ral 3086 df-rex 3096 df-reu 3377 df-rab 3424 df-v 3465 df-sbc 3754 df-csb 3862 df-dif 3916 df-un 3918 df-in 3920 df-ss 3930 df-pss 3933 df-nul 4295 df-if 4490 df-pw 4566 df-sn 4592 df-pr 4594 df-op 4598 df-uni 4874 df-int 4914 df-iun 4959 df-br 5111 df-opab 5175 df-mpt 5194 df-tr 5220 df-id 5554 df-eprel 5559 df-po 5567 df-so 5568 df-fr 5612 df-we 5614 df-xp 5665 df-rel 5666 df-cnv 5667 df-co 5668 df-dm 5669 df-rn 5670 df-res 5671 df-ima 5672 df-pred 6300 df-ord 6361 df-on 6362 df-lim 6363 df-suc 6364 df-iota 6490 df-fun 6536 df-fn 6537 df-f 6538 df-f1 6539 df-fo 6540 df-f1o 6541 df-fv 6542 df-riota 7365 df-ov 7411 df-oprab 7412 df-mpo 7413 df-om 7859 df-1st 7982 df-2nd 7983 df-frecs 8274 df-wrecs 8305 df-recs 8354 df-rdg 8393 df-1o 8449 df-er 8690 df-map 8822 df-en 8940 df-dom 8941 df-sdom 8942 df-fin 8943 df-card 9921 df-pnf 11241 df-mnf 11242 df-xr 11243 df-ltxr 11244 df-le 11245 df-sub 11439 df-neg 11440 df-nn 12230 df-2 12299 df-3 12300 df-n0 12501 df-z 12588 df-uz 12859 df-fz 13532 df-fzo 13679 df-hash 14363 df-word 14547 df-concat 14604 df-s1 14630 df-s2 14881 df-s3 14882 df-leag 29114

This theorem is referenced by: isleagd 29116 leagne1 29117 leagne2 29118 leagne3 29119 leagne4 29120

W3C validator