Metamath Proof Explorer


Theorem abvtrivd

Description: The trivial absolute value. (Contributed by Mario Carneiro, 6-May-2015)

Ref Expression
Hypotheses abvtriv.a ⊢ A = AbsVal ⁡ R
abvtriv.b ⊢ B = Base R
abvtriv.z ⊢ 0 ˙ = 0 R
abvtriv.f ⊢ F = x ∈ B ⟼ if x = 0 ˙ 0 1
abvtrivd.1 ⊢ · ˙ = ⋅ R
abvtrivd.2 ⊢ φ → R ∈ Ring
abvtrivd.3 ⊢ φ ∧ y ∈ B ∧ y ≠ 0 ˙ ∧ z ∈ B ∧ z ≠ 0 ˙ → y · ˙ z ≠ 0 ˙
Assertion abvtrivd ⊢ φ → F ∈ A

Proof

Step Hyp Ref Expression
1 abvtriv.a ⊢ A = AbsVal ⁡ R
2 abvtriv.b ⊢ B = Base R
3 abvtriv.z ⊢ 0 ˙ = 0 R
4 abvtriv.f ⊢ F = x ∈ B ⟼ if x = 0 ˙ 0 1
5 abvtrivd.1 ⊢ · ˙ = ⋅ R
6 abvtrivd.2 ⊢ φ → R ∈ Ring
7 abvtrivd.3 ⊢ φ ∧ y ∈ B ∧ y ≠ 0 ˙ ∧ z ∈ B ∧ z ≠ 0 ˙ → y · ˙ z ≠ 0 ˙
8 1 a1i ⊢ φ → A = AbsVal ⁡ R
9 2 a1i ⊢ φ → B = Base R
10 eqidd ⊢ φ → + R = + R
11 5 a1i ⊢ φ → · ˙ = ⋅ R
12 3 a1i ⊢ φ → 0 ˙ = 0 R
13 0re ⊢ 0 ∈ ℝ
14 1re ⊢ 1 ∈ ℝ
15 13 14 ifcli ⊢ if x = 0 ˙ 0 1 ∈ ℝ
16 15 a1i ⊢ φ ∧ x ∈ B → if x = 0 ˙ 0 1 ∈ ℝ
17 16 4 fmptd ⊢ φ → F : B ⟶ ℝ
18 2 3 ring0cl ⊢ R ∈ Ring → 0 ˙ ∈ B
19 iftrue ⊢ x = 0 ˙ → if x = 0 ˙ 0 1 = 0
20 c0ex ⊢ 0 ∈ V
21 19 4 20 fvmpt ⊢ 0 ˙ ∈ B → F ⁡ 0 ˙ = 0
22 6 18 21 3syl ⊢ φ → F ⁡ 0 ˙ = 0
23 0lt1 ⊢ 0 < 1
24 eqeq1 ⊢ x = y → x = 0 ˙ ↔ y = 0 ˙
25 24 ifbid ⊢ x = y → if x = 0 ˙ 0 1 = if y = 0 ˙ 0 1
26 1ex ⊢ 1 ∈ V
27 20 26 ifex ⊢ if y = 0 ˙ 0 1 ∈ V
28 25 4 27 fvmpt ⊢ y ∈ B → F ⁡ y = if y = 0 ˙ 0 1
29 ifnefalse ⊢ y ≠ 0 ˙ → if y = 0 ˙ 0 1 = 1
30 28 29 sylan9eq ⊢ y ∈ B ∧ y ≠ 0 ˙ → F ⁡ y = 1
31 30 3adant1 ⊢ φ ∧ y ∈ B ∧ y ≠ 0 ˙ → F ⁡ y = 1
32 23 31 breqtrrid ⊢ φ ∧ y ∈ B ∧ y ≠ 0 ˙ → 0 < F ⁡ y
33 1t1e1 ⊢ 1 ⋅ 1 = 1
34 33 eqcomi ⊢ 1 = 1 ⋅ 1
35 6 3ad2ant1 ⊢ φ ∧ y ∈ B ∧ y ≠ 0 ˙ ∧ z ∈ B ∧ z ≠ 0 ˙ → R ∈ Ring
36 simp2l ⊢ φ ∧ y ∈ B ∧ y ≠ 0 ˙ ∧ z ∈ B ∧ z ≠ 0 ˙ → y ∈ B
37 simp3l ⊢ φ ∧ y ∈ B ∧ y ≠ 0 ˙ ∧ z ∈ B ∧ z ≠ 0 ˙ → z ∈ B
38 2 5 ringcl ⊢ R ∈ Ring ∧ y ∈ B ∧ z ∈ B → y · ˙ z ∈ B
39 35 36 37 38 syl3anc ⊢ φ ∧ y ∈ B ∧ y ≠ 0 ˙ ∧ z ∈ B ∧ z ≠ 0 ˙ → y · ˙ z ∈ B
40 eqeq1 ⊢ x = y · ˙ z → x = 0 ˙ ↔ y · ˙ z = 0 ˙
41 40 ifbid ⊢ x = y · ˙ z → if x = 0 ˙ 0 1 = if y · ˙ z = 0 ˙ 0 1
42 20 26 ifex ⊢ if y · ˙ z = 0 ˙ 0 1 ∈ V
43 41 4 42 fvmpt ⊢ y · ˙ z ∈ B → F ⁡ y · ˙ z = if y · ˙ z = 0 ˙ 0 1
44 39 43 syl ⊢ φ ∧ y ∈ B ∧ y ≠ 0 ˙ ∧ z ∈ B ∧ z ≠ 0 ˙ → F ⁡ y · ˙ z = if y · ˙ z = 0 ˙ 0 1
45 7 neneqd ⊢ φ ∧ y ∈ B ∧ y ≠ 0 ˙ ∧ z ∈ B ∧ z ≠ 0 ˙ → ¬ y · ˙ z = 0 ˙
46 45 iffalsed ⊢ φ ∧ y ∈ B ∧ y ≠ 0 ˙ ∧ z ∈ B ∧ z ≠ 0 ˙ → if y · ˙ z = 0 ˙ 0 1 = 1
47 44 46 eqtrd ⊢ φ ∧ y ∈ B ∧ y ≠ 0 ˙ ∧ z ∈ B ∧ z ≠ 0 ˙ → F ⁡ y · ˙ z = 1
48 36 28 syl ⊢ φ ∧ y ∈ B ∧ y ≠ 0 ˙ ∧ z ∈ B ∧ z ≠ 0 ˙ → F ⁡ y = if y = 0 ˙ 0 1
49 simp2r ⊢ φ ∧ y ∈ B ∧ y ≠ 0 ˙ ∧ z ∈ B ∧ z ≠ 0 ˙ → y ≠ 0 ˙
50 49 neneqd ⊢ φ ∧ y ∈ B ∧ y ≠ 0 ˙ ∧ z ∈ B ∧ z ≠ 0 ˙ → ¬ y = 0 ˙
51 50 iffalsed ⊢ φ ∧ y ∈ B ∧ y ≠ 0 ˙ ∧ z ∈ B ∧ z ≠ 0 ˙ → if y = 0 ˙ 0 1 = 1
52 48 51 eqtrd ⊢ φ ∧ y ∈ B ∧ y ≠ 0 ˙ ∧ z ∈ B ∧ z ≠ 0 ˙ → F ⁡ y = 1
53 eqeq1 ⊢ x = z → x = 0 ˙ ↔ z = 0 ˙
54 53 ifbid ⊢ x = z → if x = 0 ˙ 0 1 = if z = 0 ˙ 0 1
55 20 26 ifex ⊢ if z = 0 ˙ 0 1 ∈ V
56 54 4 55 fvmpt ⊢ z ∈ B → F ⁡ z = if z = 0 ˙ 0 1
57 37 56 syl ⊢ φ ∧ y ∈ B ∧ y ≠ 0 ˙ ∧ z ∈ B ∧ z ≠ 0 ˙ → F ⁡ z = if z = 0 ˙ 0 1
58 simp3r ⊢ φ ∧ y ∈ B ∧ y ≠ 0 ˙ ∧ z ∈ B ∧ z ≠ 0 ˙ → z ≠ 0 ˙
59 58 neneqd ⊢ φ ∧ y ∈ B ∧ y ≠ 0 ˙ ∧ z ∈ B ∧ z ≠ 0 ˙ → ¬ z = 0 ˙
60 59 iffalsed ⊢ φ ∧ y ∈ B ∧ y ≠ 0 ˙ ∧ z ∈ B ∧ z ≠ 0 ˙ → if z = 0 ˙ 0 1 = 1
61 57 60 eqtrd ⊢ φ ∧ y ∈ B ∧ y ≠ 0 ˙ ∧ z ∈ B ∧ z ≠ 0 ˙ → F ⁡ z = 1
62 52 61 oveq12d ⊢ φ ∧ y ∈ B ∧ y ≠ 0 ˙ ∧ z ∈ B ∧ z ≠ 0 ˙ → F ⁡ y ⁢ F ⁡ z = 1 ⋅ 1
63 34 47 62 3eqtr4a ⊢ φ ∧ y ∈ B ∧ y ≠ 0 ˙ ∧ z ∈ B ∧ z ≠ 0 ˙ → F ⁡ y · ˙ z = F ⁡ y ⁢ F ⁡ z
64 breq1 ⊢ 0 = if y + R z = 0 ˙ 0 1 → 0 ≤ 2 ↔ if y + R z = 0 ˙ 0 1 ≤ 2
65 breq1 ⊢ 1 = if y + R z = 0 ˙ 0 1 → 1 ≤ 2 ↔ if y + R z = 0 ˙ 0 1 ≤ 2
66 0le2 ⊢ 0 ≤ 2
67 1le2 ⊢ 1 ≤ 2
68 64 65 66 67 keephyp ⊢ if y + R z = 0 ˙ 0 1 ≤ 2
69 df-2 ⊢ 2 = 1 + 1
70 68 69 breqtri ⊢ if y + R z = 0 ˙ 0 1 ≤ 1 + 1
71 70 a1i ⊢ φ ∧ y ∈ B ∧ y ≠ 0 ˙ ∧ z ∈ B ∧ z ≠ 0 ˙ → if y + R z = 0 ˙ 0 1 ≤ 1 + 1
72 ringgrp ⊢ R ∈ Ring → R ∈ Grp
73 6 72 syl ⊢ φ → R ∈ Grp
74 73 3ad2ant1 ⊢ φ ∧ y ∈ B ∧ y ≠ 0 ˙ ∧ z ∈ B ∧ z ≠ 0 ˙ → R ∈ Grp
75 eqid ⊢ + R = + R
76 2 75 grpcl ⊢ R ∈ Grp ∧ y ∈ B ∧ z ∈ B → y + R z ∈ B
77 74 36 37 76 syl3anc ⊢ φ ∧ y ∈ B ∧ y ≠ 0 ˙ ∧ z ∈ B ∧ z ≠ 0 ˙ → y + R z ∈ B
78 eqeq1 ⊢ x = y + R z → x = 0 ˙ ↔ y + R z = 0 ˙
79 78 ifbid ⊢ x = y + R z → if x = 0 ˙ 0 1 = if y + R z = 0 ˙ 0 1
80 20 26 ifex ⊢ if y + R z = 0 ˙ 0 1 ∈ V
81 79 4 80 fvmpt ⊢ y + R z ∈ B → F ⁡ y + R z = if y + R z = 0 ˙ 0 1
82 77 81 syl ⊢ φ ∧ y ∈ B ∧ y ≠ 0 ˙ ∧ z ∈ B ∧ z ≠ 0 ˙ → F ⁡ y + R z = if y + R z = 0 ˙ 0 1
83 52 61 oveq12d ⊢ φ ∧ y ∈ B ∧ y ≠ 0 ˙ ∧ z ∈ B ∧ z ≠ 0 ˙ → F ⁡ y + F ⁡ z = 1 + 1
84 71 82 83 3brtr4d ⊢ φ ∧ y ∈ B ∧ y ≠ 0 ˙ ∧ z ∈ B ∧ z ≠ 0 ˙ → F ⁡ y + R z ≤ F ⁡ y + F ⁡ z
85 8 9 10 11 12 6 17 22 32 63 84 isabvd ⊢ φ → F ∈ A