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 33178
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 12650 . . 3 -1 ∈ ℤ
2 archirng.1 . . . . . . . . . 10 (𝜑𝑊 ∈ oGrp)
3 ogrpgrp 33062 . . . . . . . . . 10 (𝑊 ∈ oGrp → 𝑊 ∈ Grp)
42, 3syl 17 . . . . . . . . 9 (𝜑𝑊 ∈ Grp)
5 1zzd 12645 . . . . . . . . 9 (𝜑 → 1 ∈ ℤ)
6 archirng.3 . . . . . . . . 9 (𝜑𝑋𝐵)
7 archirng.b . . . . . . . . . 10 𝐵 = (Base‘𝑊)
8 archirng.x . . . . . . . . . 10 · = (.g𝑊)
9 eqid 2734 . . . . . . . . . 10 (invg𝑊) = (invg𝑊)
107, 8, 9mulgneg 19122 . . . . . . . . 9 ((𝑊 ∈ Grp ∧ 1 ∈ ℤ ∧ 𝑋𝐵) → (-1 · 𝑋) = ((invg𝑊)‘(1 · 𝑋)))
114, 5, 6, 10syl3anc 1370 . . . . . . . 8 (𝜑 → (-1 · 𝑋) = ((invg𝑊)‘(1 · 𝑋)))
127, 8mulg1 19111 . . . . . . . . . 10 (𝑋𝐵 → (1 · 𝑋) = 𝑋)
136, 12syl 17 . . . . . . . . 9 (𝜑 → (1 · 𝑋) = 𝑋)
1413fveq2d 6910 . . . . . . . 8 (𝜑 → ((invg𝑊)‘(1 · 𝑋)) = ((invg𝑊)‘𝑋))
1511, 14eqtrd 2774 . . . . . . 7 (𝜑 → (-1 · 𝑋) = ((invg𝑊)‘𝑋))
16 archirng.5 . . . . . . . 8 (𝜑0 < 𝑋)
17 archirng.i . . . . . . . . . 10 < = (lt‘𝑊)
18 archirng.0 . . . . . . . . . 10 0 = (0g𝑊)
197, 17, 9, 18ogrpinv0lt 33081 . . . . . . . . 9 ((𝑊 ∈ oGrp ∧ 𝑋𝐵) → ( 0 < 𝑋 ↔ ((invg𝑊)‘𝑋) < 0 ))
2019biimpa 476 . . . . . . . 8 (((𝑊 ∈ oGrp ∧ 𝑋𝐵) ∧ 0 < 𝑋) → ((invg𝑊)‘𝑋) < 0 )
212, 6, 16, 20syl21anc 838 . . . . . . 7 (𝜑 → ((invg𝑊)‘𝑋) < 0 )
2215, 21eqbrtrd 5169 . . . . . 6 (𝜑 → (-1 · 𝑋) < 0 )
2322adantr 480 . . . . 5 ((𝜑𝑌 = 0 ) → (-1 · 𝑋) < 0 )
24 simpr 484 . . . . 5 ((𝜑𝑌 = 0 ) → 𝑌 = 0 )
2523, 24breqtrrd 5175 . . . 4 ((𝜑𝑌 = 0 ) → (-1 · 𝑋) < 𝑌)
26 isogrp 33061 . . . . . . . . . 10 (𝑊 ∈ oGrp ↔ (𝑊 ∈ Grp ∧ 𝑊 ∈ oMnd))
2726simprbi 496 . . . . . . . . 9 (𝑊 ∈ oGrp → 𝑊 ∈ oMnd)
28 omndtos 33064 . . . . . . . . 9 (𝑊 ∈ oMnd → 𝑊 ∈ Toset)
292, 27, 283syl 18 . . . . . . . 8 (𝜑𝑊 ∈ Toset)
30 tospos 18477 . . . . . . . 8 (𝑊 ∈ Toset → 𝑊 ∈ Poset)
3129, 30syl 17 . . . . . . 7 (𝜑𝑊 ∈ Poset)
327, 18grpidcl 18995 . . . . . . . 8 (𝑊 ∈ Grp → 0𝐵)
332, 3, 323syl 18 . . . . . . 7 (𝜑0𝐵)
34 archirng.l . . . . . . . 8 = (le‘𝑊)
357, 34posref 18375 . . . . . . 7 ((𝑊 ∈ Poset ∧ 0𝐵) → 0 0 )
3631, 33, 35syl2anc 584 . . . . . 6 (𝜑0 0 )
3736adantr 480 . . . . 5 ((𝜑𝑌 = 0 ) → 0 0 )
38 1m1e0 12335 . . . . . . . . . 10 (1 − 1) = 0
3938negeqi 11498 . . . . . . . . 9 -(1 − 1) = -0
40 ax-1cn 11210 . . . . . . . . . 10 1 ∈ ℂ
4140, 40negsubdii 11591 . . . . . . . . 9 -(1 − 1) = (-1 + 1)
42 neg0 11552 . . . . . . . . 9 -0 = 0
4339, 41, 423eqtr3i 2770 . . . . . . . 8 (-1 + 1) = 0
4443oveq1i 7440 . . . . . . 7 ((-1 + 1) · 𝑋) = (0 · 𝑋)
457, 18, 8mulg0 19104 . . . . . . . 8 (𝑋𝐵 → (0 · 𝑋) = 0 )
466, 45syl 17 . . . . . . 7 (𝜑 → (0 · 𝑋) = 0 )
4744, 46eqtrid 2786 . . . . . 6 (𝜑 → ((-1 + 1) · 𝑋) = 0 )
4847adantr 480 . . . . 5 ((𝜑𝑌 = 0 ) → ((-1 + 1) · 𝑋) = 0 )
4937, 24, 483brtr4d 5179 . . . 4 ((𝜑𝑌 = 0 ) → 𝑌 ((-1 + 1) · 𝑋))
5025, 49jca 511 . . 3 ((𝜑𝑌 = 0 ) → ((-1 · 𝑋) < 𝑌𝑌 ((-1 + 1) · 𝑋)))
51 oveq1 7437 . . . . . 6 (𝑛 = -1 → (𝑛 · 𝑋) = (-1 · 𝑋))
5251breq1d 5157 . . . . 5 (𝑛 = -1 → ((𝑛 · 𝑋) < 𝑌 ↔ (-1 · 𝑋) < 𝑌))
53 oveq1 7437 . . . . . . 7 (𝑛 = -1 → (𝑛 + 1) = (-1 + 1))
5453oveq1d 7445 . . . . . 6 (𝑛 = -1 → ((𝑛 + 1) · 𝑋) = ((-1 + 1) · 𝑋))
5554breq2d 5159 . . . . 5 (𝑛 = -1 → (𝑌 ((𝑛 + 1) · 𝑋) ↔ 𝑌 ((-1 + 1) · 𝑋)))
5652, 55anbi12d 632 . . . 4 (𝑛 = -1 → (((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)) ↔ ((-1 · 𝑋) < 𝑌𝑌 ((-1 + 1) · 𝑋))))
5756rspcev 3621 . . 3 ((-1 ∈ ℤ ∧ ((-1 · 𝑋) < 𝑌𝑌 ((-1 + 1) · 𝑋))) → ∃𝑛 ∈ ℤ ((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)))
581, 50, 57sylancr 587 . 2 ((𝜑𝑌 = 0 ) → ∃𝑛 ∈ ℤ ((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)))
59 simpr 484 . . . . . . . . 9 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → 𝑚 ∈ ℕ0)
6059nn0zd 12636 . . . . . . . 8 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → 𝑚 ∈ ℤ)
6160ad2antrr 726 . . . . . . 7 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → 𝑚 ∈ ℤ)
6261znegcld 12721 . . . . . 6 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → -𝑚 ∈ ℤ)
63 2z 12646 . . . . . . 7 2 ∈ ℤ
6463a1i 11 . . . . . 6 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → 2 ∈ ℤ)
6562, 64zsubcld 12724 . . . . 5 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → (-𝑚 − 2) ∈ ℤ)
66 nn0cn 12533 . . . . . . . . . . 11 (𝑚 ∈ ℕ0𝑚 ∈ ℂ)
6766adantl 481 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → 𝑚 ∈ ℂ)
68 2cnd 12341 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → 2 ∈ ℂ)
6967, 68negdi2d 11631 . . . . . . . . 9 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → -(𝑚 + 2) = (-𝑚 − 2))
7069oveq1d 7445 . . . . . . . 8 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (-(𝑚 + 2) · 𝑋) = ((-𝑚 − 2) · 𝑋))
712ad2antrr 726 . . . . . . . . . . 11 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → 𝑊 ∈ oGrp)
72 archirngz.1 . . . . . . . . . . . 12 (𝜑 → (oppg𝑊) ∈ oGrp)
7372ad2antrr 726 . . . . . . . . . . 11 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (oppg𝑊) ∈ oGrp)
7471, 73jca 511 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (𝑊 ∈ oGrp ∧ (oppg𝑊) ∈ oGrp))
754ad2antrr 726 . . . . . . . . . . 11 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → 𝑊 ∈ Grp)
7660peano2zd 12722 . . . . . . . . . . 11 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (𝑚 + 1) ∈ ℤ)
776ad2antrr 726 . . . . . . . . . . 11 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → 𝑋𝐵)
787, 8mulgcl 19121 . . . . . . . . . . 11 ((𝑊 ∈ Grp ∧ (𝑚 + 1) ∈ ℤ ∧ 𝑋𝐵) → ((𝑚 + 1) · 𝑋) ∈ 𝐵)
7975, 76, 77, 78syl3anc 1370 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((𝑚 + 1) · 𝑋) ∈ 𝐵)
8063a1i 11 . . . . . . . . . . . 12 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → 2 ∈ ℤ)
8160, 80zaddcld 12723 . . . . . . . . . . 11 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (𝑚 + 2) ∈ ℤ)
827, 8mulgcl 19121 . . . . . . . . . . 11 ((𝑊 ∈ Grp ∧ (𝑚 + 2) ∈ ℤ ∧ 𝑋𝐵) → ((𝑚 + 2) · 𝑋) ∈ 𝐵)
8375, 81, 77, 82syl3anc 1370 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((𝑚 + 2) · 𝑋) ∈ 𝐵)
8475, 32syl 17 . . . . . . . . . . . 12 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → 0𝐵)
8516ad2antrr 726 . . . . . . . . . . . 12 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → 0 < 𝑋)
86 eqid 2734 . . . . . . . . . . . . 13 (+g𝑊) = (+g𝑊)
877, 17, 86ogrpaddlt 33076 . . . . . . . . . . . 12 ((𝑊 ∈ oGrp ∧ ( 0𝐵𝑋𝐵 ∧ ((𝑚 + 1) · 𝑋) ∈ 𝐵) ∧ 0 < 𝑋) → ( 0 (+g𝑊)((𝑚 + 1) · 𝑋)) < (𝑋(+g𝑊)((𝑚 + 1) · 𝑋)))
8871, 84, 77, 79, 85, 87syl131anc 1382 . . . . . . . . . . 11 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ( 0 (+g𝑊)((𝑚 + 1) · 𝑋)) < (𝑋(+g𝑊)((𝑚 + 1) · 𝑋)))
897, 86, 18grplid 18997 . . . . . . . . . . . 12 ((𝑊 ∈ Grp ∧ ((𝑚 + 1) · 𝑋) ∈ 𝐵) → ( 0 (+g𝑊)((𝑚 + 1) · 𝑋)) = ((𝑚 + 1) · 𝑋))
9075, 79, 89syl2anc 584 . . . . . . . . . . 11 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ( 0 (+g𝑊)((𝑚 + 1) · 𝑋)) = ((𝑚 + 1) · 𝑋))
91 1cnd 11253 . . . . . . . . . . . . . . . . 17 (𝑚 ∈ ℕ0 → 1 ∈ ℂ)
9266, 91, 91addassd 11280 . . . . . . . . . . . . . . . 16 (𝑚 ∈ ℕ0 → ((𝑚 + 1) + 1) = (𝑚 + (1 + 1)))
93 1p1e2 12388 . . . . . . . . . . . . . . . . 17 (1 + 1) = 2
9493oveq2i 7441 . . . . . . . . . . . . . . . 16 (𝑚 + (1 + 1)) = (𝑚 + 2)
9592, 94eqtrdi 2790 . . . . . . . . . . . . . . 15 (𝑚 ∈ ℕ0 → ((𝑚 + 1) + 1) = (𝑚 + 2))
9666, 91addcld 11277 . . . . . . . . . . . . . . . 16 (𝑚 ∈ ℕ0 → (𝑚 + 1) ∈ ℂ)
9796, 91addcomd 11460 . . . . . . . . . . . . . . 15 (𝑚 ∈ ℕ0 → ((𝑚 + 1) + 1) = (1 + (𝑚 + 1)))
9895, 97eqtr3d 2776 . . . . . . . . . . . . . 14 (𝑚 ∈ ℕ0 → (𝑚 + 2) = (1 + (𝑚 + 1)))
9998oveq1d 7445 . . . . . . . . . . . . 13 (𝑚 ∈ ℕ0 → ((𝑚 + 2) · 𝑋) = ((1 + (𝑚 + 1)) · 𝑋))
10099adantl 481 . . . . . . . . . . . 12 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((𝑚 + 2) · 𝑋) = ((1 + (𝑚 + 1)) · 𝑋))
101 1zzd 12645 . . . . . . . . . . . . 13 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → 1 ∈ ℤ)
1027, 8, 86mulgdir 19136 . . . . . . . . . . . . 13 ((𝑊 ∈ Grp ∧ (1 ∈ ℤ ∧ (𝑚 + 1) ∈ ℤ ∧ 𝑋𝐵)) → ((1 + (𝑚 + 1)) · 𝑋) = ((1 · 𝑋)(+g𝑊)((𝑚 + 1) · 𝑋)))
10375, 101, 76, 77, 102syl13anc 1371 . . . . . . . . . . . 12 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((1 + (𝑚 + 1)) · 𝑋) = ((1 · 𝑋)(+g𝑊)((𝑚 + 1) · 𝑋)))
10477, 12syl 17 . . . . . . . . . . . . 13 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (1 · 𝑋) = 𝑋)
105104oveq1d 7445 . . . . . . . . . . . 12 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((1 · 𝑋)(+g𝑊)((𝑚 + 1) · 𝑋)) = (𝑋(+g𝑊)((𝑚 + 1) · 𝑋)))
106100, 103, 1053eqtrrd 2779 . . . . . . . . . . 11 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (𝑋(+g𝑊)((𝑚 + 1) · 𝑋)) = ((𝑚 + 2) · 𝑋))
10788, 90, 1063brtr3d 5178 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((𝑚 + 1) · 𝑋) < ((𝑚 + 2) · 𝑋))
1087, 17, 9ogrpinvlt 33082 . . . . . . . . . . 11 (((𝑊 ∈ oGrp ∧ (oppg𝑊) ∈ oGrp) ∧ ((𝑚 + 1) · 𝑋) ∈ 𝐵 ∧ ((𝑚 + 2) · 𝑋) ∈ 𝐵) → (((𝑚 + 1) · 𝑋) < ((𝑚 + 2) · 𝑋) ↔ ((invg𝑊)‘((𝑚 + 2) · 𝑋)) < ((invg𝑊)‘((𝑚 + 1) · 𝑋))))
109108biimpa 476 . . . . . . . . . 10 ((((𝑊 ∈ oGrp ∧ (oppg𝑊) ∈ oGrp) ∧ ((𝑚 + 1) · 𝑋) ∈ 𝐵 ∧ ((𝑚 + 2) · 𝑋) ∈ 𝐵) ∧ ((𝑚 + 1) · 𝑋) < ((𝑚 + 2) · 𝑋)) → ((invg𝑊)‘((𝑚 + 2) · 𝑋)) < ((invg𝑊)‘((𝑚 + 1) · 𝑋)))
11074, 79, 83, 107, 109syl31anc 1372 . . . . . . . . 9 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((invg𝑊)‘((𝑚 + 2) · 𝑋)) < ((invg𝑊)‘((𝑚 + 1) · 𝑋)))
1117, 8, 9mulgneg 19122 . . . . . . . . . 10 ((𝑊 ∈ Grp ∧ (𝑚 + 2) ∈ ℤ ∧ 𝑋𝐵) → (-(𝑚 + 2) · 𝑋) = ((invg𝑊)‘((𝑚 + 2) · 𝑋)))
11275, 81, 77, 111syl3anc 1370 . . . . . . . . 9 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (-(𝑚 + 2) · 𝑋) = ((invg𝑊)‘((𝑚 + 2) · 𝑋)))
1137, 8, 9mulgneg 19122 . . . . . . . . . 10 ((𝑊 ∈ Grp ∧ (𝑚 + 1) ∈ ℤ ∧ 𝑋𝐵) → (-(𝑚 + 1) · 𝑋) = ((invg𝑊)‘((𝑚 + 1) · 𝑋)))
11475, 76, 77, 113syl3anc 1370 . . . . . . . . 9 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (-(𝑚 + 1) · 𝑋) = ((invg𝑊)‘((𝑚 + 1) · 𝑋)))
115110, 112, 1143brtr4d 5179 . . . . . . . 8 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (-(𝑚 + 2) · 𝑋) < (-(𝑚 + 1) · 𝑋))
11670, 115eqbrtrrd 5171 . . . . . . 7 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((-𝑚 − 2) · 𝑋) < (-(𝑚 + 1) · 𝑋))
117116ad2antrr 726 . . . . . 6 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → ((-𝑚 − 2) · 𝑋) < (-(𝑚 + 1) · 𝑋))
118114ad2antrr 726 . . . . . . 7 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → (-(𝑚 + 1) · 𝑋) = ((invg𝑊)‘((𝑚 + 1) · 𝑋)))
11931ad4antr 732 . . . . . . . . 9 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → 𝑊 ∈ Poset)
120 archirng.4 . . . . . . . . . . . 12 (𝜑𝑌𝐵)
1217, 9grpinvcl 19017 . . . . . . . . . . . 12 ((𝑊 ∈ Grp ∧ 𝑌𝐵) → ((invg𝑊)‘𝑌) ∈ 𝐵)
1224, 120, 121syl2anc 584 . . . . . . . . . . 11 (𝜑 → ((invg𝑊)‘𝑌) ∈ 𝐵)
123122ad2antrr 726 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((invg𝑊)‘𝑌) ∈ 𝐵)
124123ad2antrr 726 . . . . . . . . 9 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → ((invg𝑊)‘𝑌) ∈ 𝐵)
12579ad2antrr 726 . . . . . . . . 9 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → ((𝑚 + 1) · 𝑋) ∈ 𝐵)
126 simplrr 778 . . . . . . . . 9 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))
127 simpr 484 . . . . . . . . 9 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌))
1287, 34posasymb 18376 . . . . . . . . . 10 ((𝑊 ∈ Poset ∧ ((invg𝑊)‘𝑌) ∈ 𝐵 ∧ ((𝑚 + 1) · 𝑋) ∈ 𝐵) → ((((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) ↔ ((invg𝑊)‘𝑌) = ((𝑚 + 1) · 𝑋)))
129128biimpa 476 . . . . . . . . 9 (((𝑊 ∈ Poset ∧ ((invg𝑊)‘𝑌) ∈ 𝐵 ∧ ((𝑚 + 1) · 𝑋) ∈ 𝐵) ∧ (((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌))) → ((invg𝑊)‘𝑌) = ((𝑚 + 1) · 𝑋))
130119, 124, 125, 126, 127, 129syl32anc 1377 . . . . . . . 8 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → ((invg𝑊)‘𝑌) = ((𝑚 + 1) · 𝑋))
131130fveq2d 6910 . . . . . . 7 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → ((invg𝑊)‘((invg𝑊)‘𝑌)) = ((invg𝑊)‘((𝑚 + 1) · 𝑋)))
1327, 9grpinvinv 19035 . . . . . . . . 9 ((𝑊 ∈ Grp ∧ 𝑌𝐵) → ((invg𝑊)‘((invg𝑊)‘𝑌)) = 𝑌)
1334, 120, 132syl2anc 584 . . . . . . . 8 (𝜑 → ((invg𝑊)‘((invg𝑊)‘𝑌)) = 𝑌)
134133ad4antr 732 . . . . . . 7 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → ((invg𝑊)‘((invg𝑊)‘𝑌)) = 𝑌)
135118, 131, 1343eqtr2rd 2781 . . . . . 6 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → 𝑌 = (-(𝑚 + 1) · 𝑋))
136117, 135breqtrrd 5175 . . . . 5 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → ((-𝑚 − 2) · 𝑋) < 𝑌)
137 1cnd 11253 . . . . . . . . . . . . 13 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → 1 ∈ ℂ)
13867, 68, 137addsubassd 11637 . . . . . . . . . . . 12 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((𝑚 + 2) − 1) = (𝑚 + (2 − 1)))
139 2m1e1 12389 . . . . . . . . . . . . 13 (2 − 1) = 1
140139oveq2i 7441 . . . . . . . . . . . 12 (𝑚 + (2 − 1)) = (𝑚 + 1)
141138, 140eqtr2di 2791 . . . . . . . . . . 11 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (𝑚 + 1) = ((𝑚 + 2) − 1))
142141negeqd 11499 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → -(𝑚 + 1) = -((𝑚 + 2) − 1))
14367, 68addcld 11277 . . . . . . . . . . 11 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (𝑚 + 2) ∈ ℂ)
144143, 137negsubdid 11632 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → -((𝑚 + 2) − 1) = (-(𝑚 + 2) + 1))
14569oveq1d 7445 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (-(𝑚 + 2) + 1) = ((-𝑚 − 2) + 1))
146142, 144, 1453eqtrrd 2779 . . . . . . . . 9 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((-𝑚 − 2) + 1) = -(𝑚 + 1))
147146oveq1d 7445 . . . . . . . 8 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (((-𝑚 − 2) + 1) · 𝑋) = (-(𝑚 + 1) · 𝑋))
14829ad2antrr 726 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → 𝑊 ∈ Toset)
149148, 30syl 17 . . . . . . . . 9 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → 𝑊 ∈ Poset)
15060znegcld 12721 . . . . . . . . . . . 12 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → -𝑚 ∈ ℤ)
151150, 80zsubcld 12724 . . . . . . . . . . 11 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (-𝑚 − 2) ∈ ℤ)
152151peano2zd 12722 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((-𝑚 − 2) + 1) ∈ ℤ)
1537, 8mulgcl 19121 . . . . . . . . . 10 ((𝑊 ∈ Grp ∧ ((-𝑚 − 2) + 1) ∈ ℤ ∧ 𝑋𝐵) → (((-𝑚 − 2) + 1) · 𝑋) ∈ 𝐵)
15475, 152, 77, 153syl3anc 1370 . . . . . . . . 9 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (((-𝑚 − 2) + 1) · 𝑋) ∈ 𝐵)
1557, 34posref 18375 . . . . . . . . 9 ((𝑊 ∈ Poset ∧ (((-𝑚 − 2) + 1) · 𝑋) ∈ 𝐵) → (((-𝑚 − 2) + 1) · 𝑋) (((-𝑚 − 2) + 1) · 𝑋))
156149, 154, 155syl2anc 584 . . . . . . . 8 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (((-𝑚 − 2) + 1) · 𝑋) (((-𝑚 − 2) + 1) · 𝑋))
157147, 156eqbrtrrd 5171 . . . . . . 7 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (-(𝑚 + 1) · 𝑋) (((-𝑚 − 2) + 1) · 𝑋))
158157ad2antrr 726 . . . . . 6 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → (-(𝑚 + 1) · 𝑋) (((-𝑚 − 2) + 1) · 𝑋))
159135, 158eqbrtrd 5169 . . . . 5 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → 𝑌 (((-𝑚 − 2) + 1) · 𝑋))
160 oveq1 7437 . . . . . . . 8 (𝑛 = (-𝑚 − 2) → (𝑛 · 𝑋) = ((-𝑚 − 2) · 𝑋))
161160breq1d 5157 . . . . . . 7 (𝑛 = (-𝑚 − 2) → ((𝑛 · 𝑋) < 𝑌 ↔ ((-𝑚 − 2) · 𝑋) < 𝑌))
162 oveq1 7437 . . . . . . . . 9 (𝑛 = (-𝑚 − 2) → (𝑛 + 1) = ((-𝑚 − 2) + 1))
163162oveq1d 7445 . . . . . . . 8 (𝑛 = (-𝑚 − 2) → ((𝑛 + 1) · 𝑋) = (((-𝑚 − 2) + 1) · 𝑋))
164163breq2d 5159 . . . . . . 7 (𝑛 = (-𝑚 − 2) → (𝑌 ((𝑛 + 1) · 𝑋) ↔ 𝑌 (((-𝑚 − 2) + 1) · 𝑋)))
165161, 164anbi12d 632 . . . . . 6 (𝑛 = (-𝑚 − 2) → (((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)) ↔ (((-𝑚 − 2) · 𝑋) < 𝑌𝑌 (((-𝑚 − 2) + 1) · 𝑋))))
166165rspcev 3621 . . . . 5 (((-𝑚 − 2) ∈ ℤ ∧ (((-𝑚 − 2) · 𝑋) < 𝑌𝑌 (((-𝑚 − 2) + 1) · 𝑋))) → ∃𝑛 ∈ ℤ ((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)))
16765, 136, 159, 166syl12anc 837 . . . 4 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌)) → ∃𝑛 ∈ ℤ ((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)))
16876ad2antrr 726 . . . . . 6 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → (𝑚 + 1) ∈ ℤ)
169168znegcld 12721 . . . . 5 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → -(𝑚 + 1) ∈ ℤ)
1702ad2antrr 726 . . . . . . . . 9 (((𝜑𝑌 < 0 ) ∧ (𝑚 ∈ ℕ0 ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋)) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋))) → 𝑊 ∈ oGrp)
17172ad2antrr 726 . . . . . . . . 9 (((𝜑𝑌 < 0 ) ∧ (𝑚 ∈ ℕ0 ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋)) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋))) → (oppg𝑊) ∈ oGrp)
172170, 171jca 511 . . . . . . . 8 (((𝜑𝑌 < 0 ) ∧ (𝑚 ∈ ℕ0 ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋)) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋))) → (𝑊 ∈ oGrp ∧ (oppg𝑊) ∈ oGrp))
1731723anassrs 1359 . . . . . . 7 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → (𝑊 ∈ oGrp ∧ (oppg𝑊) ∈ oGrp))
174123ad2antrr 726 . . . . . . 7 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → ((invg𝑊)‘𝑌) ∈ 𝐵)
17579ad2antrr 726 . . . . . . 7 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → ((𝑚 + 1) · 𝑋) ∈ 𝐵)
176 simpr 484 . . . . . . 7 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋))
1777, 17, 9ogrpinvlt 33082 . . . . . . . 8 (((𝑊 ∈ oGrp ∧ (oppg𝑊) ∈ oGrp) ∧ ((invg𝑊)‘𝑌) ∈ 𝐵 ∧ ((𝑚 + 1) · 𝑋) ∈ 𝐵) → (((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋) ↔ ((invg𝑊)‘((𝑚 + 1) · 𝑋)) < ((invg𝑊)‘((invg𝑊)‘𝑌))))
178177biimpa 476 . . . . . . 7 ((((𝑊 ∈ oGrp ∧ (oppg𝑊) ∈ oGrp) ∧ ((invg𝑊)‘𝑌) ∈ 𝐵 ∧ ((𝑚 + 1) · 𝑋) ∈ 𝐵) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → ((invg𝑊)‘((𝑚 + 1) · 𝑋)) < ((invg𝑊)‘((invg𝑊)‘𝑌)))
179173, 174, 175, 176, 178syl31anc 1372 . . . . . 6 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → ((invg𝑊)‘((𝑚 + 1) · 𝑋)) < ((invg𝑊)‘((invg𝑊)‘𝑌)))
180114ad2antrr 726 . . . . . . 7 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → (-(𝑚 + 1) · 𝑋) = ((invg𝑊)‘((𝑚 + 1) · 𝑋)))
181180eqcomd 2740 . . . . . 6 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → ((invg𝑊)‘((𝑚 + 1) · 𝑋)) = (-(𝑚 + 1) · 𝑋))
182133ad4antr 732 . . . . . 6 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → ((invg𝑊)‘((invg𝑊)‘𝑌)) = 𝑌)
183179, 181, 1823brtr3d 5178 . . . . 5 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → (-(𝑚 + 1) · 𝑋) < 𝑌)
184 simp-4l 783 . . . . . 6 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → 𝜑)
1857, 8mulgcl 19121 . . . . . . . . . . . 12 ((𝑊 ∈ Grp ∧ 𝑚 ∈ ℤ ∧ 𝑋𝐵) → (𝑚 · 𝑋) ∈ 𝐵)
18675, 60, 77, 185syl3anc 1370 . . . . . . . . . . 11 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (𝑚 · 𝑋) ∈ 𝐵)
1877, 17, 9ogrpinvlt 33082 . . . . . . . . . . 11 (((𝑊 ∈ oGrp ∧ (oppg𝑊) ∈ oGrp) ∧ (𝑚 · 𝑋) ∈ 𝐵 ∧ ((invg𝑊)‘𝑌) ∈ 𝐵) → ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ↔ ((invg𝑊)‘((invg𝑊)‘𝑌)) < ((invg𝑊)‘(𝑚 · 𝑋))))
18874, 186, 123, 187syl3anc 1370 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ↔ ((invg𝑊)‘((invg𝑊)‘𝑌)) < ((invg𝑊)‘(𝑚 · 𝑋))))
189188biimpa 476 . . . . . . . . 9 ((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ (𝑚 · 𝑋) < ((invg𝑊)‘𝑌)) → ((invg𝑊)‘((invg𝑊)‘𝑌)) < ((invg𝑊)‘(𝑚 · 𝑋)))
190189adantrr 717 . . . . . . . 8 ((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) → ((invg𝑊)‘((invg𝑊)‘𝑌)) < ((invg𝑊)‘(𝑚 · 𝑋)))
191190adantr 480 . . . . . . 7 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → ((invg𝑊)‘((invg𝑊)‘𝑌)) < ((invg𝑊)‘(𝑚 · 𝑋)))
192 negdi 11563 . . . . . . . . . . . . . . 15 ((𝑚 ∈ ℂ ∧ 1 ∈ ℂ) → -(𝑚 + 1) = (-𝑚 + -1))
19366, 40, 192sylancl 586 . . . . . . . . . . . . . 14 (𝑚 ∈ ℕ0 → -(𝑚 + 1) = (-𝑚 + -1))
194193oveq1d 7445 . . . . . . . . . . . . 13 (𝑚 ∈ ℕ0 → (-(𝑚 + 1) + 1) = ((-𝑚 + -1) + 1))
19566negcld 11604 . . . . . . . . . . . . . . 15 (𝑚 ∈ ℕ0 → -𝑚 ∈ ℂ)
19691negcld 11604 . . . . . . . . . . . . . . 15 (𝑚 ∈ ℕ0 → -1 ∈ ℂ)
197195, 196, 91addassd 11280 . . . . . . . . . . . . . 14 (𝑚 ∈ ℕ0 → ((-𝑚 + -1) + 1) = (-𝑚 + (-1 + 1)))
19843oveq2i 7441 . . . . . . . . . . . . . . 15 (-𝑚 + (-1 + 1)) = (-𝑚 + 0)
199198a1i 11 . . . . . . . . . . . . . 14 (𝑚 ∈ ℕ0 → (-𝑚 + (-1 + 1)) = (-𝑚 + 0))
200195addridd 11458 . . . . . . . . . . . . . 14 (𝑚 ∈ ℕ0 → (-𝑚 + 0) = -𝑚)
201197, 199, 2003eqtrd 2778 . . . . . . . . . . . . 13 (𝑚 ∈ ℕ0 → ((-𝑚 + -1) + 1) = -𝑚)
202194, 201eqtrd 2774 . . . . . . . . . . . 12 (𝑚 ∈ ℕ0 → (-(𝑚 + 1) + 1) = -𝑚)
203202oveq1d 7445 . . . . . . . . . . 11 (𝑚 ∈ ℕ0 → ((-(𝑚 + 1) + 1) · 𝑋) = (-𝑚 · 𝑋))
204203adantl 481 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((-(𝑚 + 1) + 1) · 𝑋) = (-𝑚 · 𝑋))
2057, 8, 9mulgneg 19122 . . . . . . . . . . 11 ((𝑊 ∈ Grp ∧ 𝑚 ∈ ℤ ∧ 𝑋𝐵) → (-𝑚 · 𝑋) = ((invg𝑊)‘(𝑚 · 𝑋)))
20675, 60, 77, 205syl3anc 1370 . . . . . . . . . 10 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (-𝑚 · 𝑋) = ((invg𝑊)‘(𝑚 · 𝑋)))
207204, 206eqtrd 2774 . . . . . . . . 9 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → ((-(𝑚 + 1) + 1) · 𝑋) = ((invg𝑊)‘(𝑚 · 𝑋)))
208207ad2antrr 726 . . . . . . . 8 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → ((-(𝑚 + 1) + 1) · 𝑋) = ((invg𝑊)‘(𝑚 · 𝑋)))
209208eqcomd 2740 . . . . . . 7 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → ((invg𝑊)‘(𝑚 · 𝑋)) = ((-(𝑚 + 1) + 1) · 𝑋))
210191, 182, 2093brtr3d 5178 . . . . . 6 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → 𝑌 < ((-(𝑚 + 1) + 1) · 𝑋))
211 ovexd 7465 . . . . . . 7 (𝜑 → ((-(𝑚 + 1) + 1) · 𝑋) ∈ V)
21234, 17pltle 18390 . . . . . . 7 ((𝑊 ∈ oGrp ∧ 𝑌𝐵 ∧ ((-(𝑚 + 1) + 1) · 𝑋) ∈ V) → (𝑌 < ((-(𝑚 + 1) + 1) · 𝑋) → 𝑌 ((-(𝑚 + 1) + 1) · 𝑋)))
2132, 120, 211, 212syl3anc 1370 . . . . . 6 (𝜑 → (𝑌 < ((-(𝑚 + 1) + 1) · 𝑋) → 𝑌 ((-(𝑚 + 1) + 1) · 𝑋)))
214184, 210, 213sylc 65 . . . . 5 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → 𝑌 ((-(𝑚 + 1) + 1) · 𝑋))
215 oveq1 7437 . . . . . . . 8 (𝑛 = -(𝑚 + 1) → (𝑛 · 𝑋) = (-(𝑚 + 1) · 𝑋))
216215breq1d 5157 . . . . . . 7 (𝑛 = -(𝑚 + 1) → ((𝑛 · 𝑋) < 𝑌 ↔ (-(𝑚 + 1) · 𝑋) < 𝑌))
217 oveq1 7437 . . . . . . . . 9 (𝑛 = -(𝑚 + 1) → (𝑛 + 1) = (-(𝑚 + 1) + 1))
218217oveq1d 7445 . . . . . . . 8 (𝑛 = -(𝑚 + 1) → ((𝑛 + 1) · 𝑋) = ((-(𝑚 + 1) + 1) · 𝑋))
219218breq2d 5159 . . . . . . 7 (𝑛 = -(𝑚 + 1) → (𝑌 ((𝑛 + 1) · 𝑋) ↔ 𝑌 ((-(𝑚 + 1) + 1) · 𝑋)))
220216, 219anbi12d 632 . . . . . 6 (𝑛 = -(𝑚 + 1) → (((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)) ↔ ((-(𝑚 + 1) · 𝑋) < 𝑌𝑌 ((-(𝑚 + 1) + 1) · 𝑋))))
221220rspcev 3621 . . . . 5 ((-(𝑚 + 1) ∈ ℤ ∧ ((-(𝑚 + 1) · 𝑋) < 𝑌𝑌 ((-(𝑚 + 1) + 1) · 𝑋))) → ∃𝑛 ∈ ℤ ((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)))
222169, 183, 214, 221syl12anc 837 . . . 4 (((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) ∧ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)) → ∃𝑛 ∈ ℤ ((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)))
2237, 34, 17tlt2 32943 . . . . . 6 ((𝑊 ∈ Toset ∧ ((𝑚 + 1) · 𝑋) ∈ 𝐵 ∧ ((invg𝑊)‘𝑌) ∈ 𝐵) → (((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌) ∨ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)))
224148, 79, 123, 223syl3anc 1370 . . . . 5 (((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) → (((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌) ∨ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)))
225224adantr 480 . . . 4 ((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) → (((𝑚 + 1) · 𝑋) ((invg𝑊)‘𝑌) ∨ ((invg𝑊)‘𝑌) < ((𝑚 + 1) · 𝑋)))
226167, 222, 225mpjaodan 960 . . 3 ((((𝜑𝑌 < 0 ) ∧ 𝑚 ∈ ℕ0) ∧ ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋))) → ∃𝑛 ∈ ℤ ((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)))
2272adantr 480 . . . 4 ((𝜑𝑌 < 0 ) → 𝑊 ∈ oGrp)
228 archirng.2 . . . . 5 (𝜑𝑊 ∈ Archi)
229228adantr 480 . . . 4 ((𝜑𝑌 < 0 ) → 𝑊 ∈ Archi)
2306adantr 480 . . . 4 ((𝜑𝑌 < 0 ) → 𝑋𝐵)
231122adantr 480 . . . 4 ((𝜑𝑌 < 0 ) → ((invg𝑊)‘𝑌) ∈ 𝐵)
23216adantr 480 . . . 4 ((𝜑𝑌 < 0 ) → 0 < 𝑋)
233133breq1d 5157 . . . . . 6 (𝜑 → (((invg𝑊)‘((invg𝑊)‘𝑌)) < 0𝑌 < 0 ))
234233biimpar 477 . . . . 5 ((𝜑𝑌 < 0 ) → ((invg𝑊)‘((invg𝑊)‘𝑌)) < 0 )
2357, 17, 9, 18ogrpinv0lt 33081 . . . . . . 7 ((𝑊 ∈ oGrp ∧ ((invg𝑊)‘𝑌) ∈ 𝐵) → ( 0 < ((invg𝑊)‘𝑌) ↔ ((invg𝑊)‘((invg𝑊)‘𝑌)) < 0 ))
2362, 122, 235syl2anc 584 . . . . . 6 (𝜑 → ( 0 < ((invg𝑊)‘𝑌) ↔ ((invg𝑊)‘((invg𝑊)‘𝑌)) < 0 ))
237236biimpar 477 . . . . 5 ((𝜑 ∧ ((invg𝑊)‘((invg𝑊)‘𝑌)) < 0 ) → 0 < ((invg𝑊)‘𝑌))
238234, 237syldan 591 . . . 4 ((𝜑𝑌 < 0 ) → 0 < ((invg𝑊)‘𝑌))
2397, 18, 17, 34, 8, 227, 229, 230, 231, 232, 238archirng 33177 . . 3 ((𝜑𝑌 < 0 ) → ∃𝑚 ∈ ℕ0 ((𝑚 · 𝑋) < ((invg𝑊)‘𝑌) ∧ ((invg𝑊)‘𝑌) ((𝑚 + 1) · 𝑋)))
240226, 239r19.29a 3159 . 2 ((𝜑𝑌 < 0 ) → ∃𝑛 ∈ ℤ ((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)))
241 nn0ssz 12633 . . 3 0 ⊆ ℤ
2422adantr 480 . . . 4 ((𝜑0 < 𝑌) → 𝑊 ∈ oGrp)
243228adantr 480 . . . 4 ((𝜑0 < 𝑌) → 𝑊 ∈ Archi)
2446adantr 480 . . . 4 ((𝜑0 < 𝑌) → 𝑋𝐵)
245120adantr 480 . . . 4 ((𝜑0 < 𝑌) → 𝑌𝐵)
24616adantr 480 . . . 4 ((𝜑0 < 𝑌) → 0 < 𝑋)
247 simpr 484 . . . 4 ((𝜑0 < 𝑌) → 0 < 𝑌)
2487, 18, 17, 34, 8, 242, 243, 244, 245, 246, 247archirng 33177 . . 3 ((𝜑0 < 𝑌) → ∃𝑛 ∈ ℕ0 ((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)))
249 ssrexv 4064 . . 3 (ℕ0 ⊆ ℤ → (∃𝑛 ∈ ℕ0 ((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)) → ∃𝑛 ∈ ℤ ((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋))))
250241, 248, 249mpsyl 68 . 2 ((𝜑0 < 𝑌) → ∃𝑛 ∈ ℤ ((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)))
2517, 17tlt3 32944 . . 3 ((𝑊 ∈ Toset ∧ 𝑌𝐵0𝐵) → (𝑌 = 0𝑌 < 00 < 𝑌))
25229, 120, 33, 251syl3anc 1370 . 2 (𝜑 → (𝑌 = 0𝑌 < 00 < 𝑌))
25358, 240, 250, 252mpjao3dan 1431 1 (𝜑 → ∃𝑛 ∈ ℤ ((𝑛 · 𝑋) < 𝑌𝑌 ((𝑛 + 1) · 𝑋)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 206  wa 395  wo 847  w3o 1085  w3a 1086   = wceq 1536  wcel 2105  wrex 3067  Vcvv 3477  wss 3962   class class class wbr 5147  cfv 6562  (class class class)co 7430  cc 11150  0cc0 11152  1c1 11153   + caddc 11155  cmin 11489  -cneg 11490  2c2 12318  0cn0 12523  cz 12610  Basecbs 17244  +gcplusg 17297  lecple 17304  0gc0g 17485  Posetcpo 18364  ltcplt 18365  Tosetctos 18473  Grpcgrp 18963  invgcminusg 18964  .gcmg 19097  oppgcoppg 19375  oMndcomnd 33056  oGrpcogrp 33057  Archicarchi 33166
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1791  ax-4 1805  ax-5 1907  ax-6 1964  ax-7 2004  ax-8 2107  ax-9 2115  ax-10 2138  ax-11 2154  ax-12 2174  ax-ext 2705  ax-sep 5301  ax-nul 5311  ax-pow 5370  ax-pr 5437  ax-un 7753  ax-cnex 11208  ax-resscn 11209  ax-1cn 11210  ax-icn 11211  ax-addcl 11212  ax-addrcl 11213  ax-mulcl 11214  ax-mulrcl 11215  ax-mulcom 11216  ax-addass 11217  ax-mulass 11218  ax-distr 11219  ax-i2m1 11220  ax-1ne0 11221  ax-1rid 11222  ax-rnegex 11223  ax-rrecex 11224  ax-cnre 11225  ax-pre-lttri 11226  ax-pre-lttrn 11227  ax-pre-ltadd 11228  ax-pre-mulgt0 11229
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1539  df-fal 1549  df-ex 1776  df-nf 1780  df-sb 2062  df-mo 2537  df-eu 2566  df-clab 2712  df-cleq 2726  df-clel 2813  df-nfc 2889  df-ne 2938  df-nel 3044  df-ral 3059  df-rex 3068  df-rmo 3377  df-reu 3378  df-rab 3433  df-v 3479  df-sbc 3791  df-csb 3908  df-dif 3965  df-un 3967  df-in 3969  df-ss 3979  df-pss 3982  df-nul 4339  df-if 4531  df-pw 4606  df-sn 4631  df-pr 4633  df-op 4637  df-uni 4912  df-iun 4997  df-br 5148  df-opab 5210  df-mpt 5231  df-tr 5265  df-id 5582  df-eprel 5588  df-po 5596  df-so 5597  df-fr 5640  df-we 5642  df-xp 5694  df-rel 5695  df-cnv 5696  df-co 5697  df-dm 5698  df-rn 5699  df-res 5700  df-ima 5701  df-pred 6322  df-ord 6388  df-on 6389  df-lim 6390  df-suc 6391  df-iota 6515  df-fun 6564  df-fn 6565  df-f 6566  df-f1 6567  df-fo 6568  df-f1o 6569  df-fv 6570  df-riota 7387  df-ov 7433  df-oprab 7434  df-mpo 7435  df-om 7887  df-1st 8012  df-2nd 8013  df-tpos 8249  df-frecs 8304  df-wrecs 8335  df-recs 8409  df-rdg 8448  df-er 8743  df-en 8984  df-dom 8985  df-sdom 8986  df-pnf 11294  df-mnf 11295  df-xr 11296  df-ltxr 11297  df-le 11298  df-sub 11491  df-neg 11492  df-nn 12264  df-2 12326  df-3 12327  df-4 12328  df-5 12329  df-6 12330  df-7 12331  df-8 12332  df-9 12333  df-n0 12524  df-z 12611  df-dec 12731  df-uz 12876  df-fz 13544  df-seq 14039  df-sets 17197  df-slot 17215  df-ndx 17227  df-base 17245  df-plusg 17310  df-ple 17317  df-0g 17487  df-proset 18351  df-poset 18370  df-plt 18387  df-toset 18474  df-mgm 18665  df-sgrp 18744  df-mnd 18760  df-grp 18966  df-minusg 18967  df-mulg 19098  df-oppg 19376  df-omnd 33058  df-ogrp 33059  df-inftm 33167  df-archi 33168
This theorem is referenced by:  archiabllem2c  33184
  Copyright terms: Public domain W3C validator