Users' Mathboxes Mathbox for Thierry Arnoux < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  archirngz Structured version   Visualization version   GIF version

Theorem archirngz 33369
Description: Property of Archimedean left and right ordered groups. (Contributed by Thierry Arnoux, 6-May-2018.)
Hypotheses
Ref Expression
archirng.b 𝐵 = (Base‘𝑊)
archirng.0 0 = (0g𝑊)
archirng.i < = (lt‘𝑊)
archirng.l = (le‘𝑊)
archirng.x · = (.g𝑊)
archirng.1 (𝜑𝑊 ∈ oGrp)
archirng.2 (𝜑𝑊 ∈ Archi)
archirng.3 (𝜑𝑋𝐵)
archirng.4 (𝜑𝑌𝐵)
archirng.5 (𝜑0 < 𝑋)
archirngz.1 (𝜑 → (oppg𝑊) ∈ oGrp)
Assertion
Ref Expression
archirngz (𝜑 → ∃𝑛 ∈ ℤ ((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)))
Distinct variable groups:   𝑛,𝑋   𝑛,𝑌   𝜑,𝑛   0 ,𝑛   ,𝑛   < ,𝑛   · ,𝑛
Allowed substitution hints:   𝐵(𝑛)   𝑊(𝑛)

Proof of Theorem archirngz
Dummy variable 𝑚 is distinct from all other variables.
StepHypRef Expression
1 neg1z 12607 . . 3 -1 ∈ ℤ
2 archirng.1 . . . . . . . . . 10 (𝜑𝑊 ∈ oGrp)
3 ogrpgrp 20165 . . . . . . . . . 10 (𝑊 ∈ oGrp → 𝑊 ∈ Grp)
42, 3syl 17 . . . . . . . . 9 (𝜑𝑊 ∈ Grp)
5 1zzd 12602 . . . . . . . . 9 (𝜑 → 1 ∈ ℤ)
6 archirng.3 . . . . . . . . 9 (𝜑𝑋𝐵)
7 archirng.b . . . . . . . . . 10 𝐵 = (Base‘𝑊)
8 archirng.x . . . . . . . . . 10 · = (.g𝑊)
9 eqid 2762 . . . . . . . . . 10 (invg𝑊) = (invg𝑊)
107, 8, 9mulgneg 19134 . . . . . . . . 9 ((𝑊 ∈ Grp ∧ 1 ∈ ℤ ∧ 𝑋𝐵) → (-1 · 𝑋) = ((invg𝑊)‘(1 · 𝑋)))
114, 5, 6, 10syl3anc 1390 . . . . . . . 8 (𝜑 → (-1 · 𝑋) = ((invg𝑊)‘(1 · 𝑋)))
127, 8mulg1 19123 . . . . . . . . . 10 (𝑋𝐵 → (1 · 𝑋) = 𝑋)
136, 12syl 17 . . . . . . . . 9 (𝜑 → (1 · 𝑋) = 𝑋)
1413fveq2d 6871 . . . . . . . 8 (𝜑 → ((invg𝑊)‘(1 · 𝑋)) = ((invg𝑊)‘𝑋))
1511, 14eqtrd 2797 . . . . . . 7 (𝜑 → (-1 · 𝑋) = ((invg𝑊)‘𝑋))
16 archirng.5 . . . . . . . 8 (𝜑0 < 𝑋)
17 archirng.i . . . . . . . . . 10 < = (lt‘𝑊)
18 archirng.0 . . . . . . . . . 10 0 = (0g𝑊)
197, 17, 9, 18ogrpinv0lt 20183 . . . . . . . . 9 ((𝑊 ∈ oGrp ∧ 𝑋𝐵) → ( 0 < 𝑋 ↔ ((invg𝑊)‘𝑋) < 0 ))
2019biimpa 480 . . . . . . . 8 (((𝑊 ∈ oGrp ∧ 𝑋𝐵) ∧ 0 < 𝑋) → ((invg𝑊)‘𝑋) < 0 )
212, 6, 16, 20syl21anc 848 . . . . . . 7 (𝜑 → ((invg𝑊)‘𝑋) < 0 )
2215, 21eqbrtrd 5122 . . . . . 6 (𝜑 → (-1 · 𝑋) < 0 )
2322adantr 484 . . . . 5 ((𝜑𝑌 = 0 ) → (-1 · 𝑋) < 0 )
24 simpr 488 . . . . 5 ((𝜑𝑌 = 0 ) → 𝑌 = 0 )
2523, 24breqtrrd 5128 . . . 4 ((𝜑𝑌 = 0 ) → (-1 · 𝑋) < 𝑌)
26 isogrp 20164 . . . . . . . . . 10 (𝑊 ∈ oGrp ↔ (𝑊 ∈ Grp ∧ 𝑊 ∈ oMnd))
2726simprbi 501 . . . . . . . . 9 (𝑊 ∈ oGrp → 𝑊 ∈ oMnd)
28 omndtos 20167 . . . . . . . . 9 (𝑊 ∈ oMnd → 𝑊 ∈ Toset)
292, 27, 283syl 18 . . . . . . . 8 (𝜑𝑊 ∈ Toset)
30 tospos 18450 . . . . . . . 8 (𝑊 ∈ Toset → 𝑊 ∈ Poset)
3129, 30syl 17 . . . . . . 7 (𝜑𝑊 ∈ Poset)
327, 18grpidcl 19007 . . . . . . . 8 (𝑊 ∈ Grp → 0𝐵)
332, 3, 323syl 18 . . . . . . 7 (𝜑0𝐵)
34 archirng.l . . . . . . . 8 = (le‘𝑊)
357, 34posref 18350 . . . . . . 7 ((𝑊 ∈ Poset ∧ 0𝐵) → 0 0 )
3631, 33, 35syl2anc 593 . . . . . 6 (𝜑0 0 )
3736adantr 484 . . . . 5 ((𝜑𝑌 = 0 ) → 0 0 )
38 1m1e0 12290 . . . . . . . . . 10 (1 − 1) = 0
3938negeqi 11423 . . . . . . . . 9 -(1 − 1) = -0
40 ax-1cn 11131 . . . . . . . . . 10 1 ∈ ℂ
4140, 40negsubdii 11516 . . . . . . . . 9 -(1 − 1) = (-1 + 1)
42 neg0 11477 . . . . . . . . 9 -0 = 0
4339, 41, 423eqtr3i 2793 . . . . . . . 8 (-1 + 1) = 0
4443oveq1i 7406 . . . . . . 7 ((-1 + 1) · 𝑋) = (0 · 𝑋)
457, 18, 8mulg0 19116 . . . . . . . 8 (𝑋𝐵 → (0 · 𝑋) = 0 )
466, 45syl 17 . . . . . . 7 (𝜑 → (0 · 𝑋) = 0 )
4744, 46eqtrid 2809 . . . . . 6 (𝜑 → ((-1 + 1) · 𝑋) = 0 )
4847adantr 484 . . . . 5 ((𝜑𝑌 = 0 ) → ((-1 + 1) · 𝑋) = 0 )
4937, 24, 483brtr4d 5132 . . . 4 ((𝜑𝑌 = 0 ) → 𝑌 ((-1 + 1) · 𝑋))
5025, 49jca 519 . . 3 ((𝜑𝑌 = 0 ) → ((-1 · 𝑋) < 𝑌𝑌 ((-1 + 1) · 𝑋)))
51 oveq1 7403 . . . . . 6 (𝑛 = -1 → (𝑛 · 𝑋) = (-1 · 𝑋))
5251breq1d 5110 . . . . 5 (𝑛 = -1 → ((𝑛 · 𝑋) < 𝑌 ↔ (-1 · 𝑋) < 𝑌))
53 oveq1 7403 . . . . . . 7 (𝑛 = -1 → (𝑛 + 1) = (-1 + 1))
5453oveq1d 7411 . . . . . 6 (𝑛 = -1 → ((𝑛 + 1) · 𝑋) = ((-1 + 1) · 𝑋))
5554breq2d 5112 . . . . 5 (𝑛 = -1 → (𝑌 ((𝑛 + 1) · 𝑋) ↔ 𝑌 ((-1 + 1) · 𝑋)))
5652, 55anbi12d 641 . . . 4 (𝑛 = -1 → (((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)) ↔ ((-1 · 𝑋) < 𝑌𝑌 ((-1 + 1) · 𝑋))))
5756rspcev 3581 . . 3 ((-1 ∈ ℤ ∧ ((-1 · 𝑋) < 𝑌𝑌 ((-1 + 1) · 𝑋))) → ∃𝑛 ∈ ℤ ((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)))
581, 50, 57sylancr 596 . 2 ((𝜑𝑌 = 0 ) → ∃𝑛 ∈ ℤ ((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)))
59 simpr 488 . . . . . . . . 9 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → 𝑚 ∈ ℕ0)
6059nn0zd 12593 . . . . . . . 8 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → 𝑚 ∈ ℤ)
6160ad2antrr 736 . . . . . . 7 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → 𝑚 ∈ ℤ)
6261znegcld 12679 . . . . . 6 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → -𝑚 ∈ ℤ)
63 2z 12603 . . . . . . 7 2 ∈ ℤ
6463a1i 11 . . . . . 6 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → 2 ∈ ℤ)
6562, 64zsubcld 12682 . . . . 5 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → (-𝑚 − 2) ∈ ℤ)
66 nn0cn 12491 . . . . . . . . . . 11 (𝑚 ∈ ℕ0𝑚 ∈ ℂ)
6766adantl 485 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → 𝑚 ∈ ℂ)
68 2cnd 12296 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → 2 ∈ ℂ)
6967, 68negdi2d 11556 . . . . . . . . 9 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → -(𝑚 + 2) = (-𝑚 − 2))
7069oveq1d 7411 . . . . . . . 8 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (-(𝑚 + 2) · 𝑋) = ((-𝑚 − 2) · 𝑋))
712ad2antrr 736 . . . . . . . . . . 11 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → 𝑊 ∈ oGrp)
72 archirngz.1 . . . . . . . . . . . 12 (𝜑 → (oppg𝑊) ∈ oGrp)
7372ad2antrr 736 . . . . . . . . . . 11 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (oppg𝑊) ∈ oGrp)
7471, 73jca 519 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (𝑊 ∈ oGrp ∧ (oppg𝑊) ∈ oGrp))
754ad2antrr 736 . . . . . . . . . . 11 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → 𝑊 ∈ Grp)
7660peano2zd 12680 . . . . . . . . . . 11 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (𝑚 + 1) ∈ ℤ)
776ad2antrr 736 . . . . . . . . . . 11 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → 𝑋𝐵)
787, 8mulgcl 19133 . . . . . . . . . . 11 ((𝑊 ∈ Grp ∧ (𝑚 + 1) ∈ ℤ ∧ 𝑋𝐵) → ((𝑚 + 1) · 𝑋) ∈ 𝐵)
7975, 76, 77, 78syl3anc 1390 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((𝑚 + 1) · 𝑋) ∈ 𝐵)
8063a1i 11 . . . . . . . . . . . 12 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → 2 ∈ ℤ)
8160, 80zaddcld 12681 . . . . . . . . . . 11 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (𝑚 + 2) ∈ ℤ)
827, 8mulgcl 19133 . . . . . . . . . . 11 ((𝑊 ∈ Grp ∧ (𝑚 + 2) ∈ ℤ ∧ 𝑋𝐵) → ((𝑚 + 2) · 𝑋) ∈ 𝐵)
8375, 81, 77, 82syl3anc 1390 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((𝑚 + 2) · 𝑋) ∈ 𝐵)
8475, 32syl 17 . . . . . . . . . . . 12 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → 0𝐵)
8516ad2antrr 736 . . . . . . . . . . . 12 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → 0 < 𝑋)
86 eqid 2762 . . . . . . . . . . . . 13 (+g𝑊) = (+g𝑊)
877, 17, 86ogrpaddlt 20178 . . . . . . . . . . . 12 ((𝑊 ∈ oGrp ∧ ( 0𝐵𝑋𝐵 ∧ ((𝑚 + 1) · 𝑋) ∈ 𝐵) ∧ 0 < 𝑋) → ( 0 (+g𝑊)((𝑚 + 1) · 𝑋)) < (𝑋(+g𝑊)((𝑚 + 1) · 𝑋)))
8871, 84, 77, 79, 85, 87syl131anc 1402 . . . . . . . . . . 11 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ( 0 (+g𝑊)((𝑚 + 1) · 𝑋)) < (𝑋(+g𝑊)((𝑚 + 1) · 𝑋)))
897, 86, 18grplid 19009 . . . . . . . . . . . 12 ((𝑊 ∈ Grp ∧ ((𝑚 + 1) · 𝑋) ∈ 𝐵) → ( 0 (+g𝑊)((𝑚 + 1) · 𝑋)) = ((𝑚 + 1) · 𝑋))
9075, 79, 89syl2anc 593 . . . . . . . . . . 11 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ( 0 (+g𝑊)((𝑚 + 1) · 𝑋)) = ((𝑚 + 1) · 𝑋))
91 1cnd 11175 . . . . . . . . . . . . . . . . 17 (𝑚 ∈ ℕ0 → 1 ∈ ℂ)
9266, 91, 91addassd 11204 . . . . . . . . . . . . . . . 16 (𝑚 ∈ ℕ0 → ((𝑚 + 1) + 1) = (𝑚 + (1 + 1)))
93 1p1e2 12341 . . . . . . . . . . . . . . . . 17 (1 + 1) = 2
9493oveq2i 7407 . . . . . . . . . . . . . . . 16 (𝑚 + (1 + 1)) = (𝑚 + 2)
9592, 94eqtrdi 2813 . . . . . . . . . . . . . . 15 (𝑚 ∈ ℕ0 → ((𝑚 + 1) + 1) = (𝑚 + 2))
9666, 91addcld 11201 . . . . . . . . . . . . . . . 16 (𝑚 ∈ ℕ0 → (𝑚 + 1) ∈ ℂ)
9796, 91addcomd 11385 . . . . . . . . . . . . . . 15 (𝑚 ∈ ℕ0 → ((𝑚 + 1) + 1) = (1 + (𝑚 + 1)))
9895, 97eqtr3d 2799 . . . . . . . . . . . . . 14 (𝑚 ∈ ℕ0 → (𝑚 + 2) = (1 + (𝑚 + 1)))
9998oveq1d 7411 . . . . . . . . . . . . 13 (𝑚 ∈ ℕ0 → ((𝑚 + 2) · 𝑋) = ((1 + (𝑚 + 1)) · 𝑋))
10099adantl 485 . . . . . . . . . . . 12 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((𝑚 + 2) · 𝑋) = ((1 + (𝑚 + 1)) · 𝑋))
101 1zzd 12602 . . . . . . . . . . . . 13 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → 1 ∈ ℤ)
1027, 8, 86mulgdir 19148 . . . . . . . . . . . . 13 ((𝑊 ∈ Grp ∧ (1 ∈ ℤ ∧ (𝑚 + 1) ∈ ℤ ∧ 𝑋𝐵)) → ((1 + (𝑚 + 1)) · 𝑋) = ((1 · 𝑋)(+g𝑊)((𝑚 + 1) · 𝑋)))
10375, 101, 76, 77, 102syl13anc 1391 . . . . . . . . . . . 12 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((1 + (𝑚 + 1)) · 𝑋) = ((1 · 𝑋)(+g𝑊)((𝑚 + 1) · 𝑋)))
10477, 12syl 17 . . . . . . . . . . . . 13 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (1 · 𝑋) = 𝑋)
105104oveq1d 7411 . . . . . . . . . . . 12 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((1 · 𝑋)(+g𝑊)((𝑚 + 1) · 𝑋)) = (𝑋(+g𝑊)((𝑚 + 1) · 𝑋)))
106100, 103, 1053eqtrrd 2802 . . . . . . . . . . 11 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (𝑋(+g𝑊)((𝑚 + 1) · 𝑋)) = ((𝑚 + 2) · 𝑋))
10788, 90, 1063brtr3d 5131 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((𝑚 + 1) · 𝑋) < ((𝑚 + 2) · 𝑋))
1087, 17, 9ogrpinvlt 20184 . . . . . . . . . . 11 (((𝑊 ∈ oGrp ∧ (oppg𝑊) ∈ oGrp) ∧ ((𝑚 + 1) · 𝑋) ∈ 𝐵 ∧ ((𝑚 + 2) · 𝑋) ∈ 𝐵) → (((𝑚 + 1) · 𝑋) < ((𝑚 + 2) · 𝑋) ↔ ((invg𝑊)‘((𝑚 + 2) · 𝑋)) < ((invg𝑊)‘((𝑚 + 1) · 𝑋))))
109108biimpa 480 . . . . . . . . . 10 ((((𝑊 ∈ oGrp ∧ (oppg𝑊) ∈ oGrp) ∧ ((𝑚 + 1) · 𝑋) ∈ 𝐵 ∧ ((𝑚 + 2) · 𝑋) ∈ 𝐵) ∧ ((𝑚 + 1) · 𝑋) < ((𝑚 + 2) · 𝑋)) → ((invg𝑊)‘((𝑚 + 2) · 𝑋)) < ((invg𝑊)‘((𝑚 + 1) · 𝑋)))
11074, 79, 83, 107, 109syl31anc 1392 . . . . . . . . 9 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((invg𝑊)‘((𝑚 + 2) · 𝑋)) < ((invg𝑊)‘((𝑚 + 1) · 𝑋)))
1117, 8, 9mulgneg 19134 . . . . . . . . . 10 ((𝑊 ∈ Grp ∧ (𝑚 + 2) ∈ ℤ ∧ 𝑋𝐵) → (-(𝑚 + 2) · 𝑋) = ((invg𝑊)‘((𝑚 + 2) · 𝑋)))
11275, 81, 77, 111syl3anc 1390 . . . . . . . . 9 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (-(𝑚 + 2) · 𝑋) = ((invg𝑊)‘((𝑚 + 2) · 𝑋)))
1137, 8, 9mulgneg 19134 . . . . . . . . . 10 ((𝑊 ∈ Grp ∧ (𝑚 + 1) ∈ ℤ ∧ 𝑋𝐵) → (-(𝑚 + 1) · 𝑋) = ((invg𝑊)‘((𝑚 + 1) · 𝑋)))
11475, 76, 77, 113syl3anc 1390 . . . . . . . . 9 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (-(𝑚 + 1) · 𝑋) = ((invg𝑊)‘((𝑚 + 1) · 𝑋)))
115110, 112, 1143brtr4d 5132 . . . . . . . 8 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (-(𝑚 + 2) · 𝑋) < (-(𝑚 + 1) · 𝑋))
11670, 115eqbrtrrd 5124 . . . . . . 7 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((-𝑚 − 2) · 𝑋) < (-(𝑚 + 1) · 𝑋))
117116ad2antrr 736 . . . . . 6 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → ((-𝑚 − 2) · 𝑋) < (-(𝑚 + 1) · 𝑋))
118114ad2antrr 736 . . . . . . 7 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → (-(𝑚 + 1) · 𝑋) = ((invg𝑊)‘((𝑚 + 1) · 𝑋)))
11931ad4antr 742 . . . . . . . . 9 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → 𝑊 ∈ Poset)
120 archirng.4 . . . . . . . . . . . 12 (𝜑𝑌𝐵)
1217, 9grpinvcl 19029 . . . . . . . . . . . 12 ((𝑊 ∈ Grp ∧ 𝑌𝐵) → ((invg𝑊)‘𝑌) ∈ 𝐵)
1224, 120, 121syl2anc 593 . . . . . . . . . . 11 (𝜑 → ((invg𝑊)‘𝑌) ∈ 𝐵)
123122ad2antrr 736 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((invg𝑊)‘𝑌) ∈ 𝐵)
124123ad2antrr 736 . . . . . . . . 9 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → ((invg𝑊)‘𝑌) ∈ 𝐵)
12579ad2antrr 736 . . . . . . . . 9 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → ((𝑚 + 1) · 𝑋) ∈ 𝐵)
126 simplrr 787 . . . . . . . . 9 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))
127 simpr 488 . . . . . . . . 9 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌))
1287, 34posasymb 18351 . . . . . . . . . 10 ((𝑊 ∈ Poset ∧ ((invg𝑊)‘𝑌) ∈ 𝐵 ∧ ((𝑚 + 1) · 𝑋) ∈ 𝐵) → ((((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) ↔ ((invg𝑊)‘𝑌) = ((𝑚 + 1) · 𝑋)))
129128biimpa 480 . . . . . . . . 9 (((𝑊 ∈ Poset ∧ ((invg𝑊)‘𝑌) ∈ 𝐵 ∧ ((𝑚 + 1) · 𝑋) ∈ 𝐵) ∧ (((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌))) → ((invg𝑊)‘𝑌) = ((𝑚 + 1) · 𝑋))
130119, 124, 125, 126, 127, 129syl32anc 1397 . . . . . . . 8 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → ((invg𝑊)‘𝑌) = ((𝑚 + 1) · 𝑋))
131130fveq2d 6871 . . . . . . 7 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → ((invg𝑊)‘((invg𝑊)‘𝑌)) = ((invg𝑊)‘((𝑚 + 1) · 𝑋)))
1327, 9grpinvinv 19047 . . . . . . . . 9 ((𝑊 ∈ Grp ∧ 𝑌𝐵) → ((invg𝑊)‘((invg𝑊)‘𝑌)) = 𝑌)
1334, 120, 132syl2anc 593 . . . . . . . 8 (𝜑 → ((invg𝑊)‘((invg𝑊)‘𝑌)) = 𝑌)
134133ad4antr 742 . . . . . . 7 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → ((invg𝑊)‘((invg𝑊)‘𝑌)) = 𝑌)
135118, 131, 1343eqtr2rd 2804 . . . . . 6 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → 𝑌 = (-(𝑚 + 1) · 𝑋))
136117, 135breqtrrd 5128 . . . . 5 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → ((-𝑚 − 2) · 𝑋) < 𝑌)
137 1cnd 11175 . . . . . . . . . . . . 13 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → 1 ∈ ℂ)
13867, 68, 137addsubassd 11562 . . . . . . . . . . . 12 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((𝑚 + 2) − 1) = (𝑚 + (2 − 1)))
139 2m1e1 12342 . . . . . . . . . . . . 13 (2 − 1) = 1
140139oveq2i 7407 . . . . . . . . . . . 12 (𝑚 + (2 − 1)) = (𝑚 + 1)
141138, 140eqtr2di 2814 . . . . . . . . . . 11 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (𝑚 + 1) = ((𝑚 + 2) − 1))
142141negeqd 11424 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → -(𝑚 + 1) = -((𝑚 + 2) − 1))
14367, 68addcld 11201 . . . . . . . . . . 11 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (𝑚 + 2) ∈ ℂ)
144143, 137negsubdid 11557 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → -((𝑚 + 2) − 1) = (-(𝑚 + 2) + 1))
14569oveq1d 7411 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (-(𝑚 + 2) + 1) = ((-𝑚 − 2) + 1))
146142, 144, 1453eqtrrd 2802 . . . . . . . . 9 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((-𝑚 − 2) + 1) = -(𝑚 + 1))
147146oveq1d 7411 . . . . . . . 8 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (((-𝑚 − 2) + 1) · 𝑋) = (-(𝑚 + 1) · 𝑋))
14829ad2antrr 736 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → 𝑊 ∈ Toset)
149148, 30syl 17 . . . . . . . . 9 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → 𝑊 ∈ Poset)
15060znegcld 12679 . . . . . . . . . . . 12 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → -𝑚 ∈ ℤ)
151150, 80zsubcld 12682 . . . . . . . . . . 11 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (-𝑚 − 2) ∈ ℤ)
152151peano2zd 12680 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((-𝑚 − 2) + 1) ∈ ℤ)
1537, 8mulgcl 19133 . . . . . . . . . 10 ((𝑊 ∈ Grp ∧ ((-𝑚 − 2) + 1) ∈ ℤ ∧ 𝑋𝐵) → (((-𝑚 − 2) + 1) · 𝑋) ∈ 𝐵)
15475, 152, 77, 153syl3anc 1390 . . . . . . . . 9 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (((-𝑚 − 2) + 1) · 𝑋) ∈ 𝐵)
1557, 34posref 18350 . . . . . . . . 9 ((𝑊 ∈ Poset ∧ (((-𝑚 − 2) + 1) · 𝑋) ∈ 𝐵) → (((-𝑚 − 2) + 1) · 𝑋) (((-𝑚 − 2) + 1) · 𝑋))
156149, 154, 155syl2anc 593 . . . . . . . 8 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (((-𝑚 − 2) + 1) · 𝑋) (((-𝑚 − 2) + 1) · 𝑋))
157147, 156eqbrtrrd 5124 . . . . . . 7 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (-(𝑚 + 1) · 𝑋) (((-𝑚 − 2) + 1) · 𝑋))
158157ad2antrr 736 . . . . . 6 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → (-(𝑚 + 1) · 𝑋) (((-𝑚 − 2) + 1) · 𝑋))
159135, 158eqbrtrd 5122 . . . . 5 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → 𝑌 (((-𝑚 − 2) + 1) · 𝑋))
160 oveq1 7403 . . . . . . . 8 (𝑛 = (-𝑚 − 2) → (𝑛 · 𝑋) = ((-𝑚 − 2) · 𝑋))
161160breq1d 5110 . . . . . . 7 (𝑛 = (-𝑚 − 2) → ((𝑛 · 𝑋) < 𝑌 ↔ ((-𝑚 − 2) · 𝑋) < 𝑌))
162 oveq1 7403 . . . . . . . . 9 (𝑛 = (-𝑚 − 2) → (𝑛 + 1) = ((-𝑚 − 2) + 1))
163162oveq1d 7411 . . . . . . . 8 (𝑛 = (-𝑚 − 2) → ((𝑛 + 1) · 𝑋) = (((-𝑚 − 2) + 1) · 𝑋))
164163breq2d 5112 . . . . . . 7 (𝑛 = (-𝑚 − 2) → (𝑌 ((𝑛 + 1) · 𝑋) ↔ 𝑌 (((-𝑚 − 2) + 1) · 𝑋)))
165161, 164anbi12d 641 . . . . . 6 (𝑛 = (-𝑚 − 2) → (((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)) ↔ (((-𝑚 − 2) · 𝑋) < 𝑌𝑌 (((-𝑚 − 2) + 1) · 𝑋))))
166165rspcev 3581 . . . . 5 (((-𝑚 − 2) ∈ ℤ ∧ (((-𝑚 − 2) · 𝑋) < 𝑌𝑌 (((-𝑚 − 2) + 1) · 𝑋))) → ∃𝑛 ∈ ℤ ((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)))
16765, 136, 159, 166syl12anc 847 . . . 4 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → ∃𝑛 ∈ ℤ ((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)))
16876ad2antrr 736 . . . . . 6 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → (𝑚 + 1) ∈ ℤ)
169168znegcld 12679 . . . . 5 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → -(𝑚 + 1) ∈ ℤ)
1702ad2antrr 736 . . . . . . . . 9 (((𝜑𝑌 < 0 ) ∧ (𝑚 ∈ ℕ0 ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋)) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋))) → 𝑊 ∈ oGrp)
17172ad2antrr 736 . . . . . . . . 9 (((𝜑𝑌 < 0 ) ∧ (𝑚 ∈ ℕ0 ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋)) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋))) → (oppg𝑊) ∈ oGrp)
172170, 171jca 519 . . . . . . . 8 (((𝜑𝑌 < 0 ) ∧ (𝑚 ∈ ℕ0 ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋)) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋))) → (𝑊 ∈ oGrp ∧ (oppg𝑊) ∈ oGrp))
1731723anassrs 1374 . . . . . . 7 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → (𝑊 ∈ oGrp ∧ (oppg𝑊) ∈ oGrp))
174123ad2antrr 736 . . . . . . 7 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → ((invg𝑊)‘𝑌) ∈ 𝐵)
17579ad2antrr 736 . . . . . . 7 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → ((𝑚 + 1) · 𝑋) ∈ 𝐵)
176 simpr 488 . . . . . . 7 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋))
1777, 17, 9ogrpinvlt 20184 . . . . . . . 8 (((𝑊 ∈ oGrp ∧ (oppg𝑊) ∈ oGrp) ∧ ((invg𝑊)‘𝑌) ∈ 𝐵 ∧ ((𝑚 + 1) · 𝑋) ∈ 𝐵) → (((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋) ↔ ((invg𝑊)‘((𝑚 + 1) · 𝑋)) < ((invg𝑊)‘((invg𝑊)‘𝑌))))
178177biimpa 480 . . . . . . 7 ((((𝑊 ∈ oGrp ∧ (oppg𝑊) ∈ oGrp) ∧ ((invg𝑊)‘𝑌) ∈ 𝐵 ∧ ((𝑚 + 1) · 𝑋) ∈ 𝐵) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → ((invg𝑊)‘((𝑚 + 1) · 𝑋)) < ((invg𝑊)‘((invg𝑊)‘𝑌)))
179173, 174, 175, 176, 178syl31anc 1392 . . . . . 6 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → ((invg𝑊)‘((𝑚 + 1) · 𝑋)) < ((invg𝑊)‘((invg𝑊)‘𝑌)))
180114ad2antrr 736 . . . . . . 7 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → (-(𝑚 + 1) · 𝑋) = ((invg𝑊)‘((𝑚 + 1) · 𝑋)))
181180eqcomd 2768 . . . . . 6 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → ((invg𝑊)‘((𝑚 + 1) · 𝑋)) = (-(𝑚 + 1) · 𝑋))
182133ad4antr 742 . . . . . 6 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → ((invg𝑊)‘((invg𝑊)‘𝑌)) = 𝑌)
183179, 181, 1823brtr3d 5131 . . . . 5 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → (-(𝑚 + 1) · 𝑋) < 𝑌)
184 simp-4l 792 . . . . . 6 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → 𝜑)
1857, 8mulgcl 19133 . . . . . . . . . . . 12 ((𝑊 ∈ Grp ∧ 𝑚 ∈ ℤ ∧ 𝑋𝐵) → (𝑚 · 𝑋) ∈ 𝐵)
18675, 60, 77, 185syl3anc 1390 . . . . . . . . . . 11 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (𝑚 · 𝑋) ∈ 𝐵)
1877, 17, 9ogrpinvlt 20184 . . . . . . . . . . 11 (((𝑊 ∈ oGrp ∧ (oppg𝑊) ∈ oGrp) ∧ (𝑚 · 𝑋) ∈ 𝐵 ∧ ((invg𝑊)‘𝑌) ∈ 𝐵) → ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ↔ ((invg𝑊)‘((invg𝑊)‘𝑌)) < ((invg𝑊)‘(𝑚 · 𝑋))))
18874, 186, 123, 187syl3anc 1390 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ↔ ((invg𝑊)‘((invg𝑊)‘𝑌)) < ((invg𝑊)‘(𝑚 · 𝑋))))
189188biimpa 480 . . . . . . . . 9 ((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ (𝑚 · 𝑋) < ((invg𝑊)‘𝑌)) → ((invg𝑊)‘((invg𝑊)‘𝑌)) < ((invg𝑊)‘(𝑚 · 𝑋)))
190189adantrr 727 . . . . . . . 8 ((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) → ((invg𝑊)‘((invg𝑊)‘𝑌)) < ((invg𝑊)‘(𝑚 · 𝑋)))
191190adantr 484 . . . . . . 7 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → ((invg𝑊)‘((invg𝑊)‘𝑌)) < ((invg𝑊)‘(𝑚 · 𝑋)))
192 negdi 11488 . . . . . . . . . . . . . . 15 ((𝑚 ∈ ℂ ∧ 1 ∈ ℂ) → -(𝑚 + 1) = (-𝑚 + -1))
19366, 40, 192sylancl 595 . . . . . . . . . . . . . 14 (𝑚 ∈ ℕ0 → -(𝑚 + 1) = (-𝑚 + -1))
194193oveq1d 7411 . . . . . . . . . . . . 13 (𝑚 ∈ ℕ0 → (-(𝑚 + 1) + 1) = ((-𝑚 + -1) + 1))
19566negcld 11529 . . . . . . . . . . . . . . 15 (𝑚 ∈ ℕ0 → -𝑚 ∈ ℂ)
19691negcld 11529 . . . . . . . . . . . . . . 15 (𝑚 ∈ ℕ0 → -1 ∈ ℂ)
197195, 196, 91addassd 11204 . . . . . . . . . . . . . 14 (𝑚 ∈ ℕ0 → ((-𝑚 + -1) + 1) = (-𝑚 + (-1 + 1)))
19843oveq2i 7407 . . . . . . . . . . . . . . 15 (-𝑚 + (-1 + 1)) = (-𝑚 + 0)
199198a1i 11 . . . . . . . . . . . . . 14 (𝑚 ∈ ℕ0 → (-𝑚 + (-1 + 1)) = (-𝑚 + 0))
200195addridd 11383 . . . . . . . . . . . . . 14 (𝑚 ∈ ℕ0 → (-𝑚 + 0) = -𝑚)
201197, 199, 2003eqtrd 2801 . . . . . . . . . . . . 13 (𝑚 ∈ ℕ0 → ((-𝑚 + -1) + 1) = -𝑚)
202194, 201eqtrd 2797 . . . . . . . . . . . 12 (𝑚 ∈ ℕ0 → (-(𝑚 + 1) + 1) = -𝑚)
203202oveq1d 7411 . . . . . . . . . . 11 (𝑚 ∈ ℕ0 → ((-(𝑚 + 1) + 1) · 𝑋) = (-𝑚 · 𝑋))
204203adantl 485 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((-(𝑚 + 1) + 1) · 𝑋) = (-𝑚 · 𝑋))
2057, 8, 9mulgneg 19134 . . . . . . . . . . 11 ((𝑊 ∈ Grp ∧ 𝑚 ∈ ℤ ∧ 𝑋𝐵) → (-𝑚 · 𝑋) = ((invg𝑊)‘(𝑚 · 𝑋)))
20675, 60, 77, 205syl3anc 1390 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (-𝑚 · 𝑋) = ((invg𝑊)‘(𝑚 · 𝑋)))
207204, 206eqtrd 2797 . . . . . . . . 9 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((-(𝑚 + 1) + 1) · 𝑋) = ((invg𝑊)‘(𝑚 · 𝑋)))
208207ad2antrr 736 . . . . . . . 8 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → ((-(𝑚 + 1) + 1) · 𝑋) = ((invg𝑊)‘(𝑚 · 𝑋)))
209208eqcomd 2768 . . . . . . 7 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → ((invg𝑊)‘(𝑚 · 𝑋)) = ((-(𝑚 + 1) + 1) · 𝑋))
210191, 182, 2093brtr3d 5131 . . . . . 6 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → 𝑌 < ((-(𝑚 + 1) + 1) · 𝑋))
211 ovexd 7431 . . . . . . 7 (𝜑 → ((-(𝑚 + 1) + 1) · 𝑋) ∈ V)
21234, 17pltle 18363 . . . . . . 7 ((𝑊 ∈ oGrp ∧ 𝑌𝐵 ∧ ((-(𝑚 + 1) + 1) · 𝑋) ∈ V) → (𝑌 < ((-(𝑚 + 1) + 1) · 𝑋) → 𝑌 ((-(𝑚 + 1) + 1) · 𝑋)))
2132, 120, 211, 212syl3anc 1390 . . . . . 6 (𝜑 → (𝑌 < ((-(𝑚 + 1) + 1) · 𝑋) → 𝑌 ((-(𝑚 + 1) + 1) · 𝑋)))
214184, 210, 213sylc 65 . . . . 5 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → 𝑌 ((-(𝑚 + 1) + 1) · 𝑋))
215 oveq1 7403 . . . . . . . 8 (𝑛 = -(𝑚 + 1) → (𝑛 · 𝑋) = (-(𝑚 + 1) · 𝑋))
216215breq1d 5110 . . . . . . 7 (𝑛 = -(𝑚 + 1) → ((𝑛 · 𝑋) < 𝑌 ↔ (-(𝑚 + 1) · 𝑋) < 𝑌))
217 oveq1 7403 . . . . . . . . 9 (𝑛 = -(𝑚 + 1) → (𝑛 + 1) = (-(𝑚 + 1) + 1))
218217oveq1d 7411 . . . . . . . 8 (𝑛 = -(𝑚 + 1) → ((𝑛 + 1) · 𝑋) = ((-(𝑚 + 1) + 1) · 𝑋))
219218breq2d 5112 . . . . . . 7 (𝑛 = -(𝑚 + 1) → (𝑌 ((𝑛 + 1) · 𝑋) ↔ 𝑌 ((-(𝑚 + 1) + 1) · 𝑋)))
220216, 219anbi12d 641 . . . . . 6 (𝑛 = -(𝑚 + 1) → (((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)) ↔ ((-(𝑚 + 1) · 𝑋) < 𝑌𝑌 ((-(𝑚 + 1) + 1) · 𝑋))))
221220rspcev 3581 . . . . 5 ((-(𝑚 + 1) ∈ ℤ ∧ ((-(𝑚 + 1) · 𝑋) < 𝑌𝑌 ((-(𝑚 + 1) + 1) · 𝑋))) → ∃𝑛 ∈ ℤ ((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)))
222169, 183, 214, 221syl12anc 847 . . . 4 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → ∃𝑛 ∈ ℤ ((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)))
2237, 34, 17tlt2 33147 . . . . . 6 ((𝑊 ∈ Toset ∧ ((𝑚 + 1) · 𝑋) ∈ 𝐵 ∧ ((invg𝑊)‘𝑌) ∈ 𝐵) → (((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌) ∨ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)))
224148, 79, 123, 223syl3anc 1390 . . . . 5 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌) ∨ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)))
225224adantr 484 . . . 4 ((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) → (((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌) ∨ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)))
226167, 222, 225mpjaodan 971 . . 3 ((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) → ∃𝑛 ∈ ℤ ((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)))
2272adantr 484 . . . 4 ((𝜑𝑌 < 0 ) → 𝑊 ∈ oGrp)
228 archirng.2 . . . . 5 (𝜑𝑊 ∈ Archi)
229228adantr 484 . . . 4 ((𝜑𝑌 < 0 ) → 𝑊 ∈ Archi)
2306adantr 484 . . . 4 ((𝜑𝑌 < 0 ) → 𝑋𝐵)
231122adantr 484 . . . 4 ((𝜑𝑌 < 0 ) → ((invg𝑊)‘𝑌) ∈ 𝐵)
23216adantr 484 . . . 4 ((𝜑𝑌 < 0 ) → 0 < 𝑋)
233133breq1d 5110 . . . . . 6 (𝜑 → (((invg𝑊)‘((invg𝑊)‘𝑌)) < 0𝑌 < 0 ))
234233biimpar 481 . . . . 5 ((𝜑𝑌 < 0 ) → ((invg𝑊)‘((invg𝑊)‘𝑌)) < 0 )
2357, 17, 9, 18ogrpinv0lt 20183 . . . . . . 7 ((𝑊 ∈ oGrp ∧ ((invg𝑊)‘𝑌) ∈ 𝐵) → ( 0 < ((invg𝑊)‘𝑌) ↔ ((invg𝑊)‘((invg𝑊)‘𝑌)) < 0 ))
2362, 122, 235syl2anc 593 . . . . . 6 (𝜑 → ( 0 < ((invg𝑊)‘𝑌) ↔ ((invg𝑊)‘((invg𝑊)‘𝑌)) < 0 ))
237236biimpar 481 . . . . 5 ((𝜑 ∧ ((invg𝑊)‘((invg𝑊)‘𝑌)) < 0 ) → 0 < ((invg𝑊)‘𝑌))
238234, 237syldan 600 . . . 4 ((𝜑𝑌 < 0 ) → 0 < ((invg𝑊)‘𝑌))
2397, 18, 17, 34, 8, 227, 229, 230, 231, 232, 238archirng 33368 . . 3 ((𝜑𝑌 < 0 ) → ∃𝑚 ∈ ℕ0 ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋)))
240226, 239r19.29a 3170 . 2 ((𝜑𝑌 < 0 ) → ∃𝑛 ∈ ℤ ((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)))
241 nn0ssz 12591 . . 3 0 ⊆ ℤ
2422adantr 484 . . . 4 ((𝜑0 < 𝑌) → 𝑊 ∈ oGrp)
243228adantr 484 . . . 4 ((𝜑0 < 𝑌) → 𝑊 ∈ Archi)
2446adantr 484 . . . 4 ((𝜑0 < 𝑌) → 𝑋𝐵)
245120adantr 484 . . . 4 ((𝜑0 < 𝑌) → 𝑌𝐵)
24616adantr 484 . . . 4 ((𝜑0 < 𝑌) → 0 < 𝑋)
247 simpr 488 . . . 4 ((𝜑0 < 𝑌) → 0 < 𝑌)
2487, 18, 17, 34, 8, 242, 243, 244, 245, 246, 247archirng 33368 . . 3 ((𝜑0 < 𝑌) → ∃𝑛 ∈ ℕ0 ((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)))
249 ssrexv 4006 . . 3 (ℕ0 ⊆ ℤ → (∃𝑛 ∈ ℕ0 ((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)) → ∃𝑛 ∈ ℤ ((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋))))
250241, 248, 249mpsyl 68 . 2 ((𝜑0 < 𝑌) → ∃𝑛 ∈ ℤ ((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)))
2517, 17tlt3 33148 . . 3 ((𝑊 ∈ Toset ∧ 𝑌𝐵0𝐵) → (𝑌 = 0𝑌 < 00 < 𝑌))
25229, 120, 33, 251syl3anc 1390 . 2 (𝜑 → (𝑌 = 0𝑌 < 00 < 𝑌))
25358, 240, 250, 252mpjao3dan 1452 1 (𝜑 → ∃𝑛 ∈ ℤ ((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 208  wa 399  wo 858  w3o 1097  w3a 1098   = wceq 1560  wcel 2142  wrex 3086  Vcvv 3454  wss 3904   class class class wbr 5100  cfv 6521  (class class class)co 7396  cc 11071  0cc0 11073  1c1 11074   + caddc 11076  cmin 11414  -cneg 11415  2c2 12272  0cn0 12481  cz 12568  Basecbs 17245  +gcplusg 17286  lecple 17293  0gc0g 17468  Posetcpo 18339  ltcplt 18340  Tosetctos 18446  Grpcgrp 18975  invgcminusg 18976  .gcmg 19109  oppgcoppg 19385  oMndcomnd 20159  oGrpcogrp 20160  Archicarchi 33357
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1815  ax-4 1829  ax-5 1930  ax-6 1987  ax-7 2028  ax-8 2144  ax-9 2152  ax-10 2175  ax-11 2191  ax-12 2212  ax-ext 2734  ax-sep 5246  ax-nul 5256  ax-pow 5322  ax-pr 5390  ax-un 7718  ax-cnex 11129  ax-resscn 11130  ax-1cn 11131  ax-icn 11132  ax-addcl 11133  ax-addrcl 11134  ax-mulcl 11135  ax-mulrcl 11136  ax-mulcom 11137  ax-addass 11138  ax-mulass 11139  ax-distr 11140  ax-i2m1 11141  ax-1ne0 11142  ax-1rid 11143  ax-rnegex 11144  ax-rrecex 11145  ax-cnre 11146  ax-pre-lttri 11147  ax-pre-lttrn 11148  ax-pre-ltadd 11149  ax-pre-mulgt0 11150
This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3or 1099  df-3an 1100  df-tru 1563  df-fal 1573  df-ex 1800  df-nf 1804  df-sb 2091  df-mo 2566  df-eu 2596  df-clab 2741  df-cleq 2754  df-clel 2837  df-nfc 2911  df-ne 2958  df-nel 3062  df-ral 3077  df-rex 3087  df-rmo 3367  df-reu 3368  df-rab 3415  df-v 3456  df-sbc 3745  df-csb 3853  df-dif 3907  df-un 3909  df-in 3911  df-ss 3921  df-pss 3924  df-nul 4286  df-if 4481  df-pw 4557  df-sn 4583  df-pr 4585  df-op 4589  df-uni 4866  df-iun 4951  df-br 5101  df-opab 5163  df-mpt 5182  df-tr 5208  df-id 5542  df-eprel 5547  df-po 5555  df-so 5556  df-fr 5600  df-we 5602  df-xp 5653  df-rel 5654  df-cnv 5655  df-co 5656  df-dm 5657  df-rn 5658  df-res 5659  df-ima 5660  df-pred 6288  df-ord 6349  df-on 6350  df-lim 6351  df-suc 6352  df-iota 6477  df-fun 6523  df-fn 6524  df-f 6525  df-f1 6526  df-fo 6527  df-f1o 6528  df-fv 6529  df-riota 7353  df-ov 7399  df-oprab 7400  df-mpo 7401  df-om 7847  df-1st 7970  df-2nd 7971  df-tpos 8206  df-frecs 8262  df-wrecs 8293  df-recs 8342  df-rdg 8381  df-er 8678  df-en 8928  df-dom 8929  df-sdom 8930  df-pnf 11218  df-mnf 11219  df-xr 11220  df-ltxr 11221  df-le 11222  df-sub 11416  df-neg 11417  df-nn 12211  df-2 12280  df-3 12281  df-4 12282  df-5 12283  df-6 12284  df-7 12285  df-8 12286  df-9 12287  df-n0 12482  df-z 12569  df-dec 12689  df-uz 12840  df-fz 13513  df-seq 14015  df-sets 17200  df-slot 17218  df-ndx 17230  df-base 17246  df-plusg 17299  df-ple 17306  df-0g 17470  df-proset 18326  df-poset 18345  df-plt 18360  df-toset 18447  df-mgm 18674  df-sgrp 18753  df-mnd 18769  df-grp 18978  df-minusg 18979  df-mulg 19110  df-oppg 19386  df-omnd 20161  df-ogrp 20162  df-inftm 33358  df-archi 33359
This theorem is referenced by:  archiabllem2c  33375
  Copyright terms: Public domain W3C validator