Step | Hyp | Ref
| Expression |
1 | | simprr 771 |
. . . 4
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅) β§ ( 0 < π‘ β§ (π‘ + π‘) β€ ((π + π)(-gβπ)(π + π)))) β (π‘ + π‘) β€ ((π + π)(-gβπ)(π + π))) |
2 | | simpl1l 1224 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β π) |
3 | | archiabllem.g |
. . . . . . . . . . . . . . 15
β’ (π β π β oGrp) |
4 | 2, 3 | syl 17 |
. . . . . . . . . . . . . 14
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β π β oGrp) |
5 | | simpl1r 1225 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β (π + π) < (π + π)) |
6 | 3 | adantr 481 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ (π + π) < (π + π)) β π β oGrp) |
7 | | ogrpgrp 32216 |
. . . . . . . . . . . . . . . . 17
β’ (π β oGrp β π β Grp) |
8 | 6, 7 | syl 17 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ (π + π) < (π + π)) β π β Grp) |
9 | | archiabllem2b.5 |
. . . . . . . . . . . . . . . . 17
β’ (π β π β π΅) |
10 | 9 | adantr 481 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ (π + π) < (π + π)) β π β π΅) |
11 | | archiabllem2b.4 |
. . . . . . . . . . . . . . . . 17
β’ (π β π β π΅) |
12 | 11 | adantr 481 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ (π + π) < (π + π)) β π β π΅) |
13 | | archiabllem.b |
. . . . . . . . . . . . . . . . 17
β’ π΅ = (Baseβπ) |
14 | | archiabllem2.1 |
. . . . . . . . . . . . . . . . 17
β’ + =
(+gβπ) |
15 | 13, 14 | grpcl 18826 |
. . . . . . . . . . . . . . . 16
β’ ((π β Grp β§ π β π΅ β§ π β π΅) β (π + π) β π΅) |
16 | 8, 10, 12, 15 | syl3anc 1371 |
. . . . . . . . . . . . . . 15
β’ ((π β§ (π + π) < (π + π)) β (π + π) β π΅) |
17 | 2, 5, 16 | syl2anc 584 |
. . . . . . . . . . . . . 14
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β (π + π) β π΅) |
18 | 2, 3, 7 | 3syl 18 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β π β Grp) |
19 | | simpr2 1195 |
. . . . . . . . . . . . . . . . 17
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β π β β€) |
20 | 19 | peano2zd 12668 |
. . . . . . . . . . . . . . . 16
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β (π + 1) β β€) |
21 | | simp2 1137 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β π‘ β π΅) |
22 | 21 | adantr 481 |
. . . . . . . . . . . . . . . 16
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β π‘ β π΅) |
23 | | archiabllem.m |
. . . . . . . . . . . . . . . . 17
β’ Β· =
(.gβπ) |
24 | 13, 23 | mulgcl 18970 |
. . . . . . . . . . . . . . . 16
β’ ((π β Grp β§ (π + 1) β β€ β§ π‘ β π΅) β ((π + 1) Β· π‘) β π΅) |
25 | 18, 20, 22, 24 | syl3anc 1371 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β ((π + 1) Β· π‘) β π΅) |
26 | | simpr1 1194 |
. . . . . . . . . . . . . . . . 17
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β π β β€) |
27 | 26 | peano2zd 12668 |
. . . . . . . . . . . . . . . 16
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β (π + 1) β β€) |
28 | 13, 23 | mulgcl 18970 |
. . . . . . . . . . . . . . . 16
β’ ((π β Grp β§ (π + 1) β β€ β§ π‘ β π΅) β ((π + 1) Β· π‘) β π΅) |
29 | 18, 27, 22, 28 | syl3anc 1371 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β ((π + 1) Β· π‘) β π΅) |
30 | 13, 14 | grpcl 18826 |
. . . . . . . . . . . . . . 15
β’ ((π β Grp β§ ((π + 1) Β· π‘) β π΅ β§ ((π + 1) Β· π‘) β π΅) β (((π + 1) Β· π‘) + ((π + 1) Β· π‘)) β π΅) |
31 | 18, 25, 29, 30 | syl3anc 1371 |
. . . . . . . . . . . . . 14
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β (((π + 1) Β· π‘) + ((π + 1) Β· π‘)) β π΅) |
32 | 12 | 3ad2ant1 1133 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β π β π΅) |
33 | 32 | adantr 481 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β π β π΅) |
34 | 10 | 3ad2ant1 1133 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β π β π΅) |
35 | 34 | adantr 481 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β π β π΅) |
36 | 13, 14 | grpcl 18826 |
. . . . . . . . . . . . . . 15
β’ ((π β Grp β§ π β π΅ β§ π β π΅) β (π + π) β π΅) |
37 | 18, 33, 35, 36 | syl3anc 1371 |
. . . . . . . . . . . . . 14
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β (π + π) β π΅) |
38 | | archiabllem.e |
. . . . . . . . . . . . . . 15
β’ β€ =
(leβπ) |
39 | | isogrp 32215 |
. . . . . . . . . . . . . . . . 17
β’ (π β oGrp β (π β Grp β§ π β oMnd)) |
40 | 39 | simprbi 497 |
. . . . . . . . . . . . . . . 16
β’ (π β oGrp β π β oMnd) |
41 | 2, 3, 40 | 3syl 18 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β π β oMnd) |
42 | | simpr3 1196 |
. . . . . . . . . . . . . . . . 17
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)))) |
43 | 42 | simprd 496 |
. . . . . . . . . . . . . . . 16
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))) |
44 | 43 | simprd 496 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β π β€ ((π + 1) Β· π‘)) |
45 | 42 | simpld 495 |
. . . . . . . . . . . . . . . 16
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))) |
46 | 45 | simprd 496 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β π β€ ((π + 1) Β· π‘)) |
47 | | archiabllem2.2 |
. . . . . . . . . . . . . . . 16
β’ (π β
(oppgβπ) β oGrp) |
48 | | isogrp 32215 |
. . . . . . . . . . . . . . . . 17
β’
((oppgβπ) β oGrp β
((oppgβπ) β Grp β§
(oppgβπ) β oMnd)) |
49 | 48 | simprbi 497 |
. . . . . . . . . . . . . . . 16
β’
((oppgβπ) β oGrp β
(oppgβπ) β oMnd) |
50 | 2, 47, 49 | 3syl 18 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β
(oppgβπ) β oMnd) |
51 | 13, 38, 14, 41, 29, 35, 33, 25, 44, 46, 50 | omndadd2rd 32222 |
. . . . . . . . . . . . . 14
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β (π + π) β€ (((π + 1) Β· π‘) + ((π + 1) Β· π‘))) |
52 | | eqid 2732 |
. . . . . . . . . . . . . . 15
β’
(-gβπ) = (-gβπ) |
53 | 13, 38, 52 | ogrpsub 32229 |
. . . . . . . . . . . . . 14
β’ ((π β oGrp β§ ((π + π) β π΅ β§ (((π + 1) Β· π‘) + ((π + 1) Β· π‘)) β π΅ β§ (π + π) β π΅) β§ (π + π) β€ (((π + 1) Β· π‘) + ((π + 1) Β· π‘))) β ((π + π)(-gβπ)(π + π)) β€ ((((π + 1) Β· π‘) + ((π + 1) Β· π‘))(-gβπ)(π + π))) |
54 | 4, 17, 31, 37, 51, 53 | syl131anc 1383 |
. . . . . . . . . . . . 13
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β ((π + π)(-gβπ)(π + π)) β€ ((((π + 1) Β· π‘) + ((π + 1) Β· π‘))(-gβπ)(π + π))) |
55 | 19 | zcnd 12666 |
. . . . . . . . . . . . . . . . . . 19
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β π β β) |
56 | 26 | zcnd 12666 |
. . . . . . . . . . . . . . . . . . 19
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β π β β) |
57 | | 1cnd 11208 |
. . . . . . . . . . . . . . . . . . 19
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β 1 β
β) |
58 | 55, 56, 57, 57 | add4d 11441 |
. . . . . . . . . . . . . . . . . 18
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β ((π + π) + (1 + 1)) = ((π + 1) + (π + 1))) |
59 | | 1p1e2 12336 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (1 + 1) =
2 |
60 | 59 | oveq2i 7419 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π + π) + (1 + 1)) = ((π + π) + 2) |
61 | | addcom 11399 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β β β§ π β β) β (π + π) = (π + π)) |
62 | 61 | oveq1d 7423 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β β β§ π β β) β ((π + π) + 2) = ((π + π) + 2)) |
63 | 60, 62 | eqtrid 2784 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β β β§ π β β) β ((π + π) + (1 + 1)) = ((π + π) + 2)) |
64 | | 2cnd 12289 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β β β§ π β β) β 2 β
β) |
65 | | simpr 485 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β β β§ π β β) β π β
β) |
66 | | simpl 483 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β β β§ π β β) β π β
β) |
67 | 65, 66 | addcld 11232 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β β β§ π β β) β (π + π) β β) |
68 | 64, 67 | addcomd 11415 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β β β§ π β β) β (2 +
(π + π)) = ((π + π) + 2)) |
69 | 63, 68 | eqtr4d 2775 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β β β§ π β β) β ((π + π) + (1 + 1)) = (2 + (π + π))) |
70 | 55, 56, 69 | syl2anc 584 |
. . . . . . . . . . . . . . . . . 18
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β ((π + π) + (1 + 1)) = (2 + (π + π))) |
71 | 58, 70 | eqtr3d 2774 |
. . . . . . . . . . . . . . . . 17
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β ((π + 1) + (π + 1)) = (2 + (π + π))) |
72 | 71 | oveq1d 7423 |
. . . . . . . . . . . . . . . 16
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β (((π + 1) + (π + 1)) Β· π‘) = ((2 + (π + π)) Β· π‘)) |
73 | | 2z 12593 |
. . . . . . . . . . . . . . . . . 18
β’ 2 β
β€ |
74 | 73 | a1i 11 |
. . . . . . . . . . . . . . . . 17
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β 2 β
β€) |
75 | 26, 19 | zaddcld 12669 |
. . . . . . . . . . . . . . . . 17
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β (π + π) β β€) |
76 | 13, 23, 14 | mulgdir 18985 |
. . . . . . . . . . . . . . . . 17
β’ ((π β Grp β§ (2 β
β€ β§ (π + π) β β€ β§ π‘ β π΅)) β ((2 + (π + π)) Β· π‘) = ((2 Β· π‘) + ((π + π) Β· π‘))) |
77 | 18, 74, 75, 22, 76 | syl13anc 1372 |
. . . . . . . . . . . . . . . 16
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β ((2 + (π + π)) Β· π‘) = ((2 Β· π‘) + ((π + π) Β· π‘))) |
78 | 72, 77 | eqtrd 2772 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β (((π + 1) + (π + 1)) Β· π‘) = ((2 Β· π‘) + ((π + π) Β· π‘))) |
79 | 13, 23, 14 | mulgdir 18985 |
. . . . . . . . . . . . . . . 16
β’ ((π β Grp β§ ((π + 1) β β€ β§
(π + 1) β β€
β§ π‘ β π΅)) β (((π + 1) + (π + 1)) Β· π‘) = (((π + 1) Β· π‘) + ((π + 1) Β· π‘))) |
80 | 18, 20, 27, 22, 79 | syl13anc 1372 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β (((π + 1) + (π + 1)) Β· π‘) = (((π + 1) Β· π‘) + ((π + 1) Β· π‘))) |
81 | 13, 23, 14 | mulg2 18962 |
. . . . . . . . . . . . . . . . 17
β’ (π‘ β π΅ β (2 Β· π‘) = (π‘ + π‘)) |
82 | 22, 81 | syl 17 |
. . . . . . . . . . . . . . . 16
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β (2 Β· π‘) = (π‘ + π‘)) |
83 | 82 | oveq1d 7423 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β ((2 Β· π‘) + ((π + π) Β· π‘)) = ((π‘ + π‘) + ((π + π) Β· π‘))) |
84 | 78, 80, 83 | 3eqtr3d 2780 |
. . . . . . . . . . . . . 14
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β (((π + 1) Β· π‘) + ((π + 1) Β· π‘)) = ((π‘ + π‘) + ((π + π) Β· π‘))) |
85 | 84 | oveq1d 7423 |
. . . . . . . . . . . . 13
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β ((((π + 1) Β· π‘) + ((π + 1) Β· π‘))(-gβπ)(π + π)) = (((π‘ + π‘) + ((π + π) Β· π‘))(-gβπ)(π + π))) |
86 | 54, 85 | breqtrd 5174 |
. . . . . . . . . . . 12
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β ((π + π)(-gβπ)(π + π)) β€ (((π‘ + π‘) + ((π + π) Β· π‘))(-gβπ)(π + π))) |
87 | 84, 31 | eqeltrrd 2834 |
. . . . . . . . . . . . 13
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β ((π‘ + π‘) + ((π + π) Β· π‘)) β π΅) |
88 | | eqid 2732 |
. . . . . . . . . . . . . 14
β’
(invgβπ) = (invgβπ) |
89 | 13, 14, 88, 52 | grpsubval 18869 |
. . . . . . . . . . . . 13
β’ ((((π‘ + π‘) + ((π + π) Β· π‘)) β π΅ β§ (π + π) β π΅) β (((π‘ + π‘) + ((π + π) Β· π‘))(-gβπ)(π + π)) = (((π‘ + π‘) + ((π + π) Β· π‘)) +
((invgβπ)β(π + π)))) |
90 | 87, 37, 89 | syl2anc 584 |
. . . . . . . . . . . 12
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β (((π‘ + π‘) + ((π + π) Β· π‘))(-gβπ)(π + π)) = (((π‘ + π‘) + ((π + π) Β· π‘)) +
((invgβπ)β(π + π)))) |
91 | 86, 90 | breqtrd 5174 |
. . . . . . . . . . 11
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β ((π + π)(-gβπ)(π + π)) β€ (((π‘ + π‘) + ((π + π) Β· π‘)) +
((invgβπ)β(π + π)))) |
92 | | archiabllem.t |
. . . . . . . . . . . 12
β’ < =
(ltβπ) |
93 | 2, 47 | syl 17 |
. . . . . . . . . . . 12
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β
(oppgβπ) β oGrp) |
94 | 13, 88 | grpinvcl 18871 |
. . . . . . . . . . . . 13
β’ ((π β Grp β§ (π + π) β π΅) β ((invgβπ)β(π + π)) β π΅) |
95 | 18, 37, 94 | syl2anc 584 |
. . . . . . . . . . . 12
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β ((invgβπ)β(π + π)) β π΅) |
96 | 75 | znegcld 12667 |
. . . . . . . . . . . . 13
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β -(π + π) β β€) |
97 | 13, 23 | mulgcl 18970 |
. . . . . . . . . . . . 13
β’ ((π β Grp β§ -(π + π) β β€ β§ π‘ β π΅) β (-(π + π) Β· π‘) β π΅) |
98 | 18, 96, 22, 97 | syl3anc 1371 |
. . . . . . . . . . . 12
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β (-(π + π) Β· π‘) β π΅) |
99 | 13, 23, 14 | mulgdir 18985 |
. . . . . . . . . . . . . . . 16
β’ ((π β Grp β§ (π β β€ β§ π β β€ β§ π‘ β π΅)) β ((π + π) Β· π‘) = ((π Β· π‘) + (π Β· π‘))) |
100 | 18, 26, 19, 22, 99 | syl13anc 1372 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β ((π + π) Β· π‘) = ((π Β· π‘) + (π Β· π‘))) |
101 | 13, 23 | mulgcl 18970 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β Grp β§ π β β€ β§ π‘ β π΅) β (π Β· π‘) β π΅) |
102 | 18, 26, 22, 101 | syl3anc 1371 |
. . . . . . . . . . . . . . . . 17
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β (π Β· π‘) β π΅) |
103 | 13, 23 | mulgcl 18970 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β Grp β§ π β β€ β§ π‘ β π΅) β (π Β· π‘) β π΅) |
104 | 18, 19, 22, 103 | syl3anc 1371 |
. . . . . . . . . . . . . . . . 17
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β (π Β· π‘) β π΅) |
105 | 45 | simpld 495 |
. . . . . . . . . . . . . . . . 17
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β (π Β· π‘) < π) |
106 | 13, 92, 14 | ogrpaddlt 32230 |
. . . . . . . . . . . . . . . . 17
β’ ((π β oGrp β§ ((π Β· π‘) β π΅ β§ π β π΅ β§ (π Β· π‘) β π΅) β§ (π Β· π‘) < π) β ((π Β· π‘) + (π Β· π‘)) < (π + (π Β· π‘))) |
107 | 4, 102, 33, 104, 105, 106 | syl131anc 1383 |
. . . . . . . . . . . . . . . 16
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β ((π Β· π‘) + (π Β· π‘)) < (π + (π Β· π‘))) |
108 | 43 | simpld 495 |
. . . . . . . . . . . . . . . . 17
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β (π Β· π‘) < π) |
109 | 13, 92, 14, 4, 93, 104, 35, 33, 108 | ogrpaddltrd 32232 |
. . . . . . . . . . . . . . . 16
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β (π + (π Β· π‘)) < (π + π)) |
110 | | omndtos 32218 |
. . . . . . . . . . . . . . . . . 18
β’ (π β oMnd β π β Toset) |
111 | | tospos 18372 |
. . . . . . . . . . . . . . . . . 18
β’ (π β Toset β π β Poset) |
112 | 41, 110, 111 | 3syl 18 |
. . . . . . . . . . . . . . . . 17
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β π β Poset) |
113 | 13, 14 | grpcl 18826 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β Grp β§ (π Β· π‘) β π΅ β§ (π Β· π‘) β π΅) β ((π Β· π‘) + (π Β· π‘)) β π΅) |
114 | 18, 102, 104, 113 | syl3anc 1371 |
. . . . . . . . . . . . . . . . 17
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β ((π Β· π‘) + (π Β· π‘)) β π΅) |
115 | 13, 14 | grpcl 18826 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β Grp β§ π β π΅ β§ (π Β· π‘) β π΅) β (π + (π Β· π‘)) β π΅) |
116 | 18, 33, 104, 115 | syl3anc 1371 |
. . . . . . . . . . . . . . . . 17
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β (π + (π Β· π‘)) β π΅) |
117 | 13, 92 | plttr 18294 |
. . . . . . . . . . . . . . . . 17
β’ ((π β Poset β§ (((π Β· π‘) + (π Β· π‘)) β π΅ β§ (π + (π Β· π‘)) β π΅ β§ (π + π) β π΅)) β ((((π Β· π‘) + (π Β· π‘)) < (π + (π Β· π‘)) β§ (π + (π Β· π‘)) < (π + π)) β ((π Β· π‘) + (π Β· π‘)) < (π + π))) |
118 | 112, 114,
116, 37, 117 | syl13anc 1372 |
. . . . . . . . . . . . . . . 16
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β ((((π Β· π‘) + (π Β· π‘)) < (π + (π Β· π‘)) β§ (π + (π Β· π‘)) < (π + π)) β ((π Β· π‘) + (π Β· π‘)) < (π + π))) |
119 | 107, 109,
118 | mp2and 697 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β ((π Β· π‘) + (π Β· π‘)) < (π + π)) |
120 | 100, 119 | eqbrtrd 5170 |
. . . . . . . . . . . . . 14
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β ((π + π) Β· π‘) < (π + π)) |
121 | 100, 114 | eqeltrd 2833 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β ((π + π) Β· π‘) β π΅) |
122 | 13, 92, 88 | ogrpinvlt 32236 |
. . . . . . . . . . . . . . 15
β’ (((π β oGrp β§
(oppgβπ) β oGrp) β§ ((π + π) Β· π‘) β π΅ β§ (π + π) β π΅) β (((π + π) Β· π‘) < (π + π) β ((invgβπ)β(π + π)) <
((invgβπ)β((π + π) Β· π‘)))) |
123 | 4, 93, 121, 37, 122 | syl211anc 1376 |
. . . . . . . . . . . . . 14
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β (((π + π) Β· π‘) < (π + π) β ((invgβπ)β(π + π)) <
((invgβπ)β((π + π) Β· π‘)))) |
124 | 120, 123 | mpbid 231 |
. . . . . . . . . . . . 13
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β ((invgβπ)β(π + π)) <
((invgβπ)β((π + π) Β· π‘))) |
125 | 13, 23, 88 | mulgneg 18971 |
. . . . . . . . . . . . . 14
β’ ((π β Grp β§ (π + π) β β€ β§ π‘ β π΅) β (-(π + π) Β· π‘) = ((invgβπ)β((π + π) Β· π‘))) |
126 | 18, 75, 22, 125 | syl3anc 1371 |
. . . . . . . . . . . . 13
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β (-(π + π) Β· π‘) = ((invgβπ)β((π + π) Β· π‘))) |
127 | 124, 126 | breqtrrd 5176 |
. . . . . . . . . . . 12
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β ((invgβπ)β(π + π)) < (-(π + π) Β· π‘)) |
128 | 13, 92, 14, 4, 93, 95, 98, 87, 127 | ogrpaddltrd 32232 |
. . . . . . . . . . 11
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β (((π‘ + π‘) + ((π + π) Β· π‘)) +
((invgβπ)β(π + π))) < (((π‘ + π‘) + ((π + π) Β· π‘)) + (-(π + π) Β· π‘))) |
129 | 13, 52 | grpsubcl 18902 |
. . . . . . . . . . . . 13
β’ ((π β Grp β§ (π + π) β π΅ β§ (π + π) β π΅) β ((π + π)(-gβπ)(π + π)) β π΅) |
130 | 18, 17, 37, 129 | syl3anc 1371 |
. . . . . . . . . . . 12
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β ((π + π)(-gβπ)(π + π)) β π΅) |
131 | 13, 14 | grpcl 18826 |
. . . . . . . . . . . . 13
β’ ((π β Grp β§ ((π‘ + π‘) + ((π + π) Β· π‘)) β π΅ β§ ((invgβπ)β(π + π)) β π΅) β (((π‘ + π‘) + ((π + π) Β· π‘)) +
((invgβπ)β(π + π))) β π΅) |
132 | 18, 87, 95, 131 | syl3anc 1371 |
. . . . . . . . . . . 12
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β (((π‘ + π‘) + ((π + π) Β· π‘)) +
((invgβπ)β(π + π))) β π΅) |
133 | 13, 14 | grpcl 18826 |
. . . . . . . . . . . . 13
β’ ((π β Grp β§ ((π‘ + π‘) + ((π + π) Β· π‘)) β π΅ β§ (-(π + π) Β· π‘) β π΅) β (((π‘ + π‘) + ((π + π) Β· π‘)) + (-(π + π) Β· π‘)) β π΅) |
134 | 18, 87, 98, 133 | syl3anc 1371 |
. . . . . . . . . . . 12
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β (((π‘ + π‘) + ((π + π) Β· π‘)) + (-(π + π) Β· π‘)) β π΅) |
135 | 13, 38, 92 | plelttr 18296 |
. . . . . . . . . . . 12
β’ ((π β Poset β§ (((π + π)(-gβπ)(π + π)) β π΅ β§ (((π‘ + π‘) + ((π + π) Β· π‘)) +
((invgβπ)β(π + π))) β π΅ β§ (((π‘ + π‘) + ((π + π) Β· π‘)) + (-(π + π) Β· π‘)) β π΅)) β ((((π + π)(-gβπ)(π + π)) β€ (((π‘ + π‘) + ((π + π) Β· π‘)) +
((invgβπ)β(π + π))) β§ (((π‘ + π‘) + ((π + π) Β· π‘)) +
((invgβπ)β(π + π))) < (((π‘ + π‘) + ((π + π) Β· π‘)) + (-(π + π) Β· π‘))) β ((π + π)(-gβπ)(π + π)) < (((π‘ + π‘) + ((π + π) Β· π‘)) + (-(π + π) Β· π‘)))) |
136 | 112, 130,
132, 134, 135 | syl13anc 1372 |
. . . . . . . . . . 11
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β ((((π + π)(-gβπ)(π + π)) β€ (((π‘ + π‘) + ((π + π) Β· π‘)) +
((invgβπ)β(π + π))) β§ (((π‘ + π‘) + ((π + π) Β· π‘)) +
((invgβπ)β(π + π))) < (((π‘ + π‘) + ((π + π) Β· π‘)) + (-(π + π) Β· π‘))) β ((π + π)(-gβπ)(π + π)) < (((π‘ + π‘) + ((π + π) Β· π‘)) + (-(π + π) Β· π‘)))) |
137 | 91, 128, 136 | mp2and 697 |
. . . . . . . . . 10
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β ((π + π)(-gβπ)(π + π)) < (((π‘ + π‘) + ((π + π) Β· π‘)) + (-(π + π) Β· π‘))) |
138 | 13, 14 | grpcl 18826 |
. . . . . . . . . . . . 13
β’ ((π β Grp β§ π‘ β π΅ β§ π‘ β π΅) β (π‘ + π‘) β π΅) |
139 | 18, 22, 22, 138 | syl3anc 1371 |
. . . . . . . . . . . 12
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β (π‘ + π‘) β π΅) |
140 | 13, 14 | grpass 18827 |
. . . . . . . . . . . 12
β’ ((π β Grp β§ ((π‘ + π‘) β π΅ β§ ((π + π) Β· π‘) β π΅ β§ (-(π + π) Β· π‘) β π΅)) β (((π‘ + π‘) + ((π + π) Β· π‘)) + (-(π + π) Β· π‘)) = ((π‘ + π‘) + (((π + π) Β· π‘) + (-(π + π) Β· π‘)))) |
141 | 18, 139, 121, 98, 140 | syl13anc 1372 |
. . . . . . . . . . 11
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β (((π‘ + π‘) + ((π + π) Β· π‘)) + (-(π + π) Β· π‘)) = ((π‘ + π‘) + (((π + π) Β· π‘) + (-(π + π) Β· π‘)))) |
142 | 56, 55 | addcld 11232 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β (π + π) β β) |
143 | 142 | negidd 11560 |
. . . . . . . . . . . . . 14
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β ((π + π) + -(π + π)) = 0) |
144 | 143 | oveq1d 7423 |
. . . . . . . . . . . . 13
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β (((π + π) + -(π + π)) Β· π‘) = (0 Β· π‘)) |
145 | 13, 23, 14 | mulgdir 18985 |
. . . . . . . . . . . . . 14
β’ ((π β Grp β§ ((π + π) β β€ β§ -(π + π) β β€ β§ π‘ β π΅)) β (((π + π) + -(π + π)) Β· π‘) = (((π + π) Β· π‘) + (-(π + π) Β· π‘))) |
146 | 18, 75, 96, 22, 145 | syl13anc 1372 |
. . . . . . . . . . . . 13
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β (((π + π) + -(π + π)) Β· π‘) = (((π + π) Β· π‘) + (-(π + π) Β· π‘))) |
147 | | archiabllem.0 |
. . . . . . . . . . . . . . 15
β’ 0 =
(0gβπ) |
148 | 13, 147, 23 | mulg0 18956 |
. . . . . . . . . . . . . 14
β’ (π‘ β π΅ β (0 Β· π‘) = 0 ) |
149 | 22, 148 | syl 17 |
. . . . . . . . . . . . 13
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β (0 Β· π‘) = 0 ) |
150 | 144, 146,
149 | 3eqtr3d 2780 |
. . . . . . . . . . . 12
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β (((π + π) Β· π‘) + (-(π + π) Β· π‘)) = 0 ) |
151 | 150 | oveq2d 7424 |
. . . . . . . . . . 11
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β ((π‘ + π‘) + (((π + π) Β· π‘) + (-(π + π) Β· π‘))) = ((π‘ + π‘) + 0 )) |
152 | 13, 14, 147 | grprid 18852 |
. . . . . . . . . . . 12
β’ ((π β Grp β§ (π‘ + π‘) β π΅) β ((π‘ + π‘) + 0 ) = (π‘ + π‘)) |
153 | 18, 139, 152 | syl2anc 584 |
. . . . . . . . . . 11
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β ((π‘ + π‘) + 0 ) = (π‘ + π‘)) |
154 | 141, 151,
153 | 3eqtrd 2776 |
. . . . . . . . . 10
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β (((π‘ + π‘) + ((π + π) Β· π‘)) + (-(π + π) Β· π‘)) = (π‘ + π‘)) |
155 | 137, 154 | breqtrd 5174 |
. . . . . . . . 9
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ (π β β€ β§ π β β€ β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))))) β ((π + π)(-gβπ)(π + π)) < (π‘ + π‘)) |
156 | 155 | 3anassrs 1360 |
. . . . . . . 8
β’
((((((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β§ π β β€) β§ π β β€) β§ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)))) β ((π + π)(-gβπ)(π + π)) < (π‘ + π‘)) |
157 | 6 | 3ad2ant1 1133 |
. . . . . . . . . 10
β’ (((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β π β oGrp) |
158 | | archiabllem.a |
. . . . . . . . . . . 12
β’ (π β π β Archi) |
159 | 158 | adantr 481 |
. . . . . . . . . . 11
β’ ((π β§ (π + π) < (π + π)) β π β Archi) |
160 | 159 | 3ad2ant1 1133 |
. . . . . . . . . 10
β’ (((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β π β Archi) |
161 | | simp3 1138 |
. . . . . . . . . 10
β’ (((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β 0 < π‘) |
162 | 47 | adantr 481 |
. . . . . . . . . . 11
β’ ((π β§ (π + π) < (π + π)) β
(oppgβπ) β oGrp) |
163 | 162 | 3ad2ant1 1133 |
. . . . . . . . . 10
β’ (((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β (oppgβπ) β oGrp) |
164 | 13, 147, 92, 38, 23, 157, 160, 21, 32, 161, 163 | archirngz 32330 |
. . . . . . . . 9
β’ (((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β βπ β β€ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))) |
165 | 13, 147, 92, 38, 23, 157, 160, 21, 34, 161, 163 | archirngz 32330 |
. . . . . . . . 9
β’ (((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β βπ β β€ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))) |
166 | | reeanv 3226 |
. . . . . . . . 9
β’
(βπ β
β€ βπ β
β€ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘))) β (βπ β β€ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ βπ β β€ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)))) |
167 | 164, 165,
166 | sylanbrc 583 |
. . . . . . . 8
β’ (((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β βπ β β€ βπ β β€ (((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)) β§ ((π Β· π‘) < π β§ π β€ ((π + 1) Β· π‘)))) |
168 | 156, 167 | r19.29vva 3213 |
. . . . . . 7
β’ (((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β ((π + π)(-gβπ)(π + π)) < (π‘ + π‘)) |
169 | 157, 40, 110 | 3syl 18 |
. . . . . . . 8
β’ (((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β π β Toset) |
170 | 8, 12, 10, 36 | syl3anc 1371 |
. . . . . . . . . 10
β’ ((π β§ (π + π) < (π + π)) β (π + π) β π΅) |
171 | 8, 16, 170, 129 | syl3anc 1371 |
. . . . . . . . 9
β’ ((π β§ (π + π) < (π + π)) β ((π + π)(-gβπ)(π + π)) β π΅) |
172 | 171 | 3ad2ant1 1133 |
. . . . . . . 8
β’ (((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β ((π + π)(-gβπ)(π + π)) β π΅) |
173 | 157, 7 | syl 17 |
. . . . . . . . 9
β’ (((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β π β Grp) |
174 | 173, 21, 21, 138 | syl3anc 1371 |
. . . . . . . 8
β’ (((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β (π‘ + π‘) β π΅) |
175 | 13, 38, 92 | tltnle 18374 |
. . . . . . . 8
β’ ((π β Toset β§ ((π + π)(-gβπ)(π + π)) β π΅ β§ (π‘ + π‘) β π΅) β (((π + π)(-gβπ)(π + π)) < (π‘ + π‘) β Β¬ (π‘ + π‘) β€ ((π + π)(-gβπ)(π + π)))) |
176 | 169, 172,
174, 175 | syl3anc 1371 |
. . . . . . 7
β’ (((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β (((π + π)(-gβπ)(π + π)) < (π‘ + π‘) β Β¬ (π‘ + π‘) β€ ((π + π)(-gβπ)(π + π)))) |
177 | 168, 176 | mpbid 231 |
. . . . . 6
β’ (((π β§ (π + π) < (π + π)) β§ π‘ β π΅ β§ 0 < π‘) β Β¬ (π‘ + π‘) β€ ((π + π)(-gβπ)(π + π))) |
178 | 177 | 3expa 1118 |
. . . . 5
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅) β§ 0 < π‘) β Β¬ (π‘ + π‘) β€ ((π + π)(-gβπ)(π + π))) |
179 | 178 | adantrr 715 |
. . . 4
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅) β§ ( 0 < π‘ β§ (π‘ + π‘) β€ ((π + π)(-gβπ)(π + π)))) β Β¬ (π‘ + π‘) β€ ((π + π)(-gβπ)(π + π))) |
180 | 1, 179 | pm2.21fal 1563 |
. . 3
β’ ((((π β§ (π + π) < (π + π)) β§ π‘ β π΅) β§ ( 0 < π‘ β§ (π‘ + π‘) β€ ((π + π)(-gβπ)(π + π)))) β β₯) |
181 | | archiabllem2.3 |
. . . . 5
β’ ((π β§ π β π΅ β§ 0 < π) β βπ β π΅ ( 0 < π β§ π < π)) |
182 | 181 | 3adant1r 1177 |
. . . 4
β’ (((π β§ (π + π) < (π + π)) β§ π β π΅ β§ 0 < π) β βπ β π΅ ( 0 < π β§ π < π)) |
183 | 13, 147, 52 | grpsubid 18906 |
. . . . . 6
β’ ((π β Grp β§ (π + π) β π΅) β ((π + π)(-gβπ)(π + π)) = 0 ) |
184 | 8, 170, 183 | syl2anc 584 |
. . . . 5
β’ ((π β§ (π + π) < (π + π)) β ((π + π)(-gβπ)(π + π)) = 0 ) |
185 | | simpr 485 |
. . . . . 6
β’ ((π β§ (π + π) < (π + π)) β (π + π) < (π + π)) |
186 | 13, 92, 52 | ogrpsublt 32234 |
. . . . . 6
β’ ((π β oGrp β§ ((π + π) β π΅ β§ (π + π) β π΅ β§ (π + π) β π΅) β§ (π + π) < (π + π)) β ((π + π)(-gβπ)(π + π)) < ((π + π)(-gβπ)(π + π))) |
187 | 6, 170, 16, 170, 185, 186 | syl131anc 1383 |
. . . . 5
β’ ((π β§ (π + π) < (π + π)) β ((π + π)(-gβπ)(π + π)) < ((π + π)(-gβπ)(π + π))) |
188 | 184, 187 | eqbrtrrd 5172 |
. . . 4
β’ ((π β§ (π + π) < (π + π)) β 0 < ((π + π)(-gβπ)(π + π))) |
189 | 13, 147, 38, 92, 23, 6, 159, 14, 162, 182, 171, 188 | archiabllem2a 32335 |
. . 3
β’ ((π β§ (π + π) < (π + π)) β βπ‘ β π΅ ( 0 < π‘ β§ (π‘ + π‘) β€ ((π + π)(-gβπ)(π + π)))) |
190 | 180, 189 | r19.29a 3162 |
. 2
β’ ((π β§ (π + π) < (π + π)) β β₯) |
191 | 190 | inegd 1561 |
1
β’ (π β Β¬ (π + π) < (π + π)) |