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 33449
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 12629 . . 3 -1 ∈ ℤ
2 archirng.1 . . . . . . . . . 10 (𝜑𝑊 ∈ oGrp)
3 ogrpgrp 20194 . . . . . . . . . 10 (𝑊 ∈ oGrp → 𝑊 ∈ Grp)
42, 3syl 18 . . . . . . . . 9 (𝜑𝑊 ∈ Grp)
5 1zzd 12624 . . . . . . . . 9 (𝜑 → 1 ∈ ℤ)
6 archirng.3 . . . . . . . . 9 (𝜑𝑋𝐵)
7 archirng.b . . . . . . . . . 10 𝐵 = (Base‘𝑊)
8 archirng.x . . . . . . . . . 10 · = (.g𝑊)
9 eqid 2769 . . . . . . . . . 10 (invg𝑊) = (invg𝑊)
107, 8, 9mulgneg 19157 . . . . . . . . 9 ((𝑊 ∈ Grp ∧ 1 ∈ ℤ ∧ 𝑋𝐵) → (-1 · 𝑋) = ((invg𝑊)‘(1 · 𝑋)))
114, 5, 6, 10syl3anc 1396 . . . . . . . 8 (𝜑 → (-1 · 𝑋) = ((invg𝑊)‘(1 · 𝑋)))
127, 8mulg1 19146 . . . . . . . . . 10 (𝑋𝐵 → (1 · 𝑋) = 𝑋)
136, 12syl 18 . . . . . . . . 9 (𝜑 → (1 · 𝑋) = 𝑋)
1413fveq2d 6886 . . . . . . . 8 (𝜑 → ((invg𝑊)‘(1 · 𝑋)) = ((invg𝑊)‘𝑋))
1511, 14eqtrd 2804 . . . . . . 7 (𝜑 → (-1 · 𝑋) = ((invg𝑊)‘𝑋))
16 archirng.5 . . . . . . . 8 (𝜑0 < 𝑋)
17 archirng.i . . . . . . . . . 10 < = (lt‘𝑊)
18 archirng.0 . . . . . . . . . 10 0 = (0g𝑊)
197, 17, 9, 18ogrpinv0lt 20212 . . . . . . . . 9 ((𝑊 ∈ oGrp ∧ 𝑋𝐵) → ( 0 < 𝑋 ↔ ((invg𝑊)‘𝑋) < 0 ))
2019biimpa 481 . . . . . . . 8 (((𝑊 ∈ oGrp ∧ 𝑋𝐵) ∧ 0 < 𝑋) → ((invg𝑊)‘𝑋) < 0 )
212, 6, 16, 20syl21anc 850 . . . . . . 7 (𝜑 → ((invg𝑊)‘𝑋) < 0 )
2215, 21eqbrtrd 5137 . . . . . 6 (𝜑 → (-1 · 𝑋) < 0 )
2322adantr 485 . . . . 5 ((𝜑𝑌 = 0 ) → (-1 · 𝑋) < 0 )
24 simpr 489 . . . . 5 ((𝜑𝑌 = 0 ) → 𝑌 = 0 )
2523, 24breqtrrd 5143 . . . 4 ((𝜑𝑌 = 0 ) → (-1 · 𝑋) < 𝑌)
26 isogrp 20193 . . . . . . . . . 10 (𝑊 ∈ oGrp ↔ (𝑊 ∈ Grp ∧ 𝑊 ∈ oMnd))
2726simprbi 502 . . . . . . . . 9 (𝑊 ∈ oGrp → 𝑊 ∈ oMnd)
28 omndtos 20196 . . . . . . . . 9 (𝑊 ∈ oMnd → 𝑊 ∈ Toset)
292, 27, 283syl 19 . . . . . . . 8 (𝜑𝑊 ∈ Toset)
30 tospos 18473 . . . . . . . 8 (𝑊 ∈ Toset → 𝑊 ∈ Poset)
3129, 30syl 18 . . . . . . 7 (𝜑𝑊 ∈ Poset)
327, 18grpidcl 19031 . . . . . . . 8 (𝑊 ∈ Grp → 0𝐵)
332, 3, 323syl 19 . . . . . . 7 (𝜑0𝐵)
34 archirng.l . . . . . . . 8 = (le‘𝑊)
357, 34posref 18373 . . . . . . 7 ((𝑊 ∈ Poset ∧ 0𝐵) → 0 0 )
3631, 33, 35syl2anc 595 . . . . . 6 (𝜑0 0 )
3736adantr 485 . . . . 5 ((𝜑𝑌 = 0 ) → 0 0 )
38 1m1e0 12312 . . . . . . . . . 10 (1 − 1) = 0
3938negeqi 11449 . . . . . . . . 9 -(1 − 1) = -0
40 ax-1cn 11157 . . . . . . . . . 10 1 ∈ ℂ
4140, 40negsubdii 11542 . . . . . . . . 9 -(1 − 1) = (-1 + 1)
42 neg0 11503 . . . . . . . . 9 -0 = 0
4339, 41, 423eqtr3i 2800 . . . . . . . 8 (-1 + 1) = 0
4443oveq1i 7421 . . . . . . 7 ((-1 + 1) · 𝑋) = (0 · 𝑋)
457, 18, 8mulg0 19139 . . . . . . . 8 (𝑋𝐵 → (0 · 𝑋) = 0 )
466, 45syl 18 . . . . . . 7 (𝜑 → (0 · 𝑋) = 0 )
4744, 46eqtrid 2816 . . . . . 6 (𝜑 → ((-1 + 1) · 𝑋) = 0 )
4847adantr 485 . . . . 5 ((𝜑𝑌 = 0 ) → ((-1 + 1) · 𝑋) = 0 )
4937, 24, 483brtr4d 5147 . . . 4 ((𝜑𝑌 = 0 ) → 𝑌 ((-1 + 1) · 𝑋))
5025, 49jca 520 . . 3 ((𝜑𝑌 = 0 ) → ((-1 · 𝑋) < 𝑌𝑌 ((-1 + 1) · 𝑋)))
51 oveq1 7418 . . . . . 6 (𝑛 = -1 → (𝑛 · 𝑋) = (-1 · 𝑋))
5251breq1d 5123 . . . . 5 (𝑛 = -1 → ((𝑛 · 𝑋) < 𝑌 ↔ (-1 · 𝑋) < 𝑌))
53 oveq1 7418 . . . . . . 7 (𝑛 = -1 → (𝑛 + 1) = (-1 + 1))
5453oveq1d 7426 . . . . . 6 (𝑛 = -1 → ((𝑛 + 1) · 𝑋) = ((-1 + 1) · 𝑋))
5554breq2d 5125 . . . . 5 (𝑛 = -1 → (𝑌 ((𝑛 + 1) · 𝑋) ↔ 𝑌 ((-1 + 1) · 𝑋)))
5652, 55anbi12d 643 . . . 4 (𝑛 = -1 → (((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)) ↔ ((-1 · 𝑋) < 𝑌𝑌 ((-1 + 1) · 𝑋))))
5756rspcev 3590 . . 3 ((-1 ∈ ℤ ∧ ((-1 · 𝑋) < 𝑌𝑌 ((-1 + 1) · 𝑋))) → ∃𝑛 ∈ ℤ ((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)))
581, 50, 57sylancr 598 . 2 ((𝜑𝑌 = 0 ) → ∃𝑛 ∈ ℤ ((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)))
59 simpr 489 . . . . . . . . 9 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → 𝑚 ∈ ℕ0)
6059nn0zd 12615 . . . . . . . 8 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → 𝑚 ∈ ℤ)
6160ad2antrr 738 . . . . . . 7 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → 𝑚 ∈ ℤ)
6261znegcld 12701 . . . . . 6 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → -𝑚 ∈ ℤ)
63 2z 12625 . . . . . . 7 2 ∈ ℤ
6463a1i 11 . . . . . 6 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → 2 ∈ ℤ)
6562, 64zsubcld 12704 . . . . 5 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → (-𝑚 − 2) ∈ ℤ)
66 nn0cn 12513 . . . . . . . . . . 11 (𝑚 ∈ ℕ0𝑚 ∈ ℂ)
6766adantl 486 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → 𝑚 ∈ ℂ)
68 2cnd 12318 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → 2 ∈ ℂ)
6967, 68negdi2d 11582 . . . . . . . . 9 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → -(𝑚 + 2) = (-𝑚 − 2))
7069oveq1d 7426 . . . . . . . 8 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (-(𝑚 + 2) · 𝑋) = ((-𝑚 − 2) · 𝑋))
712ad2antrr 738 . . . . . . . . . . 11 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → 𝑊 ∈ oGrp)
72 archirngz.1 . . . . . . . . . . . 12 (𝜑 → (oppg𝑊) ∈ oGrp)
7372ad2antrr 738 . . . . . . . . . . 11 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (oppg𝑊) ∈ oGrp)
7471, 73jca 520 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (𝑊 ∈ oGrp ∧ (oppg𝑊) ∈ oGrp))
754ad2antrr 738 . . . . . . . . . . 11 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → 𝑊 ∈ Grp)
7660peano2zd 12702 . . . . . . . . . . 11 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (𝑚 + 1) ∈ ℤ)
776ad2antrr 738 . . . . . . . . . . 11 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → 𝑋𝐵)
787, 8mulgcl 19156 . . . . . . . . . . 11 ((𝑊 ∈ Grp ∧ (𝑚 + 1) ∈ ℤ ∧ 𝑋𝐵) → ((𝑚 + 1) · 𝑋) ∈ 𝐵)
7975, 76, 77, 78syl3anc 1396 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((𝑚 + 1) · 𝑋) ∈ 𝐵)
8063a1i 11 . . . . . . . . . . . 12 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → 2 ∈ ℤ)
8160, 80zaddcld 12703 . . . . . . . . . . 11 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (𝑚 + 2) ∈ ℤ)
827, 8mulgcl 19156 . . . . . . . . . . 11 ((𝑊 ∈ Grp ∧ (𝑚 + 2) ∈ ℤ ∧ 𝑋𝐵) → ((𝑚 + 2) · 𝑋) ∈ 𝐵)
8375, 81, 77, 82syl3anc 1396 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((𝑚 + 2) · 𝑋) ∈ 𝐵)
8475, 32syl 18 . . . . . . . . . . . 12 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → 0𝐵)
8516ad2antrr 738 . . . . . . . . . . . 12 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → 0 < 𝑋)
86 eqid 2769 . . . . . . . . . . . . 13 (+g𝑊) = (+g𝑊)
877, 17, 86ogrpaddlt 20207 . . . . . . . . . . . 12 ((𝑊 ∈ oGrp ∧ ( 0𝐵𝑋𝐵 ∧ ((𝑚 + 1) · 𝑋) ∈ 𝐵) ∧ 0 < 𝑋) → ( 0 (+g𝑊)((𝑚 + 1) · 𝑋)) < (𝑋(+g𝑊)((𝑚 + 1) · 𝑋)))
8871, 84, 77, 79, 85, 87syl131anc 1408 . . . . . . . . . . 11 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ( 0 (+g𝑊)((𝑚 + 1) · 𝑋)) < (𝑋(+g𝑊)((𝑚 + 1) · 𝑋)))
897, 86, 18grplid 19033 . . . . . . . . . . . 12 ((𝑊 ∈ Grp ∧ ((𝑚 + 1) · 𝑋) ∈ 𝐵) → ( 0 (+g𝑊)((𝑚 + 1) · 𝑋)) = ((𝑚 + 1) · 𝑋))
9075, 79, 89syl2anc 595 . . . . . . . . . . 11 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ( 0 (+g𝑊)((𝑚 + 1) · 𝑋)) = ((𝑚 + 1) · 𝑋))
91 1cnd 11201 . . . . . . . . . . . . . . . . 17 (𝑚 ∈ ℕ0 → 1 ∈ ℂ)
9266, 91, 91addassd 11230 . . . . . . . . . . . . . . . 16 (𝑚 ∈ ℕ0 → ((𝑚 + 1) + 1) = (𝑚 + (1 + 1)))
93 1p1e2 12363 . . . . . . . . . . . . . . . . 17 (1 + 1) = 2
9493oveq2i 7422 . . . . . . . . . . . . . . . 16 (𝑚 + (1 + 1)) = (𝑚 + 2)
9592, 94eqtrdi 2820 . . . . . . . . . . . . . . 15 (𝑚 ∈ ℕ0 → ((𝑚 + 1) + 1) = (𝑚 + 2))
9666, 91addcld 11227 . . . . . . . . . . . . . . . 16 (𝑚 ∈ ℕ0 → (𝑚 + 1) ∈ ℂ)
9796, 91addcomd 11411 . . . . . . . . . . . . . . 15 (𝑚 ∈ ℕ0 → ((𝑚 + 1) + 1) = (1 + (𝑚 + 1)))
9895, 97eqtr3d 2806 . . . . . . . . . . . . . 14 (𝑚 ∈ ℕ0 → (𝑚 + 2) = (1 + (𝑚 + 1)))
9998oveq1d 7426 . . . . . . . . . . . . 13 (𝑚 ∈ ℕ0 → ((𝑚 + 2) · 𝑋) = ((1 + (𝑚 + 1)) · 𝑋))
10099adantl 486 . . . . . . . . . . . 12 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((𝑚 + 2) · 𝑋) = ((1 + (𝑚 + 1)) · 𝑋))
101 1zzd 12624 . . . . . . . . . . . . 13 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → 1 ∈ ℤ)
1027, 8, 86mulgdir 19171 . . . . . . . . . . . . 13 ((𝑊 ∈ Grp ∧ (1 ∈ ℤ ∧ (𝑚 + 1) ∈ ℤ ∧ 𝑋𝐵)) → ((1 + (𝑚 + 1)) · 𝑋) = ((1 · 𝑋)(+g𝑊)((𝑚 + 1) · 𝑋)))
10375, 101, 76, 77, 102syl13anc 1397 . . . . . . . . . . . 12 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((1 + (𝑚 + 1)) · 𝑋) = ((1 · 𝑋)(+g𝑊)((𝑚 + 1) · 𝑋)))
10477, 12syl 18 . . . . . . . . . . . . 13 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (1 · 𝑋) = 𝑋)
105104oveq1d 7426 . . . . . . . . . . . 12 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((1 · 𝑋)(+g𝑊)((𝑚 + 1) · 𝑋)) = (𝑋(+g𝑊)((𝑚 + 1) · 𝑋)))
106100, 103, 1053eqtrrd 2809 . . . . . . . . . . 11 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (𝑋(+g𝑊)((𝑚 + 1) · 𝑋)) = ((𝑚 + 2) · 𝑋))
10788, 90, 1063brtr3d 5146 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((𝑚 + 1) · 𝑋) < ((𝑚 + 2) · 𝑋))
1087, 17, 9ogrpinvlt 20213 . . . . . . . . . . 11 (((𝑊 ∈ oGrp ∧ (oppg𝑊) ∈ oGrp) ∧ ((𝑚 + 1) · 𝑋) ∈ 𝐵 ∧ ((𝑚 + 2) · 𝑋) ∈ 𝐵) → (((𝑚 + 1) · 𝑋) < ((𝑚 + 2) · 𝑋) ↔ ((invg𝑊)‘((𝑚 + 2) · 𝑋)) < ((invg𝑊)‘((𝑚 + 1) · 𝑋))))
109108biimpa 481 . . . . . . . . . 10 ((((𝑊 ∈ oGrp ∧ (oppg𝑊) ∈ oGrp) ∧ ((𝑚 + 1) · 𝑋) ∈ 𝐵 ∧ ((𝑚 + 2) · 𝑋) ∈ 𝐵) ∧ ((𝑚 + 1) · 𝑋) < ((𝑚 + 2) · 𝑋)) → ((invg𝑊)‘((𝑚 + 2) · 𝑋)) < ((invg𝑊)‘((𝑚 + 1) · 𝑋)))
11074, 79, 83, 107, 109syl31anc 1398 . . . . . . . . 9 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((invg𝑊)‘((𝑚 + 2) · 𝑋)) < ((invg𝑊)‘((𝑚 + 1) · 𝑋)))
1117, 8, 9mulgneg 19157 . . . . . . . . . 10 ((𝑊 ∈ Grp ∧ (𝑚 + 2) ∈ ℤ ∧ 𝑋𝐵) → (-(𝑚 + 2) · 𝑋) = ((invg𝑊)‘((𝑚 + 2) · 𝑋)))
11275, 81, 77, 111syl3anc 1396 . . . . . . . . 9 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (-(𝑚 + 2) · 𝑋) = ((invg𝑊)‘((𝑚 + 2) · 𝑋)))
1137, 8, 9mulgneg 19157 . . . . . . . . . 10 ((𝑊 ∈ Grp ∧ (𝑚 + 1) ∈ ℤ ∧ 𝑋𝐵) → (-(𝑚 + 1) · 𝑋) = ((invg𝑊)‘((𝑚 + 1) · 𝑋)))
11475, 76, 77, 113syl3anc 1396 . . . . . . . . 9 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (-(𝑚 + 1) · 𝑋) = ((invg𝑊)‘((𝑚 + 1) · 𝑋)))
115110, 112, 1143brtr4d 5147 . . . . . . . 8 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (-(𝑚 + 2) · 𝑋) < (-(𝑚 + 1) · 𝑋))
11670, 115eqbrtrrd 5139 . . . . . . 7 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((-𝑚 − 2) · 𝑋) < (-(𝑚 + 1) · 𝑋))
117116ad2antrr 738 . . . . . 6 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → ((-𝑚 − 2) · 𝑋) < (-(𝑚 + 1) · 𝑋))
118114ad2antrr 738 . . . . . . 7 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → (-(𝑚 + 1) · 𝑋) = ((invg𝑊)‘((𝑚 + 1) · 𝑋)))
11931ad4antr 744 . . . . . . . . 9 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → 𝑊 ∈ Poset)
120 archirng.4 . . . . . . . . . . . 12 (𝜑𝑌𝐵)
1217, 9grpinvcl 19053 . . . . . . . . . . . 12 ((𝑊 ∈ Grp ∧ 𝑌𝐵) → ((invg𝑊)‘𝑌) ∈ 𝐵)
1224, 120, 121syl2anc 595 . . . . . . . . . . 11 (𝜑 → ((invg𝑊)‘𝑌) ∈ 𝐵)
123122ad2antrr 738 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((invg𝑊)‘𝑌) ∈ 𝐵)
124123ad2antrr 738 . . . . . . . . 9 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → ((invg𝑊)‘𝑌) ∈ 𝐵)
12579ad2antrr 738 . . . . . . . . 9 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → ((𝑚 + 1) · 𝑋) ∈ 𝐵)
126 simplrr 789 . . . . . . . . 9 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))
127 simpr 489 . . . . . . . . 9 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌))
1287, 34posasymb 18374 . . . . . . . . . 10 ((𝑊 ∈ Poset ∧ ((invg𝑊)‘𝑌) ∈ 𝐵 ∧ ((𝑚 + 1) · 𝑋) ∈ 𝐵) → ((((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) ↔ ((invg𝑊)‘𝑌) = ((𝑚 + 1) · 𝑋)))
129128biimpa 481 . . . . . . . . 9 (((𝑊 ∈ Poset ∧ ((invg𝑊)‘𝑌) ∈ 𝐵 ∧ ((𝑚 + 1) · 𝑋) ∈ 𝐵) ∧ (((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌))) → ((invg𝑊)‘𝑌) = ((𝑚 + 1) · 𝑋))
130119, 124, 125, 126, 127, 129syl32anc 1403 . . . . . . . 8 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → ((invg𝑊)‘𝑌) = ((𝑚 + 1) · 𝑋))
131130fveq2d 6886 . . . . . . 7 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → ((invg𝑊)‘((invg𝑊)‘𝑌)) = ((invg𝑊)‘((𝑚 + 1) · 𝑋)))
1327, 9grpinvinv 19071 . . . . . . . . 9 ((𝑊 ∈ Grp ∧ 𝑌𝐵) → ((invg𝑊)‘((invg𝑊)‘𝑌)) = 𝑌)
1334, 120, 132syl2anc 595 . . . . . . . 8 (𝜑 → ((invg𝑊)‘((invg𝑊)‘𝑌)) = 𝑌)
134133ad4antr 744 . . . . . . 7 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → ((invg𝑊)‘((invg𝑊)‘𝑌)) = 𝑌)
135118, 131, 1343eqtr2rd 2811 . . . . . 6 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → 𝑌 = (-(𝑚 + 1) · 𝑋))
136117, 135breqtrrd 5143 . . . . 5 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → ((-𝑚 − 2) · 𝑋) < 𝑌)
137 1cnd 11201 . . . . . . . . . . . . 13 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → 1 ∈ ℂ)
13867, 68, 137addsubassd 11588 . . . . . . . . . . . 12 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((𝑚 + 2) − 1) = (𝑚 + (2 − 1)))
139 2m1e1 12364 . . . . . . . . . . . . 13 (2 − 1) = 1
140139oveq2i 7422 . . . . . . . . . . . 12 (𝑚 + (2 − 1)) = (𝑚 + 1)
141138, 140eqtr2di 2821 . . . . . . . . . . 11 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (𝑚 + 1) = ((𝑚 + 2) − 1))
142141negeqd 11450 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → -(𝑚 + 1) = -((𝑚 + 2) − 1))
14367, 68addcld 11227 . . . . . . . . . . 11 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (𝑚 + 2) ∈ ℂ)
144143, 137negsubdid 11583 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → -((𝑚 + 2) − 1) = (-(𝑚 + 2) + 1))
14569oveq1d 7426 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (-(𝑚 + 2) + 1) = ((-𝑚 − 2) + 1))
146142, 144, 1453eqtrrd 2809 . . . . . . . . 9 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((-𝑚 − 2) + 1) = -(𝑚 + 1))
147146oveq1d 7426 . . . . . . . 8 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (((-𝑚 − 2) + 1) · 𝑋) = (-(𝑚 + 1) · 𝑋))
14829ad2antrr 738 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → 𝑊 ∈ Toset)
149148, 30syl 18 . . . . . . . . 9 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → 𝑊 ∈ Poset)
15060znegcld 12701 . . . . . . . . . . . 12 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → -𝑚 ∈ ℤ)
151150, 80zsubcld 12704 . . . . . . . . . . 11 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (-𝑚 − 2) ∈ ℤ)
152151peano2zd 12702 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((-𝑚 − 2) + 1) ∈ ℤ)
1537, 8mulgcl 19156 . . . . . . . . . 10 ((𝑊 ∈ Grp ∧ ((-𝑚 − 2) + 1) ∈ ℤ ∧ 𝑋𝐵) → (((-𝑚 − 2) + 1) · 𝑋) ∈ 𝐵)
15475, 152, 77, 153syl3anc 1396 . . . . . . . . 9 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (((-𝑚 − 2) + 1) · 𝑋) ∈ 𝐵)
1557, 34posref 18373 . . . . . . . . 9 ((𝑊 ∈ Poset ∧ (((-𝑚 − 2) + 1) · 𝑋) ∈ 𝐵) → (((-𝑚 − 2) + 1) · 𝑋) (((-𝑚 − 2) + 1) · 𝑋))
156149, 154, 155syl2anc 595 . . . . . . . 8 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (((-𝑚 − 2) + 1) · 𝑋) (((-𝑚 − 2) + 1) · 𝑋))
157147, 156eqbrtrrd 5139 . . . . . . 7 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (-(𝑚 + 1) · 𝑋) (((-𝑚 − 2) + 1) · 𝑋))
158157ad2antrr 738 . . . . . 6 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → (-(𝑚 + 1) · 𝑋) (((-𝑚 − 2) + 1) · 𝑋))
159135, 158eqbrtrd 5137 . . . . 5 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → 𝑌 (((-𝑚 − 2) + 1) · 𝑋))
160 oveq1 7418 . . . . . . . 8 (𝑛 = (-𝑚 − 2) → (𝑛 · 𝑋) = ((-𝑚 − 2) · 𝑋))
161160breq1d 5123 . . . . . . 7 (𝑛 = (-𝑚 − 2) → ((𝑛 · 𝑋) < 𝑌 ↔ ((-𝑚 − 2) · 𝑋) < 𝑌))
162 oveq1 7418 . . . . . . . . 9 (𝑛 = (-𝑚 − 2) → (𝑛 + 1) = ((-𝑚 − 2) + 1))
163162oveq1d 7426 . . . . . . . 8 (𝑛 = (-𝑚 − 2) → ((𝑛 + 1) · 𝑋) = (((-𝑚 − 2) + 1) · 𝑋))
164163breq2d 5125 . . . . . . 7 (𝑛 = (-𝑚 − 2) → (𝑌 ((𝑛 + 1) · 𝑋) ↔ 𝑌 (((-𝑚 − 2) + 1) · 𝑋)))
165161, 164anbi12d 643 . . . . . 6 (𝑛 = (-𝑚 − 2) → (((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)) ↔ (((-𝑚 − 2) · 𝑋) < 𝑌𝑌 (((-𝑚 − 2) + 1) · 𝑋))))
166165rspcev 3590 . . . . 5 (((-𝑚 − 2) ∈ ℤ ∧ (((-𝑚 − 2) · 𝑋) < 𝑌𝑌 (((-𝑚 − 2) + 1) · 𝑋))) → ∃𝑛 ∈ ℤ ((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)))
16765, 136, 159, 166syl12anc 849 . . . 4 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → ∃𝑛 ∈ ℤ ((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)))
16876ad2antrr 738 . . . . . 6 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → (𝑚 + 1) ∈ ℤ)
169168znegcld 12701 . . . . 5 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → -(𝑚 + 1) ∈ ℤ)
1702ad2antrr 738 . . . . . . . . 9 (((𝜑𝑌 < 0 ) ∧ (𝑚 ∈ ℕ0 ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋)) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋))) → 𝑊 ∈ oGrp)
17172ad2antrr 738 . . . . . . . . 9 (((𝜑𝑌 < 0 ) ∧ (𝑚 ∈ ℕ0 ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋)) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋))) → (oppg𝑊) ∈ oGrp)
172170, 171jca 520 . . . . . . . 8 (((𝜑𝑌 < 0 ) ∧ (𝑚 ∈ ℕ0 ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋)) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋))) → (𝑊 ∈ oGrp ∧ (oppg𝑊) ∈ oGrp))
1731723anassrs 1379 . . . . . . 7 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → (𝑊 ∈ oGrp ∧ (oppg𝑊) ∈ oGrp))
174123ad2antrr 738 . . . . . . 7 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → ((invg𝑊)‘𝑌) ∈ 𝐵)
17579ad2antrr 738 . . . . . . 7 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → ((𝑚 + 1) · 𝑋) ∈ 𝐵)
176 simpr 489 . . . . . . 7 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋))
1777, 17, 9ogrpinvlt 20213 . . . . . . . 8 (((𝑊 ∈ oGrp ∧ (oppg𝑊) ∈ oGrp) ∧ ((invg𝑊)‘𝑌) ∈ 𝐵 ∧ ((𝑚 + 1) · 𝑋) ∈ 𝐵) → (((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋) ↔ ((invg𝑊)‘((𝑚 + 1) · 𝑋)) < ((invg𝑊)‘((invg𝑊)‘𝑌))))
178177biimpa 481 . . . . . . 7 ((((𝑊 ∈ oGrp ∧ (oppg𝑊) ∈ oGrp) ∧ ((invg𝑊)‘𝑌) ∈ 𝐵 ∧ ((𝑚 + 1) · 𝑋) ∈ 𝐵) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → ((invg𝑊)‘((𝑚 + 1) · 𝑋)) < ((invg𝑊)‘((invg𝑊)‘𝑌)))
179173, 174, 175, 176, 178syl31anc 1398 . . . . . 6 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → ((invg𝑊)‘((𝑚 + 1) · 𝑋)) < ((invg𝑊)‘((invg𝑊)‘𝑌)))
180114ad2antrr 738 . . . . . . 7 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → (-(𝑚 + 1) · 𝑋) = ((invg𝑊)‘((𝑚 + 1) · 𝑋)))
181180eqcomd 2775 . . . . . 6 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → ((invg𝑊)‘((𝑚 + 1) · 𝑋)) = (-(𝑚 + 1) · 𝑋))
182133ad4antr 744 . . . . . 6 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → ((invg𝑊)‘((invg𝑊)‘𝑌)) = 𝑌)
183179, 181, 1823brtr3d 5146 . . . . 5 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → (-(𝑚 + 1) · 𝑋) < 𝑌)
184 simp-4l 794 . . . . . 6 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → 𝜑)
1857, 8mulgcl 19156 . . . . . . . . . . . 12 ((𝑊 ∈ Grp ∧ 𝑚 ∈ ℤ ∧ 𝑋𝐵) → (𝑚 · 𝑋) ∈ 𝐵)
18675, 60, 77, 185syl3anc 1396 . . . . . . . . . . 11 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (𝑚 · 𝑋) ∈ 𝐵)
1877, 17, 9ogrpinvlt 20213 . . . . . . . . . . 11 (((𝑊 ∈ oGrp ∧ (oppg𝑊) ∈ oGrp) ∧ (𝑚 · 𝑋) ∈ 𝐵 ∧ ((invg𝑊)‘𝑌) ∈ 𝐵) → ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ↔ ((invg𝑊)‘((invg𝑊)‘𝑌)) < ((invg𝑊)‘(𝑚 · 𝑋))))
18874, 186, 123, 187syl3anc 1396 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ↔ ((invg𝑊)‘((invg𝑊)‘𝑌)) < ((invg𝑊)‘(𝑚 · 𝑋))))
189188biimpa 481 . . . . . . . . 9 ((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ (𝑚 · 𝑋) < ((invg𝑊)‘𝑌)) → ((invg𝑊)‘((invg𝑊)‘𝑌)) < ((invg𝑊)‘(𝑚 · 𝑋)))
190189adantrr 729 . . . . . . . 8 ((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) → ((invg𝑊)‘((invg𝑊)‘𝑌)) < ((invg𝑊)‘(𝑚 · 𝑋)))
191190adantr 485 . . . . . . 7 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → ((invg𝑊)‘((invg𝑊)‘𝑌)) < ((invg𝑊)‘(𝑚 · 𝑋)))
192 negdi 11514 . . . . . . . . . . . . . . 15 ((𝑚 ∈ ℂ ∧ 1 ∈ ℂ) → -(𝑚 + 1) = (-𝑚 + -1))
19366, 40, 192sylancl 597 . . . . . . . . . . . . . 14 (𝑚 ∈ ℕ0 → -(𝑚 + 1) = (-𝑚 + -1))
194193oveq1d 7426 . . . . . . . . . . . . 13 (𝑚 ∈ ℕ0 → (-(𝑚 + 1) + 1) = ((-𝑚 + -1) + 1))
19566negcld 11555 . . . . . . . . . . . . . . 15 (𝑚 ∈ ℕ0 → -𝑚 ∈ ℂ)
19691negcld 11555 . . . . . . . . . . . . . . 15 (𝑚 ∈ ℕ0 → -1 ∈ ℂ)
197195, 196, 91addassd 11230 . . . . . . . . . . . . . 14 (𝑚 ∈ ℕ0 → ((-𝑚 + -1) + 1) = (-𝑚 + (-1 + 1)))
19843oveq2i 7422 . . . . . . . . . . . . . . 15 (-𝑚 + (-1 + 1)) = (-𝑚 + 0)
199198a1i 11 . . . . . . . . . . . . . 14 (𝑚 ∈ ℕ0 → (-𝑚 + (-1 + 1)) = (-𝑚 + 0))
200195addridd 11409 . . . . . . . . . . . . . 14 (𝑚 ∈ ℕ0 → (-𝑚 + 0) = -𝑚)
201197, 199, 2003eqtrd 2808 . . . . . . . . . . . . 13 (𝑚 ∈ ℕ0 → ((-𝑚 + -1) + 1) = -𝑚)
202194, 201eqtrd 2804 . . . . . . . . . . . 12 (𝑚 ∈ ℕ0 → (-(𝑚 + 1) + 1) = -𝑚)
203202oveq1d 7426 . . . . . . . . . . 11 (𝑚 ∈ ℕ0 → ((-(𝑚 + 1) + 1) · 𝑋) = (-𝑚 · 𝑋))
204203adantl 486 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((-(𝑚 + 1) + 1) · 𝑋) = (-𝑚 · 𝑋))
2057, 8, 9mulgneg 19157 . . . . . . . . . . 11 ((𝑊 ∈ Grp ∧ 𝑚 ∈ ℤ ∧ 𝑋𝐵) → (-𝑚 · 𝑋) = ((invg𝑊)‘(𝑚 · 𝑋)))
20675, 60, 77, 205syl3anc 1396 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (-𝑚 · 𝑋) = ((invg𝑊)‘(𝑚 · 𝑋)))
207204, 206eqtrd 2804 . . . . . . . . 9 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((-(𝑚 + 1) + 1) · 𝑋) = ((invg𝑊)‘(𝑚 · 𝑋)))
208207ad2antrr 738 . . . . . . . 8 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → ((-(𝑚 + 1) + 1) · 𝑋) = ((invg𝑊)‘(𝑚 · 𝑋)))
209208eqcomd 2775 . . . . . . 7 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → ((invg𝑊)‘(𝑚 · 𝑋)) = ((-(𝑚 + 1) + 1) · 𝑋))
210191, 182, 2093brtr3d 5146 . . . . . 6 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → 𝑌 < ((-(𝑚 + 1) + 1) · 𝑋))
211 ovexd 7446 . . . . . . 7 (𝜑 → ((-(𝑚 + 1) + 1) · 𝑋) ∈ V)
21234, 17pltle 18386 . . . . . . 7 ((𝑊 ∈ oGrp ∧ 𝑌𝐵 ∧ ((-(𝑚 + 1) + 1) · 𝑋) ∈ V) → (𝑌 < ((-(𝑚 + 1) + 1) · 𝑋) → 𝑌 ((-(𝑚 + 1) + 1) · 𝑋)))
2132, 120, 211, 212syl3anc 1396 . . . . . 6 (𝜑 → (𝑌 < ((-(𝑚 + 1) + 1) · 𝑋) → 𝑌 ((-(𝑚 + 1) + 1) · 𝑋)))
214184, 210, 213sylc 66 . . . . 5 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → 𝑌 ((-(𝑚 + 1) + 1) · 𝑋))
215 oveq1 7418 . . . . . . . 8 (𝑛 = -(𝑚 + 1) → (𝑛 · 𝑋) = (-(𝑚 + 1) · 𝑋))
216215breq1d 5123 . . . . . . 7 (𝑛 = -(𝑚 + 1) → ((𝑛 · 𝑋) < 𝑌 ↔ (-(𝑚 + 1) · 𝑋) < 𝑌))
217 oveq1 7418 . . . . . . . . 9 (𝑛 = -(𝑚 + 1) → (𝑛 + 1) = (-(𝑚 + 1) + 1))
218217oveq1d 7426 . . . . . . . 8 (𝑛 = -(𝑚 + 1) → ((𝑛 + 1) · 𝑋) = ((-(𝑚 + 1) + 1) · 𝑋))
219218breq2d 5125 . . . . . . 7 (𝑛 = -(𝑚 + 1) → (𝑌 ((𝑛 + 1) · 𝑋) ↔ 𝑌 ((-(𝑚 + 1) + 1) · 𝑋)))
220216, 219anbi12d 643 . . . . . 6 (𝑛 = -(𝑚 + 1) → (((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)) ↔ ((-(𝑚 + 1) · 𝑋) < 𝑌𝑌 ((-(𝑚 + 1) + 1) · 𝑋))))
221220rspcev 3590 . . . . 5 ((-(𝑚 + 1) ∈ ℤ ∧ ((-(𝑚 + 1) · 𝑋) < 𝑌𝑌 ((-(𝑚 + 1) + 1) · 𝑋))) → ∃𝑛 ∈ ℤ ((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)))
222169, 183, 214, 221syl12anc 849 . . . 4 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → ∃𝑛 ∈ ℤ ((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)))
2237, 34, 17tlt2 33229 . . . . . 6 ((𝑊 ∈ Toset ∧ ((𝑚 + 1) · 𝑋) ∈ 𝐵 ∧ ((invg𝑊)‘𝑌) ∈ 𝐵) → (((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌) ∨ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)))
224148, 79, 123, 223syl3anc 1396 . . . . 5 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌) ∨ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)))
225224adantr 485 . . . 4 ((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) → (((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌) ∨ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)))
226167, 222, 225mpjaodan 973 . . 3 ((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) → ∃𝑛 ∈ ℤ ((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)))
2272adantr 485 . . . 4 ((𝜑𝑌 < 0 ) → 𝑊 ∈ oGrp)
228 archirng.2 . . . . 5 (𝜑𝑊 ∈ Archi)
229228adantr 485 . . . 4 ((𝜑𝑌 < 0 ) → 𝑊 ∈ Archi)
2306adantr 485 . . . 4 ((𝜑𝑌 < 0 ) → 𝑋𝐵)
231122adantr 485 . . . 4 ((𝜑𝑌 < 0 ) → ((invg𝑊)‘𝑌) ∈ 𝐵)
23216adantr 485 . . . 4 ((𝜑𝑌 < 0 ) → 0 < 𝑋)
233133breq1d 5123 . . . . . 6 (𝜑 → (((invg𝑊)‘((invg𝑊)‘𝑌)) < 0𝑌 < 0 ))
234233biimpar 482 . . . . 5 ((𝜑𝑌 < 0 ) → ((invg𝑊)‘((invg𝑊)‘𝑌)) < 0 )
2357, 17, 9, 18ogrpinv0lt 20212 . . . . . . 7 ((𝑊 ∈ oGrp ∧ ((invg𝑊)‘𝑌) ∈ 𝐵) → ( 0 < ((invg𝑊)‘𝑌) ↔ ((invg𝑊)‘((invg𝑊)‘𝑌)) < 0 ))
2362, 122, 235syl2anc 595 . . . . . 6 (𝜑 → ( 0 < ((invg𝑊)‘𝑌) ↔ ((invg𝑊)‘((invg𝑊)‘𝑌)) < 0 ))
237236biimpar 482 . . . . 5 ((𝜑 ∧ ((invg𝑊)‘((invg𝑊)‘𝑌)) < 0 ) → 0 < ((invg𝑊)‘𝑌))
238234, 237syldan 602 . . . 4 ((𝜑𝑌 < 0 ) → 0 < ((invg𝑊)‘𝑌))
2397, 18, 17, 34, 8, 227, 229, 230, 231, 232, 238archirng 33448 . . 3 ((𝜑𝑌 < 0 ) → ∃𝑚 ∈ ℕ0 ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋)))
240226, 239r19.29a 3179 . 2 ((𝜑𝑌 < 0 ) → ∃𝑛 ∈ ℤ ((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)))
241 nn0ssz 12613 . . 3 0 ⊆ ℤ
2422adantr 485 . . . 4 ((𝜑0 < 𝑌) → 𝑊 ∈ oGrp)
243228adantr 485 . . . 4 ((𝜑0 < 𝑌) → 𝑊 ∈ Archi)
2446adantr 485 . . . 4 ((𝜑0 < 𝑌) → 𝑋𝐵)
245120adantr 485 . . . 4 ((𝜑0 < 𝑌) → 𝑌𝐵)
24616adantr 485 . . . 4 ((𝜑0 < 𝑌) → 0 < 𝑋)
247 simpr 489 . . . 4 ((𝜑0 < 𝑌) → 0 < 𝑌)
2487, 18, 17, 34, 8, 242, 243, 244, 245, 246, 247archirng 33448 . . 3 ((𝜑0 < 𝑌) → ∃𝑛 ∈ ℕ0 ((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)))
249 ssrexv 4015 . . 3 (ℕ0 ⊆ ℤ → (∃𝑛 ∈ ℕ0 ((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)) → ∃𝑛 ∈ ℤ ((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋))))
250241, 248, 249mpsyl 69 . 2 ((𝜑0 < 𝑌) → ∃𝑛 ∈ ℤ ((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)))
2517, 17tlt3 33230 . . 3 ((𝑊 ∈ Toset ∧ 𝑌𝐵0𝐵) → (𝑌 = 0𝑌 < 00 < 𝑌))
25229, 120, 33, 251syl3anc 1396 . 2 (𝜑 → (𝑌 = 0𝑌 < 00 < 𝑌))
25358, 240, 250, 252mpjao3dan 1457 1 (𝜑 → ∃𝑛 ∈ ℤ ((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 209  wa 400  wo 860  w3o 1100  w3a 1101   = wceq 1567  wcel 2149  wrex 3095  Vcvv 3463  wss 3913   class class class wbr 5113  cfv 6537  (class class class)co 7411  cc 11097  0cc0 11099  1c1 11100   + caddc 11102  cmin 11440  -cneg 11441  2c2 12294  0cn0 12503  cz 12590  Basecbs 17268  +gcplusg 17309  lecple 17316  0gc0g 17491  Posetcpo 18362  ltcplt 18363  Tosetctos 18469  Grpcgrp 18999  invgcminusg 19000  .gcmg 19132  oppgcoppg 19414  oMndcomnd 20188  oGrpcogrp 20189  Archicarchi 33437
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-10 2182  ax-11 2198  ax-12 2219  ax-ext 2741  ax-sep 5261  ax-nul 5271  ax-pow 5337  ax-pr 5405  ax-un 7733  ax-cnex 11155  ax-resscn 11156  ax-1cn 11157  ax-icn 11158  ax-addcl 11159  ax-addrcl 11160  ax-mulcl 11161  ax-mulrcl 11162  ax-mulcom 11163  ax-addass 11164  ax-mulass 11165  ax-distr 11166  ax-i2m1 11167  ax-1ne0 11168  ax-1rid 11169  ax-rnegex 11170  ax-rrecex 11171  ax-cnre 11172  ax-pre-lttri 11173  ax-pre-lttrn 11174  ax-pre-ltadd 11175  ax-pre-mulgt0 11176
This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1102  df-3an 1103  df-tru 1570  df-fal 1580  df-ex 1807  df-nf 1811  df-sb 2098  df-mo 2573  df-eu 2603  df-clab 2748  df-cleq 2761  df-clel 2844  df-nfc 2918  df-ne 2965  df-nel 3071  df-ral 3086  df-rex 3096  df-rmo 3376  df-reu 3377  df-rab 3424  df-v 3465  df-sbc 3754  df-csb 3862  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-pss 3933  df-nul 4295  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-op 4601  df-uni 4877  df-iun 4962  df-br 5114  df-opab 5178  df-mpt 5197  df-tr 5223  df-id 5557  df-eprel 5562  df-po 5570  df-so 5571  df-fr 5615  df-we 5617  df-xp 5668  df-rel 5669  df-cnv 5670  df-co 5671  df-dm 5672  df-rn 5673  df-res 5674  df-ima 5675  df-pred 6303  df-ord 6364  df-on 6365  df-lim 6366  df-suc 6367  df-iota 6493  df-fun 6539  df-fn 6540  df-f 6541  df-f1 6542  df-fo 6543  df-f1o 6544  df-fv 6545  df-riota 7368  df-ov 7414  df-oprab 7415  df-mpo 7416  df-om 7862  df-1st 7985  df-2nd 7986  df-tpos 8221  df-frecs 8277  df-wrecs 8308  df-recs 8357  df-rdg 8396  df-er 8693  df-en 8943  df-dom 8944  df-sdom 8945  df-pnf 11244  df-mnf 11245  df-xr 11246  df-ltxr 11247  df-le 11248  df-sub 11442  df-neg 11443  df-nn 12233  df-2 12302  df-3 12303  df-4 12304  df-5 12305  df-6 12306  df-7 12307  df-8 12308  df-9 12309  df-n0 12504  df-z 12591  df-dec 12711  df-uz 12862  df-fz 13535  df-seq 14037  df-sets 17223  df-slot 17241  df-ndx 17253  df-base 17269  df-plusg 17322  df-ple 17329  df-0g 17493  df-proset 18349  df-poset 18368  df-plt 18383  df-toset 18470  df-mgm 18697  df-sgrp 18776  df-mnd 18792  df-grp 19002  df-minusg 19003  df-mulg 19133  df-oppg 19415  df-omnd 20190  df-ogrp 20191  df-inftm 33438  df-archi 33439
This theorem is referenced by:  archiabllem2c  33455
  Copyright terms: Public domain W3C validator