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