Metamath Proof Explorer


Theorem qqhval2lem

Description: Lemma for qqhval2 . (Contributed by Thierry Arnoux, 29-Oct-2017)

Ref Expression
Hypotheses qqhval2.0 B=BaseR
qqhval2.1 ×˙=/rR
qqhval2.2 L=ℤRHomR
Assertion qqhval2lem RDivRingchrR=0XYY0LnumerXY×˙LdenomXY=LX×˙LY

Proof

Step Hyp Ref Expression
1 qqhval2.0 B=BaseR
2 qqhval2.1 ×˙=/rR
3 qqhval2.2 L=ℤRHomR
4 drngring RDivRingRRing
5 3 zrhrhm RRingLringRingHomR
6 4 5 syl RDivRingLringRingHomR
7 6 ad2antrr RDivRingchrR=0XYY0LringRingHomR
8 simpr1 RDivRingchrR=0XYY0X
9 simpr2 RDivRingchrR=0XYY0Y
10 8 9 gcdcld RDivRingchrR=0XYY0XgcdY0
11 10 nn0zd RDivRingchrR=0XYY0XgcdY
12 simpr3 RDivRingchrR=0XYY0Y0
13 gcdeq0 XYXgcdY=0X=0Y=0
14 13 simplbda XYXgcdY=0Y=0
15 14 ex XYXgcdY=0Y=0
16 15 necon3d XYY0XgcdY0
17 16 imp XYY0XgcdY0
18 8 9 12 17 syl21anc RDivRingchrR=0XYY0XgcdY0
19 gcddvds XYXgcdYXXgcdYY
20 8 9 19 syl2anc RDivRingchrR=0XYY0XgcdYXXgcdYY
21 20 simpld RDivRingchrR=0XYY0XgcdYX
22 dvdsval2 XgcdYXgcdY0XXgcdYXXXgcdY
23 22 biimpa XgcdYXgcdY0XXgcdYXXXgcdY
24 11 18 8 21 23 syl31anc RDivRingchrR=0XYY0XXgcdY
25 20 simprd RDivRingchrR=0XYY0XgcdYY
26 dvdsval2 XgcdYXgcdY0YXgcdYYYXgcdY
27 26 biimpa XgcdYXgcdY0YXgcdYYYXgcdY
28 11 18 9 25 27 syl31anc RDivRingchrR=0XYY0YXgcdY
29 zringbas =Basering
30 29 1 rhmf LringRingHomRL:B
31 7 30 syl RDivRingchrR=0XYY0L:B
32 31 28 ffvelrnd RDivRingchrR=0XYY0LYXgcdYB
33 31 ffnd RDivRingchrR=0XYY0LFn
34 9 zcnd RDivRingchrR=0XYY0Y
35 11 zcnd RDivRingchrR=0XYY0XgcdY
36 34 35 12 18 divne0d RDivRingchrR=0XYY0YXgcdY0
37 ovex YXgcdYV
38 37 elsn YXgcdY0YXgcdY=0
39 38 necon3bbii ¬YXgcdY0YXgcdY0
40 36 39 sylibr RDivRingchrR=0XYY0¬YXgcdY0
41 4 ad2antrr RDivRingchrR=0XYY0RRing
42 simplr RDivRingchrR=0XYY0chrR=0
43 eqid 0R=0R
44 1 3 43 zrhker RRingchrR=0L-10R=0
45 44 biimpa RRingchrR=0L-10R=0
46 41 42 45 syl2anc RDivRingchrR=0XYY0L-10R=0
47 40 46 neleqtrrd RDivRingchrR=0XYY0¬YXgcdYL-10R
48 elpreima LFnYXgcdYL-10RYXgcdYLYXgcdY0R
49 48 baibd LFnYXgcdYYXgcdYL-10RLYXgcdY0R
50 49 biimprd LFnYXgcdYLYXgcdY0RYXgcdYL-10R
51 50 con3dimp LFnYXgcdY¬YXgcdYL-10R¬LYXgcdY0R
52 fvex LYXgcdYV
53 52 elsn LYXgcdY0RLYXgcdY=0R
54 53 necon3bbii ¬LYXgcdY0RLYXgcdY0R
55 51 54 sylib LFnYXgcdY¬YXgcdYL-10RLYXgcdY0R
56 33 28 47 55 syl21anc RDivRingchrR=0XYY0LYXgcdY0R
57 eqid UnitR=UnitR
58 1 57 43 drngunit RDivRingLYXgcdYUnitRLYXgcdYBLYXgcdY0R
59 58 ad2antrr RDivRingchrR=0XYY0LYXgcdYUnitRLYXgcdYBLYXgcdY0R
60 32 56 59 mpbir2and RDivRingchrR=0XYY0LYXgcdYUnitR
61 31 11 ffvelrnd RDivRingchrR=0XYY0LXgcdYB
62 ovex XgcdYV
63 62 elsn XgcdY0XgcdY=0
64 63 necon3bbii ¬XgcdY0XgcdY0
65 18 64 sylibr RDivRingchrR=0XYY0¬XgcdY0
66 65 46 neleqtrrd RDivRingchrR=0XYY0¬XgcdYL-10R
67 elpreima LFnXgcdYL-10RXgcdYLXgcdY0R
68 67 baibd LFnXgcdYXgcdYL-10RLXgcdY0R
69 68 biimprd LFnXgcdYLXgcdY0RXgcdYL-10R
70 69 con3dimp LFnXgcdY¬XgcdYL-10R¬LXgcdY0R
71 fvex LXgcdYV
72 71 elsn LXgcdY0RLXgcdY=0R
73 72 necon3bbii ¬LXgcdY0RLXgcdY0R
74 70 73 sylib LFnXgcdY¬XgcdYL-10RLXgcdY0R
75 33 11 66 74 syl21anc RDivRingchrR=0XYY0LXgcdY0R
76 1 57 43 drngunit RDivRingLXgcdYUnitRLXgcdYBLXgcdY0R
77 76 ad2antrr RDivRingchrR=0XYY0LXgcdYUnitRLXgcdYBLXgcdY0R
78 61 75 77 mpbir2and RDivRingchrR=0XYY0LXgcdYUnitR
79 zringmulr ×=ring
80 57 29 2 79 rhmdvd LringRingHomRXXgcdYYXgcdYXgcdYLYXgcdYUnitRLXgcdYUnitRLXXgcdY×˙LYXgcdY=LXXgcdYXgcdY×˙LYXgcdYXgcdY
81 7 24 28 11 60 78 80 syl132anc RDivRingchrR=0XYY0LXXgcdY×˙LYXgcdY=LXXgcdYXgcdY×˙LYXgcdYXgcdY
82 divnumden XYnumerXY=XXgcdYdenomXY=YXgcdY
83 8 82 sylan RDivRingchrR=0XYY0YnumerXY=XXgcdYdenomXY=YXgcdY
84 83 simpld RDivRingchrR=0XYY0YnumerXY=XXgcdY
85 84 eqcomd RDivRingchrR=0XYY0YXXgcdY=numerXY
86 85 fveq2d RDivRingchrR=0XYY0YLXXgcdY=LnumerXY
87 83 simprd RDivRingchrR=0XYY0YdenomXY=YXgcdY
88 87 eqcomd RDivRingchrR=0XYY0YYXgcdY=denomXY
89 88 fveq2d RDivRingchrR=0XYY0YLYXgcdY=LdenomXY
90 86 89 oveq12d RDivRingchrR=0XYY0YLXXgcdY×˙LYXgcdY=LnumerXY×˙LdenomXY
91 24 adantr RDivRingchrR=0XYY0YXXgcdY
92 91 zcnd RDivRingchrR=0XYY0YXXgcdY
93 92 mulm1d RDivRingchrR=0XYY0Y-1XXgcdY=XXgcdY
94 neg1cn 1
95 94 a1i RDivRingchrR=0XYY0Y1
96 95 92 mulcomd RDivRingchrR=0XYY0Y-1XXgcdY=XXgcdY-1
97 93 96 eqtr3d RDivRingchrR=0XYY0YXXgcdY=XXgcdY-1
98 97 fveq2d RDivRingchrR=0XYY0YLXXgcdY=LXXgcdY-1
99 28 adantr RDivRingchrR=0XYY0YYXgcdY
100 99 zcnd RDivRingchrR=0XYY0YYXgcdY
101 100 mulm1d RDivRingchrR=0XYY0Y-1YXgcdY=YXgcdY
102 95 100 mulcomd RDivRingchrR=0XYY0Y-1YXgcdY=YXgcdY-1
103 101 102 eqtr3d RDivRingchrR=0XYY0YYXgcdY=YXgcdY-1
104 103 fveq2d RDivRingchrR=0XYY0YLYXgcdY=LYXgcdY-1
105 98 104 oveq12d RDivRingchrR=0XYY0YLXXgcdY×˙LYXgcdY=LXXgcdY-1×˙LYXgcdY-1
106 8 adantr RDivRingchrR=0XYY0YX
107 9 adantr RDivRingchrR=0XYY0YY
108 simpr RDivRingchrR=0XYY0YY
109 divnumden2 XYYnumerXY=XXgcdYdenomXY=YXgcdY
110 106 107 108 109 syl3anc RDivRingchrR=0XYY0YnumerXY=XXgcdYdenomXY=YXgcdY
111 110 simpld RDivRingchrR=0XYY0YnumerXY=XXgcdY
112 111 fveq2d RDivRingchrR=0XYY0YLnumerXY=LXXgcdY
113 110 simprd RDivRingchrR=0XYY0YdenomXY=YXgcdY
114 113 fveq2d RDivRingchrR=0XYY0YLdenomXY=LYXgcdY
115 112 114 oveq12d RDivRingchrR=0XYY0YLnumerXY×˙LdenomXY=LXXgcdY×˙LYXgcdY
116 7 adantr RDivRingchrR=0XYY0YLringRingHomR
117 1zzd RDivRingchrR=0XYY0Y1
118 117 znegcld RDivRingchrR=0XYY0Y1
119 60 adantr RDivRingchrR=0XYY0YLYXgcdYUnitR
120 neg1z 1
121 ax-1cn 1
122 121 absnegi 1=1
123 abs1 1=1
124 122 123 eqtri 1=1
125 zringunit 1Unitring11=1
126 120 124 125 mpbir2an 1Unitring
127 126 a1i RDivRingchrR=0XYY0Y1Unitring
128 elrhmunit LringRingHomR1UnitringL1UnitR
129 116 127 128 syl2anc RDivRingchrR=0XYY0YL1UnitR
130 57 29 2 79 rhmdvd LringRingHomRXXgcdYYXgcdY1LYXgcdYUnitRL1UnitRLXXgcdY×˙LYXgcdY=LXXgcdY-1×˙LYXgcdY-1
131 116 91 99 118 119 129 130 syl132anc RDivRingchrR=0XYY0YLXXgcdY×˙LYXgcdY=LXXgcdY-1×˙LYXgcdY-1
132 105 115 131 3eqtr4rd RDivRingchrR=0XYY0YLXXgcdY×˙LYXgcdY=LnumerXY×˙LdenomXY
133 simp3 XYY0Y0
134 133 neneqd XYY0¬Y=0
135 simp2 XYY0Y
136 elz YYY=0YY
137 135 136 sylib XYY0YY=0YY
138 137 simprd XYY0Y=0YY
139 3orass Y=0YYY=0YY
140 138 139 sylib XYY0Y=0YY
141 orel1 ¬Y=0Y=0YYYY
142 134 140 141 sylc XYY0YY
143 142 adantl RDivRingchrR=0XYY0YY
144 90 132 143 mpjaodan RDivRingchrR=0XYY0LXXgcdY×˙LYXgcdY=LnumerXY×˙LdenomXY
145 8 zcnd RDivRingchrR=0XYY0X
146 145 35 18 divcan1d RDivRingchrR=0XYY0XXgcdYXgcdY=X
147 146 fveq2d RDivRingchrR=0XYY0LXXgcdYXgcdY=LX
148 34 35 18 divcan1d RDivRingchrR=0XYY0YXgcdYXgcdY=Y
149 148 fveq2d RDivRingchrR=0XYY0LYXgcdYXgcdY=LY
150 147 149 oveq12d RDivRingchrR=0XYY0LXXgcdYXgcdY×˙LYXgcdYXgcdY=LX×˙LY
151 81 144 150 3eqtr3d RDivRingchrR=0XYY0LnumerXY×˙LdenomXY=LX×˙LY