Proof of Theorem isngp3
Step | Hyp | Ref
| Expression |
1 | | isngp.n |
. . 3
⊢ 𝑁 = (norm‘𝐺) |
2 | | isngp.z |
. . 3
⊢ − =
(-g‘𝐺) |
3 | | isngp.d |
. . 3
⊢ 𝐷 = (dist‘𝐺) |
4 | | isngp2.x |
. . 3
⊢ 𝑋 = (Base‘𝐺) |
5 | | eqid 2738 |
. . 3
⊢ (𝐷 ↾ (𝑋 × 𝑋)) = (𝐷 ↾ (𝑋 × 𝑋)) |
6 | 1, 2, 3, 4, 5 | isngp2 23659 |
. 2
⊢ (𝐺 ∈ NrmGrp ↔ (𝐺 ∈ Grp ∧ 𝐺 ∈ MetSp ∧ (𝑁 ∘ − ) = (𝐷 ↾ (𝑋 × 𝑋)))) |
7 | 4, 3 | msmet2 23521 |
. . . . . . . . 9
⊢ (𝐺 ∈ MetSp → (𝐷 ↾ (𝑋 × 𝑋)) ∈ (Met‘𝑋)) |
8 | 1, 4, 3, 5 | nmf2 23655 |
. . . . . . . . 9
⊢ ((𝐺 ∈ Grp ∧ (𝐷 ↾ (𝑋 × 𝑋)) ∈ (Met‘𝑋)) → 𝑁:𝑋⟶ℝ) |
9 | 7, 8 | sylan2 592 |
. . . . . . . 8
⊢ ((𝐺 ∈ Grp ∧ 𝐺 ∈ MetSp) → 𝑁:𝑋⟶ℝ) |
10 | 4, 2 | grpsubf 18569 |
. . . . . . . . 9
⊢ (𝐺 ∈ Grp → − :(𝑋 × 𝑋)⟶𝑋) |
11 | 10 | adantr 480 |
. . . . . . . 8
⊢ ((𝐺 ∈ Grp ∧ 𝐺 ∈ MetSp) → − :(𝑋 × 𝑋)⟶𝑋) |
12 | | fco 6608 |
. . . . . . . 8
⊢ ((𝑁:𝑋⟶ℝ ∧ − :(𝑋 × 𝑋)⟶𝑋) → (𝑁 ∘ − ):(𝑋 × 𝑋)⟶ℝ) |
13 | 9, 11, 12 | syl2anc 583 |
. . . . . . 7
⊢ ((𝐺 ∈ Grp ∧ 𝐺 ∈ MetSp) → (𝑁 ∘ − ):(𝑋 × 𝑋)⟶ℝ) |
14 | 13 | ffnd 6585 |
. . . . . 6
⊢ ((𝐺 ∈ Grp ∧ 𝐺 ∈ MetSp) → (𝑁 ∘ − ) Fn (𝑋 × 𝑋)) |
15 | 7 | adantl 481 |
. . . . . . 7
⊢ ((𝐺 ∈ Grp ∧ 𝐺 ∈ MetSp) → (𝐷 ↾ (𝑋 × 𝑋)) ∈ (Met‘𝑋)) |
16 | | metf 23391 |
. . . . . . 7
⊢ ((𝐷 ↾ (𝑋 × 𝑋)) ∈ (Met‘𝑋) → (𝐷 ↾ (𝑋 × 𝑋)):(𝑋 × 𝑋)⟶ℝ) |
17 | | ffn 6584 |
. . . . . . 7
⊢ ((𝐷 ↾ (𝑋 × 𝑋)):(𝑋 × 𝑋)⟶ℝ → (𝐷 ↾ (𝑋 × 𝑋)) Fn (𝑋 × 𝑋)) |
18 | 15, 16, 17 | 3syl 18 |
. . . . . 6
⊢ ((𝐺 ∈ Grp ∧ 𝐺 ∈ MetSp) → (𝐷 ↾ (𝑋 × 𝑋)) Fn (𝑋 × 𝑋)) |
19 | | eqfnov2 7382 |
. . . . . 6
⊢ (((𝑁 ∘ − ) Fn (𝑋 × 𝑋) ∧ (𝐷 ↾ (𝑋 × 𝑋)) Fn (𝑋 × 𝑋)) → ((𝑁 ∘ − ) = (𝐷 ↾ (𝑋 × 𝑋)) ↔ ∀𝑥 ∈ 𝑋 ∀𝑦 ∈ 𝑋 (𝑥(𝑁 ∘ − )𝑦) = (𝑥(𝐷 ↾ (𝑋 × 𝑋))𝑦))) |
20 | 14, 18, 19 | syl2anc 583 |
. . . . 5
⊢ ((𝐺 ∈ Grp ∧ 𝐺 ∈ MetSp) → ((𝑁 ∘ − ) = (𝐷 ↾ (𝑋 × 𝑋)) ↔ ∀𝑥 ∈ 𝑋 ∀𝑦 ∈ 𝑋 (𝑥(𝑁 ∘ − )𝑦) = (𝑥(𝐷 ↾ (𝑋 × 𝑋))𝑦))) |
21 | | opelxpi 5617 |
. . . . . . . . . 10
⊢ ((𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋) → 〈𝑥, 𝑦〉 ∈ (𝑋 × 𝑋)) |
22 | | fvco3 6849 |
. . . . . . . . . 10
⊢ (( − :(𝑋 × 𝑋)⟶𝑋 ∧ 〈𝑥, 𝑦〉 ∈ (𝑋 × 𝑋)) → ((𝑁 ∘ − )‘〈𝑥, 𝑦〉) = (𝑁‘( − ‘〈𝑥, 𝑦〉))) |
23 | 11, 21, 22 | syl2an 595 |
. . . . . . . . 9
⊢ (((𝐺 ∈ Grp ∧ 𝐺 ∈ MetSp) ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → ((𝑁 ∘ − )‘〈𝑥, 𝑦〉) = (𝑁‘( − ‘〈𝑥, 𝑦〉))) |
24 | | df-ov 7258 |
. . . . . . . . 9
⊢ (𝑥(𝑁 ∘ − )𝑦) = ((𝑁 ∘ − )‘〈𝑥, 𝑦〉) |
25 | | df-ov 7258 |
. . . . . . . . . 10
⊢ (𝑥 − 𝑦) = ( − ‘〈𝑥, 𝑦〉) |
26 | 25 | fveq2i 6759 |
. . . . . . . . 9
⊢ (𝑁‘(𝑥 − 𝑦)) = (𝑁‘( − ‘〈𝑥, 𝑦〉)) |
27 | 23, 24, 26 | 3eqtr4g 2804 |
. . . . . . . 8
⊢ (((𝐺 ∈ Grp ∧ 𝐺 ∈ MetSp) ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → (𝑥(𝑁 ∘ − )𝑦) = (𝑁‘(𝑥 − 𝑦))) |
28 | | ovres 7416 |
. . . . . . . . 9
⊢ ((𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋) → (𝑥(𝐷 ↾ (𝑋 × 𝑋))𝑦) = (𝑥𝐷𝑦)) |
29 | 28 | adantl 481 |
. . . . . . . 8
⊢ (((𝐺 ∈ Grp ∧ 𝐺 ∈ MetSp) ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → (𝑥(𝐷 ↾ (𝑋 × 𝑋))𝑦) = (𝑥𝐷𝑦)) |
30 | 27, 29 | eqeq12d 2754 |
. . . . . . 7
⊢ (((𝐺 ∈ Grp ∧ 𝐺 ∈ MetSp) ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → ((𝑥(𝑁 ∘ − )𝑦) = (𝑥(𝐷 ↾ (𝑋 × 𝑋))𝑦) ↔ (𝑁‘(𝑥 − 𝑦)) = (𝑥𝐷𝑦))) |
31 | | eqcom 2745 |
. . . . . . 7
⊢ ((𝑁‘(𝑥 − 𝑦)) = (𝑥𝐷𝑦) ↔ (𝑥𝐷𝑦) = (𝑁‘(𝑥 − 𝑦))) |
32 | 30, 31 | bitrdi 286 |
. . . . . 6
⊢ (((𝐺 ∈ Grp ∧ 𝐺 ∈ MetSp) ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → ((𝑥(𝑁 ∘ − )𝑦) = (𝑥(𝐷 ↾ (𝑋 × 𝑋))𝑦) ↔ (𝑥𝐷𝑦) = (𝑁‘(𝑥 − 𝑦)))) |
33 | 32 | 2ralbidva 3121 |
. . . . 5
⊢ ((𝐺 ∈ Grp ∧ 𝐺 ∈ MetSp) →
(∀𝑥 ∈ 𝑋 ∀𝑦 ∈ 𝑋 (𝑥(𝑁 ∘ − )𝑦) = (𝑥(𝐷 ↾ (𝑋 × 𝑋))𝑦) ↔ ∀𝑥 ∈ 𝑋 ∀𝑦 ∈ 𝑋 (𝑥𝐷𝑦) = (𝑁‘(𝑥 − 𝑦)))) |
34 | 20, 33 | bitrd 278 |
. . . 4
⊢ ((𝐺 ∈ Grp ∧ 𝐺 ∈ MetSp) → ((𝑁 ∘ − ) = (𝐷 ↾ (𝑋 × 𝑋)) ↔ ∀𝑥 ∈ 𝑋 ∀𝑦 ∈ 𝑋 (𝑥𝐷𝑦) = (𝑁‘(𝑥 − 𝑦)))) |
35 | 34 | pm5.32i 574 |
. . 3
⊢ (((𝐺 ∈ Grp ∧ 𝐺 ∈ MetSp) ∧ (𝑁 ∘ − ) = (𝐷 ↾ (𝑋 × 𝑋))) ↔ ((𝐺 ∈ Grp ∧ 𝐺 ∈ MetSp) ∧ ∀𝑥 ∈ 𝑋 ∀𝑦 ∈ 𝑋 (𝑥𝐷𝑦) = (𝑁‘(𝑥 − 𝑦)))) |
36 | | df-3an 1087 |
. . 3
⊢ ((𝐺 ∈ Grp ∧ 𝐺 ∈ MetSp ∧ (𝑁 ∘ − ) = (𝐷 ↾ (𝑋 × 𝑋))) ↔ ((𝐺 ∈ Grp ∧ 𝐺 ∈ MetSp) ∧ (𝑁 ∘ − ) = (𝐷 ↾ (𝑋 × 𝑋)))) |
37 | | df-3an 1087 |
. . 3
⊢ ((𝐺 ∈ Grp ∧ 𝐺 ∈ MetSp ∧
∀𝑥 ∈ 𝑋 ∀𝑦 ∈ 𝑋 (𝑥𝐷𝑦) = (𝑁‘(𝑥 − 𝑦))) ↔ ((𝐺 ∈ Grp ∧ 𝐺 ∈ MetSp) ∧ ∀𝑥 ∈ 𝑋 ∀𝑦 ∈ 𝑋 (𝑥𝐷𝑦) = (𝑁‘(𝑥 − 𝑦)))) |
38 | 35, 36, 37 | 3bitr4i 302 |
. 2
⊢ ((𝐺 ∈ Grp ∧ 𝐺 ∈ MetSp ∧ (𝑁 ∘ − ) = (𝐷 ↾ (𝑋 × 𝑋))) ↔ (𝐺 ∈ Grp ∧ 𝐺 ∈ MetSp ∧ ∀𝑥 ∈ 𝑋 ∀𝑦 ∈ 𝑋 (𝑥𝐷𝑦) = (𝑁‘(𝑥 − 𝑦)))) |
39 | 6, 38 | bitri 274 |
1
⊢ (𝐺 ∈ NrmGrp ↔ (𝐺 ∈ Grp ∧ 𝐺 ∈ MetSp ∧
∀𝑥 ∈ 𝑋 ∀𝑦 ∈ 𝑋 (𝑥𝐷𝑦) = (𝑁‘(𝑥 − 𝑦)))) |