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 29004

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 14879	. . . 4 ⊢ (𝜑 → ⟨“𝐴𝐵𝐶”⟩ ∈ Word 𝑃)
5		s3len 14901	. . . 4 ⊢ (♯‘⟨“𝐴𝐵𝐶”⟩) = 3
6		isleag.p	. . . . . 6 ⊢ 𝑃 = (Base‘𝐺)
7	6	fvexi 6876	. . . . 5 ⊢ 𝑃 ∈ V
8		3nn0 12493	. . . . 5 ⊢ 3 ∈ ℕ₀
9		wrdmap 14553	. . . . 5 ⊢ ((𝑃 ∈ V ∧ 3 ∈ ℕ₀) → ((⟨“𝐴𝐵𝐶”⟩ ∈ Word 𝑃 ∧ (♯‘⟨“𝐴𝐵𝐶”⟩) = 3) ↔ ⟨“𝐴𝐵𝐶”⟩ ∈ (𝑃 ↑_m (0..^3))))
10	7, 8, 9	mp2an 702	. . . 4 ⊢ ((⟨“𝐴𝐵𝐶”⟩ ∈ Word 𝑃 ∧ (♯‘⟨“𝐴𝐵𝐶”⟩) = 3) ↔ ⟨“𝐴𝐵𝐶”⟩ ∈ (𝑃 ↑_m (0..^3)))
11	4, 5, 10	sylanblc 598	. . 3 ⊢ (𝜑 → ⟨“𝐴𝐵𝐶”⟩ ∈ (𝑃 ↑_m (0..^3)))
12		isleag.d	. . . . 5 ⊢ (𝜑 → 𝐷 ∈ 𝑃)
13		isleag.e	. . . . 5 ⊢ (𝜑 → 𝐸 ∈ 𝑃)
14		isleag.f	. . . . 5 ⊢ (𝜑 → 𝐹 ∈ 𝑃)
15	12, 13, 14	s3cld 14879	. . . 4 ⊢ (𝜑 → ⟨“𝐷𝐸𝐹”⟩ ∈ Word 𝑃)
16		s3len 14901	. . . 4 ⊢ (♯‘⟨“𝐷𝐸𝐹”⟩) = 3
17		wrdmap 14553	. . . . 5 ⊢ ((𝑃 ∈ V ∧ 3 ∈ ℕ₀) → ((⟨“𝐷𝐸𝐹”⟩ ∈ Word 𝑃 ∧ (♯‘⟨“𝐷𝐸𝐹”⟩) = 3) ↔ ⟨“𝐷𝐸𝐹”⟩ ∈ (𝑃 ↑_m (0..^3))))
18	7, 8, 17	mp2an 702	. . . 4 ⊢ ((⟨“𝐷𝐸𝐹”⟩ ∈ Word 𝑃 ∧ (♯‘⟨“𝐷𝐸𝐹”⟩) = 3) ↔ ⟨“𝐷𝐸𝐹”⟩ ∈ (𝑃 ↑_m (0..^3)))
19	15, 16, 18	sylanblc 598	. . 3 ⊢ (𝜑 → ⟨“𝐷𝐸𝐹”⟩ ∈ (𝑃 ↑_m (0..^3)))
20	11, 19	jca 519	. 2 ⊢ (𝜑 → (⟨“𝐴𝐵𝐶”⟩ ∈ (𝑃 ↑_m (0..^3)) ∧ ⟨“𝐷𝐸𝐹”⟩ ∈ (𝑃 ↑_m (0..^3))))
21		isleag.g	. . . . 5 ⊢ (𝜑 → 𝐺 ∈ TarskiG)
22		elex 3474	. . . . 5 ⊢ (𝐺 ∈ TarskiG → 𝐺 ∈ V)
23		fveq2 6862	. . . . . . . . . . . 12 ⊢ (𝑔 = 𝐺 → (Base‘𝑔) = (Base‘𝐺))
24	23, 6	eqtr4di 2814	. . . . . . . . . . 11 ⊢ (𝑔 = 𝐺 → (Base‘𝑔) = 𝑃)
25	24	oveq1d 7406	. . . . . . . . . 10 ⊢ (𝑔 = 𝐺 → ((Base‘𝑔) ↑_m (0..^3)) = (𝑃 ↑_m (0..^3)))
26	25	eleq2d 2847	. . . . . . . . 9 ⊢ (𝑔 = 𝐺 → (𝑎 ∈ ((Base‘𝑔) ↑_m (0..^3)) ↔ 𝑎 ∈ (𝑃 ↑_m (0..^3))))
27	25	eleq2d 2847	. . . . . . . . 9 ⊢ (𝑔 = 𝐺 → (𝑏 ∈ ((Base‘𝑔) ↑_m (0..^3)) ↔ 𝑏 ∈ (𝑃 ↑_m (0..^3))))
28	26, 27	anbi12d 641	. . . . . . . 8 ⊢ (𝑔 = 𝐺 → ((𝑎 ∈ ((Base‘𝑔) ↑_m (0..^3)) ∧ 𝑏 ∈ ((Base‘𝑔) ↑_m (0..^3))) ↔ (𝑎 ∈ (𝑃 ↑_m (0..^3)) ∧ 𝑏 ∈ (𝑃 ↑_m (0..^3)))))
29		fveq2 6862	. . . . . . . . . . 11 ⊢ (𝑔 = 𝐺 → (inA‘𝑔) = (inA‘𝐺))
30	29	breqd 5108	. . . . . . . . . 10 ⊢ (𝑔 = 𝐺 → (𝑥(inA‘𝑔)⟨“(𝑏‘0)(𝑏‘1)(𝑏‘2)”⟩ ↔ 𝑥(inA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)(𝑏‘2)”⟩))
31		fveq2 6862	. . . . . . . . . . 11 ⊢ (𝑔 = 𝐺 → (cgrA‘𝑔) = (cgrA‘𝐺))
32	31	breqd 5108	. . . . . . . . . 10 ⊢ (𝑔 = 𝐺 → (⟨“(𝑎‘0)(𝑎‘1)(𝑎‘2)”⟩(cgrA‘𝑔)⟨“(𝑏‘0)(𝑏‘1)𝑥”⟩ ↔ ⟨“(𝑎‘0)(𝑎‘1)(𝑎‘2)”⟩(cgrA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)𝑥”⟩))
33	30, 32	anbi12d 641	. . . . . . . . 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 3336	. . . . . . . 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 641	. . . . . . 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 5163	. . . . . 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 29003	. . . . . 6 ⊢ ≤_∠ = (𝑔 ∈ V ↦ {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ ((Base‘𝑔) ↑_m (0..^3)) ∧ 𝑏 ∈ ((Base‘𝑔) ↑_m (0..^3))) ∧ ∃𝑥 ∈ (Base‘𝑔)(𝑥(inA‘𝑔)⟨“(𝑏‘0)(𝑏‘1)(𝑏‘2)”⟩ ∧ ⟨“(𝑎‘0)(𝑎‘1)(𝑎‘2)”⟩(cgrA‘𝑔)⟨“(𝑏‘0)(𝑏‘1)𝑥”⟩))})
38		ovex 7424	. . . . . . . 8 ⊢ (𝑃 ↑_m (0..^3)) ∈ V
39	38, 38	xpex 7731	. . . . . . 7 ⊢ ((𝑃 ↑_m (0..^3)) × (𝑃 ↑_m (0..^3))) ∈ V
40		opabssxp 5735	. . . . . . 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 5275	. . . . . 6 ⊢ {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝑃 ↑_m (0..^3)) ∧ 𝑏 ∈ (𝑃 ↑_m (0..^3))) ∧ ∃𝑥 ∈ 𝑃 (𝑥(inA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)(𝑏‘2)”⟩ ∧ ⟨“(𝑎‘0)(𝑎‘1)(𝑎‘2)”⟩(cgrA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)𝑥”⟩))} ∈ V
42	36, 37, 41	fvmpt 6970	. . . . 5 ⊢ (𝐺 ∈ V → (≤_∠‘𝐺) = {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝑃 ↑_m (0..^3)) ∧ 𝑏 ∈ (𝑃 ↑_m (0..^3))) ∧ ∃𝑥 ∈ 𝑃 (𝑥(inA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)(𝑏‘2)”⟩ ∧ ⟨“(𝑎‘0)(𝑎‘1)(𝑎‘2)”⟩(cgrA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)𝑥”⟩))})
43	21, 22, 42	3syl 18	. . . 4 ⊢ (𝜑 → (≤_∠‘𝐺) = {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝑃 ↑_m (0..^3)) ∧ 𝑏 ∈ (𝑃 ↑_m (0..^3))) ∧ ∃𝑥 ∈ 𝑃 (𝑥(inA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)(𝑏‘2)”⟩ ∧ ⟨“(𝑎‘0)(𝑎‘1)(𝑎‘2)”⟩(cgrA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)𝑥”⟩))})
44	43	breqd 5108	. . 3 ⊢ (𝜑 → (⟨“𝐴𝐵𝐶”⟩(≤_∠‘𝐺)⟨“𝐷𝐸𝐹”⟩ ↔ ⟨“𝐴𝐵𝐶”⟩{⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝑃 ↑_m (0..^3)) ∧ 𝑏 ∈ (𝑃 ↑_m (0..^3))) ∧ ∃𝑥 ∈ 𝑃 (𝑥(inA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)(𝑏‘2)”⟩ ∧ ⟨“(𝑎‘0)(𝑎‘1)(𝑎‘2)”⟩(cgrA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)𝑥”⟩))}⟨“𝐷𝐸𝐹”⟩))
45		simpr 488	. . . . . . . . . 10 ⊢ ((𝑎 = ⟨“𝐴𝐵𝐶”⟩ ∧ 𝑏 = ⟨“𝐷𝐸𝐹”⟩) → 𝑏 = ⟨“𝐷𝐸𝐹”⟩)
46	45	fveq1d 6864	. . . . . . . . 9 ⊢ ((𝑎 = ⟨“𝐴𝐵𝐶”⟩ ∧ 𝑏 = ⟨“𝐷𝐸𝐹”⟩) → (𝑏‘0) = (⟨“𝐷𝐸𝐹”⟩‘0))
47	45	fveq1d 6864	. . . . . . . . 9 ⊢ ((𝑎 = ⟨“𝐴𝐵𝐶”⟩ ∧ 𝑏 = ⟨“𝐷𝐸𝐹”⟩) → (𝑏‘1) = (⟨“𝐷𝐸𝐹”⟩‘1))
48	45	fveq1d 6864	. . . . . . . . 9 ⊢ ((𝑎 = ⟨“𝐴𝐵𝐶”⟩ ∧ 𝑏 = ⟨“𝐷𝐸𝐹”⟩) → (𝑏‘2) = (⟨“𝐷𝐸𝐹”⟩‘2))
49	46, 47, 48	s3eqd 14871	. . . . . . . 8 ⊢ ((𝑎 = ⟨“𝐴𝐵𝐶”⟩ ∧ 𝑏 = ⟨“𝐷𝐸𝐹”⟩) → ⟨“(𝑏‘0)(𝑏‘1)(𝑏‘2)”⟩ = ⟨“(⟨“𝐷𝐸𝐹”⟩‘0)(⟨“𝐷𝐸𝐹”⟩‘1)(⟨“𝐷𝐸𝐹”⟩‘2)”⟩)
50	49	breq2d 5109	. . . . . . 7 ⊢ ((𝑎 = ⟨“𝐴𝐵𝐶”⟩ ∧ 𝑏 = ⟨“𝐷𝐸𝐹”⟩) → (𝑥(inA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)(𝑏‘2)”⟩ ↔ 𝑥(inA‘𝐺)⟨“(⟨“𝐷𝐸𝐹”⟩‘0)(⟨“𝐷𝐸𝐹”⟩‘1)(⟨“𝐷𝐸𝐹”⟩‘2)”⟩))
51		simpl 486	. . . . . . . . . 10 ⊢ ((𝑎 = ⟨“𝐴𝐵𝐶”⟩ ∧ 𝑏 = ⟨“𝐷𝐸𝐹”⟩) → 𝑎 = ⟨“𝐴𝐵𝐶”⟩)
52	51	fveq1d 6864	. . . . . . . . 9 ⊢ ((𝑎 = ⟨“𝐴𝐵𝐶”⟩ ∧ 𝑏 = ⟨“𝐷𝐸𝐹”⟩) → (𝑎‘0) = (⟨“𝐴𝐵𝐶”⟩‘0))
53	51	fveq1d 6864	. . . . . . . . 9 ⊢ ((𝑎 = ⟨“𝐴𝐵𝐶”⟩ ∧ 𝑏 = ⟨“𝐷𝐸𝐹”⟩) → (𝑎‘1) = (⟨“𝐴𝐵𝐶”⟩‘1))
54	51	fveq1d 6864	. . . . . . . . 9 ⊢ ((𝑎 = ⟨“𝐴𝐵𝐶”⟩ ∧ 𝑏 = ⟨“𝐷𝐸𝐹”⟩) → (𝑎‘2) = (⟨“𝐴𝐵𝐶”⟩‘2))
55	52, 53, 54	s3eqd 14871	. . . . . . . 8 ⊢ ((𝑎 = ⟨“𝐴𝐵𝐶”⟩ ∧ 𝑏 = ⟨“𝐷𝐸𝐹”⟩) → ⟨“(𝑎‘0)(𝑎‘1)(𝑎‘2)”⟩ = ⟨“(⟨“𝐴𝐵𝐶”⟩‘0)(⟨“𝐴𝐵𝐶”⟩‘1)(⟨“𝐴𝐵𝐶”⟩‘2)”⟩)
56		eqidd 2762	. . . . . . . . 9 ⊢ ((𝑎 = ⟨“𝐴𝐵𝐶”⟩ ∧ 𝑏 = ⟨“𝐷𝐸𝐹”⟩) → 𝑥 = 𝑥)
57	46, 47, 56	s3eqd 14871	. . . . . . . 8 ⊢ ((𝑎 = ⟨“𝐴𝐵𝐶”⟩ ∧ 𝑏 = ⟨“𝐷𝐸𝐹”⟩) → ⟨“(𝑏‘0)(𝑏‘1)𝑥”⟩ = ⟨“(⟨“𝐷𝐸𝐹”⟩‘0)(⟨“𝐷𝐸𝐹”⟩‘1)𝑥”⟩)
58	55, 57	breq12d 5110	. . . . . . 7 ⊢ ((𝑎 = ⟨“𝐴𝐵𝐶”⟩ ∧ 𝑏 = ⟨“𝐷𝐸𝐹”⟩) → (⟨“(𝑎‘0)(𝑎‘1)(𝑎‘2)”⟩(cgrA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)𝑥”⟩ ↔ ⟨“(⟨“𝐴𝐵𝐶”⟩‘0)(⟨“𝐴𝐵𝐶”⟩‘1)(⟨“𝐴𝐵𝐶”⟩‘2)”⟩(cgrA‘𝐺)⟨“(⟨“𝐷𝐸𝐹”⟩‘0)(⟨“𝐷𝐸𝐹”⟩‘1)𝑥”⟩))
59	50, 58	anbi12d 641	. . . . . 6 ⊢ ((𝑎 = ⟨“𝐴𝐵𝐶”⟩ ∧ 𝑏 = ⟨“𝐷𝐸𝐹”⟩) → ((𝑥(inA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)(𝑏‘2)”⟩ ∧ ⟨“(𝑎‘0)(𝑎‘1)(𝑎‘2)”⟩(cgrA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)𝑥”⟩) ↔ (𝑥(inA‘𝐺)⟨“(⟨“𝐷𝐸𝐹”⟩‘0)(⟨“𝐷𝐸𝐹”⟩‘1)(⟨“𝐷𝐸𝐹”⟩‘2)”⟩ ∧ ⟨“(⟨“𝐴𝐵𝐶”⟩‘0)(⟨“𝐴𝐵𝐶”⟩‘1)(⟨“𝐴𝐵𝐶”⟩‘2)”⟩(cgrA‘𝐺)⟨“(⟨“𝐷𝐸𝐹”⟩‘0)(⟨“𝐷𝐸𝐹”⟩‘1)𝑥”⟩)))
60	59	rexbidv 3185	. . . . 5 ⊢ ((𝑎 = ⟨“𝐴𝐵𝐶”⟩ ∧ 𝑏 = ⟨“𝐷𝐸𝐹”⟩) → (∃𝑥 ∈ 𝑃 (𝑥(inA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)(𝑏‘2)”⟩ ∧ ⟨“(𝑎‘0)(𝑎‘1)(𝑎‘2)”⟩(cgrA‘𝐺)⟨“(𝑏‘0)(𝑏‘1)𝑥”⟩) ↔ ∃𝑥 ∈ 𝑃 (𝑥(inA‘𝐺)⟨“(⟨“𝐷𝐸𝐹”⟩‘0)(⟨“𝐷𝐸𝐹”⟩‘1)(⟨“𝐷𝐸𝐹”⟩‘2)”⟩ ∧ ⟨“(⟨“𝐴𝐵𝐶”⟩‘0)(⟨“𝐴𝐵𝐶”⟩‘1)(⟨“𝐴𝐵𝐶”⟩‘2)”⟩(cgrA‘𝐺)⟨“(⟨“𝐷𝐸𝐹”⟩‘0)(⟨“𝐷𝐸𝐹”⟩‘1)𝑥”⟩)))
61		eqid 2761	. . . . 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 5736	. . . 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 14898	. . . . . . . . 9 ⊢ (𝐷 ∈ 𝑃 → (⟨“𝐷𝐸𝐹”⟩‘0) = 𝐷)
65	12, 64	syl 17	. . . . . . . 8 ⊢ (𝜑 → (⟨“𝐷𝐸𝐹”⟩‘0) = 𝐷)
66		s3fv1 14899	. . . . . . . . 9 ⊢ (𝐸 ∈ 𝑃 → (⟨“𝐷𝐸𝐹”⟩‘1) = 𝐸)
67	13, 66	syl 17	. . . . . . . 8 ⊢ (𝜑 → (⟨“𝐷𝐸𝐹”⟩‘1) = 𝐸)
68		s3fv2 14900	. . . . . . . . 9 ⊢ (𝐹 ∈ 𝑃 → (⟨“𝐷𝐸𝐹”⟩‘2) = 𝐹)
69	14, 68	syl 17	. . . . . . . 8 ⊢ (𝜑 → (⟨“𝐷𝐸𝐹”⟩‘2) = 𝐹)
70	65, 67, 69	s3eqd 14871	. . . . . . 7 ⊢ (𝜑 → ⟨“(⟨“𝐷𝐸𝐹”⟩‘0)(⟨“𝐷𝐸𝐹”⟩‘1)(⟨“𝐷𝐸𝐹”⟩‘2)”⟩ = ⟨“𝐷𝐸𝐹”⟩)
71	70	breq2d 5109	. . . . . 6 ⊢ (𝜑 → (𝑥(inA‘𝐺)⟨“(⟨“𝐷𝐸𝐹”⟩‘0)(⟨“𝐷𝐸𝐹”⟩‘1)(⟨“𝐷𝐸𝐹”⟩‘2)”⟩ ↔ 𝑥(inA‘𝐺)⟨“𝐷𝐸𝐹”⟩))
72		s3fv0 14898	. . . . . . . . 9 ⊢ (𝐴 ∈ 𝑃 → (⟨“𝐴𝐵𝐶”⟩‘0) = 𝐴)
73	1, 72	syl 17	. . . . . . . 8 ⊢ (𝜑 → (⟨“𝐴𝐵𝐶”⟩‘0) = 𝐴)
74		s3fv1 14899	. . . . . . . . 9 ⊢ (𝐵 ∈ 𝑃 → (⟨“𝐴𝐵𝐶”⟩‘1) = 𝐵)
75	2, 74	syl 17	. . . . . . . 8 ⊢ (𝜑 → (⟨“𝐴𝐵𝐶”⟩‘1) = 𝐵)
76		s3fv2 14900	. . . . . . . . 9 ⊢ (𝐶 ∈ 𝑃 → (⟨“𝐴𝐵𝐶”⟩‘2) = 𝐶)
77	3, 76	syl 17	. . . . . . . 8 ⊢ (𝜑 → (⟨“𝐴𝐵𝐶”⟩‘2) = 𝐶)
78	73, 75, 77	s3eqd 14871	. . . . . . 7 ⊢ (𝜑 → ⟨“(⟨“𝐴𝐵𝐶”⟩‘0)(⟨“𝐴𝐵𝐶”⟩‘1)(⟨“𝐴𝐵𝐶”⟩‘2)”⟩ = ⟨“𝐴𝐵𝐶”⟩)
79		eqidd 2762	. . . . . . . 8 ⊢ (𝜑 → 𝑥 = 𝑥)
80	65, 67, 79	s3eqd 14871	. . . . . . 7 ⊢ (𝜑 → ⟨“(⟨“𝐷𝐸𝐹”⟩‘0)(⟨“𝐷𝐸𝐹”⟩‘1)𝑥”⟩ = ⟨“𝐷𝐸𝑥”⟩)
81	78, 80	breq12d 5110	. . . . . 6 ⊢ (𝜑 → (⟨“(⟨“𝐴𝐵𝐶”⟩‘0)(⟨“𝐴𝐵𝐶”⟩‘1)(⟨“𝐴𝐵𝐶”⟩‘2)”⟩(cgrA‘𝐺)⟨“(⟨“𝐷𝐸𝐹”⟩‘0)(⟨“𝐷𝐸𝐹”⟩‘1)𝑥”⟩ ↔ ⟨“𝐴𝐵𝐶”⟩(cgrA‘𝐺)⟨“𝐷𝐸𝑥”⟩))
82	71, 81	anbi12d 641	. . . . 5 ⊢ (𝜑 → ((𝑥(inA‘𝐺)⟨“(⟨“𝐷𝐸𝐹”⟩‘0)(⟨“𝐷𝐸𝐹”⟩‘1)(⟨“𝐷𝐸𝐹”⟩‘2)”⟩ ∧ ⟨“(⟨“𝐴𝐵𝐶”⟩‘0)(⟨“𝐴𝐵𝐶”⟩‘1)(⟨“𝐴𝐵𝐶”⟩‘2)”⟩(cgrA‘𝐺)⟨“(⟨“𝐷𝐸𝐹”⟩‘0)(⟨“𝐷𝐸𝐹”⟩‘1)𝑥”⟩) ↔ (𝑥(inA‘𝐺)⟨“𝐷𝐸𝐹”⟩ ∧ ⟨“𝐴𝐵𝐶”⟩(cgrA‘𝐺)⟨“𝐷𝐸𝑥”⟩)))
83	82	rexbidv 3185	. . . 4 ⊢ (𝜑 → (∃𝑥 ∈ 𝑃 (𝑥(inA‘𝐺)⟨“(⟨“𝐷𝐸𝐹”⟩‘0)(⟨“𝐷𝐸𝐹”⟩‘1)(⟨“𝐷𝐸𝐹”⟩‘2)”⟩ ∧ ⟨“(⟨“𝐴𝐵𝐶”⟩‘0)(⟨“𝐴𝐵𝐶”⟩‘1)(⟨“𝐴𝐵𝐶”⟩‘2)”⟩(cgrA‘𝐺)⟨“(⟨“𝐷𝐸𝐹”⟩‘0)(⟨“𝐷𝐸𝐹”⟩‘1)𝑥”⟩) ↔ ∃𝑥 ∈ 𝑃 (𝑥(inA‘𝐺)⟨“𝐷𝐸𝐹”⟩ ∧ ⟨“𝐴𝐵𝐶”⟩(cgrA‘𝐺)⟨“𝐷𝐸𝑥”⟩)))
84	83	anbi2d 639	. . 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 307	. 2 ⊢ (𝜑 → (⟨“𝐴𝐵𝐶”⟩(≤_∠‘𝐺)⟨“𝐷𝐸𝐹”⟩ ↔ ((⟨“𝐴𝐵𝐶”⟩ ∈ (𝑃 ↑_m (0..^3)) ∧ ⟨“𝐷𝐸𝐹”⟩ ∈ (𝑃 ↑_m (0..^3))) ∧ ∃𝑥 ∈ 𝑃 (𝑥(inA‘𝐺)⟨“𝐷𝐸𝐹”⟩ ∧ ⟨“𝐴𝐵𝐶”⟩(cgrA‘𝐺)⟨“𝐷𝐸𝑥”⟩))))
86	20, 85	mpbirand 717	1 ⊢ (𝜑 → (⟨“𝐴𝐵𝐶”⟩(≤_∠‘𝐺)⟨“𝐷𝐸𝐹”⟩ ↔ ∃𝑥 ∈ 𝑃 (𝑥(inA‘𝐺)⟨“𝐷𝐸𝐹”⟩ ∧ ⟨“𝐴𝐵𝐶”⟩(cgrA‘𝐺)⟨“𝐷𝐸𝑥”⟩)))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 208 ∧ wa 399 = wceq 1559 ∈ wcel 2141 ∃wrex 3085 Vcvv 3453 class class class wbr 5097 {copab 5159 × cxp 5641 ‘cfv 6516 (class class class)co 7391 ↑_m cmap 8802 0cc0 11067 1c1 11068 2c2 12266 3c3 12267 ℕ₀cn0 12475 ..^cfzo 13653 ♯chash 14337 Word cword 14520 ⟨“cs3 14849 Basecbs 17236 TarskiGcstrkg 28584 cgrAccgra 28964 inAcinag 28992 ≤_∠cleag 28993

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1814 ax-4 1828 ax-5 1929 ax-6 1986 ax-7 2027 ax-8 2143 ax-9 2151 ax-10 2174 ax-11 2190 ax-12 2211 ax-ext 2733 ax-rep 5224 ax-sep 5243 ax-nul 5253 ax-pow 5319 ax-pr 5387 ax-un 7713 ax-cnex 11123 ax-resscn 11124 ax-1cn 11125 ax-icn 11126 ax-addcl 11127 ax-addrcl 11128 ax-mulcl 11129 ax-mulrcl 11130 ax-mulcom 11131 ax-addass 11132 ax-mulass 11133 ax-distr 11134 ax-i2m1 11135 ax-1ne0 11136 ax-1rid 11137 ax-rnegex 11138 ax-rrecex 11139 ax-cnre 11140 ax-pre-lttri 11141 ax-pre-lttrn 11142 ax-pre-ltadd 11143 ax-pre-mulgt0 11144

This theorem depends on definitions: df-bi 209 df-an 400 df-or 859 df-3or 1098 df-3an 1099 df-tru 1562 df-fal 1572 df-ex 1799 df-nf 1803 df-sb 2090 df-mo 2565 df-eu 2595 df-clab 2740 df-cleq 2753 df-clel 2836 df-nfc 2910 df-ne 2957 df-nel 3061 df-ral 3076 df-rex 3086 df-reu 3367 df-rab 3414 df-v 3455 df-sbc 3743 df-csb 3851 df-dif 3905 df-un 3907 df-in 3909 df-ss 3919 df-pss 3922 df-nul 4284 df-if 4478 df-pw 4554 df-sn 4580 df-pr 4582 df-op 4586 df-uni 4863 df-int 4903 df-iun 4948 df-br 5098 df-opab 5160 df-mpt 5179 df-tr 5205 df-id 5538 df-eprel 5543 df-po 5551 df-so 5552 df-fr 5596 df-we 5598 df-xp 5649 df-rel 5650 df-cnv 5651 df-co 5652 df-dm 5653 df-rn 5654 df-res 5655 df-ima 5656 df-pred 6283 df-ord 6344 df-on 6345 df-lim 6346 df-suc 6347 df-iota 6472 df-fun 6518 df-fn 6519 df-f 6520 df-f1 6521 df-fo 6522 df-f1o 6523 df-fv 6524 df-riota 7348 df-ov 7394 df-oprab 7395 df-mpo 7396 df-om 7842 df-1st 7965 df-2nd 7966 df-frecs 8256 df-wrecs 8287 df-recs 8336 df-rdg 8375 df-1o 8431 df-er 8672 df-map 8804 df-en 8922 df-dom 8923 df-sdom 8924 df-fin 8925 df-card 9891 df-pnf 11212 df-mnf 11213 df-xr 11214 df-ltxr 11215 df-le 11216 df-sub 11410 df-neg 11411 df-nn 12205 df-2 12274 df-3 12275 df-n0 12476 df-z 12563 df-uz 12834 df-fz 13507 df-fzo 13654 df-hash 14338 df-word 14521 df-concat 14578 df-s1 14604 df-s2 14855 df-s3 14856 df-leag 29003

This theorem is referenced by: isleagd 29005 leagne1 29006 leagne2 29007 leagne3 29008 leagne4 29009

W3C validator