Metamath Proof Explorer


Theorem archiabllem2c

Description: Lemma for archiabl . (Contributed by Thierry Arnoux, 1-May-2018)

Ref Expression
Hypotheses archiabllem.b ⊢ B = Base W
archiabllem.0 ⊢ 0 ˙ = 0 W
archiabllem.e ⊢ ≤ ˙ = ≤ W
archiabllem.t ⊢ < ˙ = < W
archiabllem.m ⊢ · ˙ = ⋅ W
archiabllem.g ⊢ φ → W ∈ oGrp
archiabllem.a ⊢ φ → W ∈ Archi
archiabllem2.1 ⊢ + ˙ = + W
archiabllem2.2 ⊢ φ → opp 𝑔 ⁡ W ∈ oGrp
archiabllem2.3 ⊢ φ ∧ a ∈ B ∧ 0 ˙ < ˙ a → ∃ b ∈ B 0 ˙ < ˙ b ∧ b < ˙ a
archiabllem2b.4 ⊢ φ → X ∈ B
archiabllem2b.5 ⊢ φ → Y ∈ B
Assertion archiabllem2c ⊢ φ → ¬ X + ˙ Y < ˙ Y + ˙ X

Proof

Step Hyp Ref Expression
1 archiabllem.b ⊢ B = Base W
2 archiabllem.0 ⊢ 0 ˙ = 0 W
3 archiabllem.e ⊢ ≤ ˙ = ≤ W
4 archiabllem.t ⊢ < ˙ = < W
5 archiabllem.m ⊢ · ˙ = ⋅ W
6 archiabllem.g ⊢ φ → W ∈ oGrp
7 archiabllem.a ⊢ φ → W ∈ Archi
8 archiabllem2.1 ⊢ + ˙ = + W
9 archiabllem2.2 ⊢ φ → opp 𝑔 ⁡ W ∈ oGrp
10 archiabllem2.3 ⊢ φ ∧ a ∈ B ∧ 0 ˙ < ˙ a → ∃ b ∈ B 0 ˙ < ˙ b ∧ b < ˙ a
11 archiabllem2b.4 ⊢ φ → X ∈ B
12 archiabllem2b.5 ⊢ φ → Y ∈ B
13 simprr ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ t + ˙ t ≤ ˙ Y + ˙ X - W X + ˙ Y → t + ˙ t ≤ ˙ Y + ˙ X - W X + ˙ Y
14 simpl1l ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → φ
15 14 6 syl ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → W ∈ oGrp
16 simpl1r ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → X + ˙ Y < ˙ Y + ˙ X
17 6 adantr ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X → W ∈ oGrp
18 ogrpgrp ⊢ W ∈ oGrp → W ∈ Grp
19 17 18 syl ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X → W ∈ Grp
20 12 adantr ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X → Y ∈ B
21 11 adantr ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X → X ∈ B
22 1 8 grpcl ⊢ W ∈ Grp ∧ Y ∈ B ∧ X ∈ B → Y + ˙ X ∈ B
23 19 20 21 22 syl3anc ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X → Y + ˙ X ∈ B
24 14 16 23 syl2anc ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → Y + ˙ X ∈ B
25 14 6 18 3syl ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → W ∈ Grp
26 simpr2 ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → m ∈ ℤ
27 26 peano2zd ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → m + 1 ∈ ℤ
28 simp2 ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t → t ∈ B
29 28 adantr ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → t ∈ B
30 1 5 mulgcl ⊢ W ∈ Grp ∧ m + 1 ∈ ℤ ∧ t ∈ B → m + 1 · ˙ t ∈ B
31 25 27 29 30 syl3anc ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → m + 1 · ˙ t ∈ B
32 simpr1 ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → n ∈ ℤ
33 32 peano2zd ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → n + 1 ∈ ℤ
34 1 5 mulgcl ⊢ W ∈ Grp ∧ n + 1 ∈ ℤ ∧ t ∈ B → n + 1 · ˙ t ∈ B
35 25 33 29 34 syl3anc ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → n + 1 · ˙ t ∈ B
36 1 8 grpcl ⊢ W ∈ Grp ∧ m + 1 · ˙ t ∈ B ∧ n + 1 · ˙ t ∈ B → m + 1 · ˙ t + ˙ n + 1 · ˙ t ∈ B
37 25 31 35 36 syl3anc ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → m + 1 · ˙ t + ˙ n + 1 · ˙ t ∈ B
38 21 3ad2ant1 ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t → X ∈ B
39 38 adantr ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → X ∈ B
40 20 3ad2ant1 ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t → Y ∈ B
41 40 adantr ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → Y ∈ B
42 1 8 grpcl ⊢ W ∈ Grp ∧ X ∈ B ∧ Y ∈ B → X + ˙ Y ∈ B
43 25 39 41 42 syl3anc ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → X + ˙ Y ∈ B
44 isogrp ⊢ W ∈ oGrp ↔ W ∈ Grp ∧ W ∈ oMnd
45 44 simprbi ⊢ W ∈ oGrp → W ∈ oMnd
46 14 6 45 3syl ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → W ∈ oMnd
47 simpr3 ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t
48 47 simprd ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t
49 48 simprd ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → Y ≤ ˙ m + 1 · ˙ t
50 47 simpld ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t
51 50 simprd ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → X ≤ ˙ n + 1 · ˙ t
52 isogrp ⊢ opp 𝑔 ⁡ W ∈ oGrp ↔ opp 𝑔 ⁡ W ∈ Grp ∧ opp 𝑔 ⁡ W ∈ oMnd
53 52 simprbi ⊢ opp 𝑔 ⁡ W ∈ oGrp → opp 𝑔 ⁡ W ∈ oMnd
54 14 9 53 3syl ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → opp 𝑔 ⁡ W ∈ oMnd
55 1 3 8 46 35 41 39 31 49 51 54 omndadd2rd ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → Y + ˙ X ≤ ˙ m + 1 · ˙ t + ˙ n + 1 · ˙ t
56 eqid ⊢ - W = - W
57 1 3 56 ogrpsub ⊢ W ∈ oGrp ∧ Y + ˙ X ∈ B ∧ m + 1 · ˙ t + ˙ n + 1 · ˙ t ∈ B ∧ X + ˙ Y ∈ B ∧ Y + ˙ X ≤ ˙ m + 1 · ˙ t + ˙ n + 1 · ˙ t → Y + ˙ X - W X + ˙ Y ≤ ˙ m + 1 · ˙ t + ˙ n + 1 · ˙ t - W X + ˙ Y
58 15 24 37 43 55 57 syl131anc ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → Y + ˙ X - W X + ˙ Y ≤ ˙ m + 1 · ˙ t + ˙ n + 1 · ˙ t - W X + ˙ Y
59 26 zcnd ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → m ∈ ℂ
60 32 zcnd ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → n ∈ ℂ
61 1cnd ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → 1 ∈ ℂ
62 59 60 61 61 add4d ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → m + n + 1 + 1 = m + 1 + n + 1
63 1p1e2 ⊢ 1 + 1 = 2
64 63 oveq2i ⊢ m + n + 1 + 1 = m + n + 2
65 addcom ⊢ m ∈ ℂ ∧ n ∈ ℂ → m + n = n + m
66 65 oveq1d ⊢ m ∈ ℂ ∧ n ∈ ℂ → m + n + 2 = n + m + 2
67 64 66 eqtrid ⊢ m ∈ ℂ ∧ n ∈ ℂ → m + n + 1 + 1 = n + m + 2
68 2cnd ⊢ m ∈ ℂ ∧ n ∈ ℂ → 2 ∈ ℂ
69 simpr ⊢ m ∈ ℂ ∧ n ∈ ℂ → n ∈ ℂ
70 simpl ⊢ m ∈ ℂ ∧ n ∈ ℂ → m ∈ ℂ
71 69 70 addcld ⊢ m ∈ ℂ ∧ n ∈ ℂ → n + m ∈ ℂ
72 68 71 addcomd ⊢ m ∈ ℂ ∧ n ∈ ℂ → 2 + n + m = n + m + 2
73 67 72 eqtr4d ⊢ m ∈ ℂ ∧ n ∈ ℂ → m + n + 1 + 1 = 2 + n + m
74 59 60 73 syl2anc ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → m + n + 1 + 1 = 2 + n + m
75 62 74 eqtr3d ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → m + 1 + n + 1 = 2 + n + m
76 75 oveq1d ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → m + 1 + n + 1 · ˙ t = 2 + n + m · ˙ t
77 2z ⊢ 2 ∈ ℤ
78 77 a1i ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → 2 ∈ ℤ
79 32 26 zaddcld ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → n + m ∈ ℤ
80 1 5 8 mulgdir ⊢ W ∈ Grp ∧ 2 ∈ ℤ ∧ n + m ∈ ℤ ∧ t ∈ B → 2 + n + m · ˙ t = 2 · ˙ t + ˙ n + m · ˙ t
81 25 78 79 29 80 syl13anc ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → 2 + n + m · ˙ t = 2 · ˙ t + ˙ n + m · ˙ t
82 76 81 eqtrd ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → m + 1 + n + 1 · ˙ t = 2 · ˙ t + ˙ n + m · ˙ t
83 1 5 8 mulgdir ⊢ W ∈ Grp ∧ m + 1 ∈ ℤ ∧ n + 1 ∈ ℤ ∧ t ∈ B → m + 1 + n + 1 · ˙ t = m + 1 · ˙ t + ˙ n + 1 · ˙ t
84 25 27 33 29 83 syl13anc ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → m + 1 + n + 1 · ˙ t = m + 1 · ˙ t + ˙ n + 1 · ˙ t
85 1 5 8 mulg2 ⊢ t ∈ B → 2 · ˙ t = t + ˙ t
86 29 85 syl ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → 2 · ˙ t = t + ˙ t
87 86 oveq1d ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → 2 · ˙ t + ˙ n + m · ˙ t = t + ˙ t + ˙ n + m · ˙ t
88 82 84 87 3eqtr3d ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → m + 1 · ˙ t + ˙ n + 1 · ˙ t = t + ˙ t + ˙ n + m · ˙ t
89 88 oveq1d ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → m + 1 · ˙ t + ˙ n + 1 · ˙ t - W X + ˙ Y = t + ˙ t + ˙ n + m · ˙ t - W X + ˙ Y
90 58 89 breqtrd ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → Y + ˙ X - W X + ˙ Y ≤ ˙ t + ˙ t + ˙ n + m · ˙ t - W X + ˙ Y
91 88 37 eqeltrrd ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → t + ˙ t + ˙ n + m · ˙ t ∈ B
92 eqid ⊢ inv g ⁡ W = inv g ⁡ W
93 1 8 92 56 grpsubval ⊢ t + ˙ t + ˙ n + m · ˙ t ∈ B ∧ X + ˙ Y ∈ B → t + ˙ t + ˙ n + m · ˙ t - W X + ˙ Y = t + ˙ t + ˙ n + m · ˙ t + ˙ inv g ⁡ W ⁡ X + ˙ Y
94 91 43 93 syl2anc ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → t + ˙ t + ˙ n + m · ˙ t - W X + ˙ Y = t + ˙ t + ˙ n + m · ˙ t + ˙ inv g ⁡ W ⁡ X + ˙ Y
95 90 94 breqtrd ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → Y + ˙ X - W X + ˙ Y ≤ ˙ t + ˙ t + ˙ n + m · ˙ t + ˙ inv g ⁡ W ⁡ X + ˙ Y
96 14 9 syl ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → opp 𝑔 ⁡ W ∈ oGrp
97 1 92 grpinvcl ⊢ W ∈ Grp ∧ X + ˙ Y ∈ B → inv g ⁡ W ⁡ X + ˙ Y ∈ B
98 25 43 97 syl2anc ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → inv g ⁡ W ⁡ X + ˙ Y ∈ B
99 79 znegcld ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → − n + m ∈ ℤ
100 1 5 mulgcl ⊢ W ∈ Grp ∧ − n + m ∈ ℤ ∧ t ∈ B → − n + m · ˙ t ∈ B
101 25 99 29 100 syl3anc ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → − n + m · ˙ t ∈ B
102 1 5 8 mulgdir ⊢ W ∈ Grp ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ t ∈ B → n + m · ˙ t = n · ˙ t + ˙ m · ˙ t
103 25 32 26 29 102 syl13anc ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → n + m · ˙ t = n · ˙ t + ˙ m · ˙ t
104 1 5 mulgcl ⊢ W ∈ Grp ∧ n ∈ ℤ ∧ t ∈ B → n · ˙ t ∈ B
105 25 32 29 104 syl3anc ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → n · ˙ t ∈ B
106 1 5 mulgcl ⊢ W ∈ Grp ∧ m ∈ ℤ ∧ t ∈ B → m · ˙ t ∈ B
107 25 26 29 106 syl3anc ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → m · ˙ t ∈ B
108 50 simpld ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → n · ˙ t < ˙ X
109 1 4 8 ogrpaddlt ⊢ W ∈ oGrp ∧ n · ˙ t ∈ B ∧ X ∈ B ∧ m · ˙ t ∈ B ∧ n · ˙ t < ˙ X → n · ˙ t + ˙ m · ˙ t < ˙ X + ˙ m · ˙ t
110 15 105 39 107 108 109 syl131anc ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → n · ˙ t + ˙ m · ˙ t < ˙ X + ˙ m · ˙ t
111 48 simpld ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → m · ˙ t < ˙ Y
112 1 4 8 15 96 107 41 39 111 ogrpaddltrd ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → X + ˙ m · ˙ t < ˙ X + ˙ Y
113 omndtos ⊢ W ∈ oMnd → W ∈ Toset
114 tospos ⊢ W ∈ Toset → W ∈ Poset
115 46 113 114 3syl ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → W ∈ Poset
116 1 8 grpcl ⊢ W ∈ Grp ∧ n · ˙ t ∈ B ∧ m · ˙ t ∈ B → n · ˙ t + ˙ m · ˙ t ∈ B
117 25 105 107 116 syl3anc ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → n · ˙ t + ˙ m · ˙ t ∈ B
118 1 8 grpcl ⊢ W ∈ Grp ∧ X ∈ B ∧ m · ˙ t ∈ B → X + ˙ m · ˙ t ∈ B
119 25 39 107 118 syl3anc ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → X + ˙ m · ˙ t ∈ B
120 1 4 plttr ⊢ W ∈ Poset ∧ n · ˙ t + ˙ m · ˙ t ∈ B ∧ X + ˙ m · ˙ t ∈ B ∧ X + ˙ Y ∈ B → n · ˙ t + ˙ m · ˙ t < ˙ X + ˙ m · ˙ t ∧ X + ˙ m · ˙ t < ˙ X + ˙ Y → n · ˙ t + ˙ m · ˙ t < ˙ X + ˙ Y
121 115 117 119 43 120 syl13anc ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → n · ˙ t + ˙ m · ˙ t < ˙ X + ˙ m · ˙ t ∧ X + ˙ m · ˙ t < ˙ X + ˙ Y → n · ˙ t + ˙ m · ˙ t < ˙ X + ˙ Y
122 110 112 121 mp2and ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → n · ˙ t + ˙ m · ˙ t < ˙ X + ˙ Y
123 103 122 eqbrtrd ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → n + m · ˙ t < ˙ X + ˙ Y
124 103 117 eqeltrd ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → n + m · ˙ t ∈ B
125 1 4 92 ogrpinvlt ⊢ W ∈ oGrp ∧ opp 𝑔 ⁡ W ∈ oGrp ∧ n + m · ˙ t ∈ B ∧ X + ˙ Y ∈ B → n + m · ˙ t < ˙ X + ˙ Y ↔ inv g ⁡ W ⁡ X + ˙ Y < ˙ inv g ⁡ W ⁡ n + m · ˙ t
126 15 96 124 43 125 syl211anc ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → n + m · ˙ t < ˙ X + ˙ Y ↔ inv g ⁡ W ⁡ X + ˙ Y < ˙ inv g ⁡ W ⁡ n + m · ˙ t
127 123 126 mpbid ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → inv g ⁡ W ⁡ X + ˙ Y < ˙ inv g ⁡ W ⁡ n + m · ˙ t
128 1 5 92 mulgneg ⊢ W ∈ Grp ∧ n + m ∈ ℤ ∧ t ∈ B → − n + m · ˙ t = inv g ⁡ W ⁡ n + m · ˙ t
129 25 79 29 128 syl3anc ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → − n + m · ˙ t = inv g ⁡ W ⁡ n + m · ˙ t
130 127 129 breqtrrd ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → inv g ⁡ W ⁡ X + ˙ Y < ˙ − n + m · ˙ t
131 1 4 8 15 96 98 101 91 130 ogrpaddltrd ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → t + ˙ t + ˙ n + m · ˙ t + ˙ inv g ⁡ W ⁡ X + ˙ Y < ˙ t + ˙ t + ˙ n + m · ˙ t + ˙ − n + m · ˙ t
132 1 56 grpsubcl ⊢ W ∈ Grp ∧ Y + ˙ X ∈ B ∧ X + ˙ Y ∈ B → Y + ˙ X - W X + ˙ Y ∈ B
133 25 24 43 132 syl3anc ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → Y + ˙ X - W X + ˙ Y ∈ B
134 1 8 grpcl ⊢ W ∈ Grp ∧ t + ˙ t + ˙ n + m · ˙ t ∈ B ∧ inv g ⁡ W ⁡ X + ˙ Y ∈ B → t + ˙ t + ˙ n + m · ˙ t + ˙ inv g ⁡ W ⁡ X + ˙ Y ∈ B
135 25 91 98 134 syl3anc ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → t + ˙ t + ˙ n + m · ˙ t + ˙ inv g ⁡ W ⁡ X + ˙ Y ∈ B
136 1 8 grpcl ⊢ W ∈ Grp ∧ t + ˙ t + ˙ n + m · ˙ t ∈ B ∧ − n + m · ˙ t ∈ B → t + ˙ t + ˙ n + m · ˙ t + ˙ − n + m · ˙ t ∈ B
137 25 91 101 136 syl3anc ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → t + ˙ t + ˙ n + m · ˙ t + ˙ − n + m · ˙ t ∈ B
138 1 3 4 plelttr ⊢ W ∈ Poset ∧ Y + ˙ X - W X + ˙ Y ∈ B ∧ t + ˙ t + ˙ n + m · ˙ t + ˙ inv g ⁡ W ⁡ X + ˙ Y ∈ B ∧ t + ˙ t + ˙ n + m · ˙ t + ˙ − n + m · ˙ t ∈ B → Y + ˙ X - W X + ˙ Y ≤ ˙ t + ˙ t + ˙ n + m · ˙ t + ˙ inv g ⁡ W ⁡ X + ˙ Y ∧ t + ˙ t + ˙ n + m · ˙ t + ˙ inv g ⁡ W ⁡ X + ˙ Y < ˙ t + ˙ t + ˙ n + m · ˙ t + ˙ − n + m · ˙ t → Y + ˙ X - W X + ˙ Y < ˙ t + ˙ t + ˙ n + m · ˙ t + ˙ − n + m · ˙ t
139 115 133 135 137 138 syl13anc ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → Y + ˙ X - W X + ˙ Y ≤ ˙ t + ˙ t + ˙ n + m · ˙ t + ˙ inv g ⁡ W ⁡ X + ˙ Y ∧ t + ˙ t + ˙ n + m · ˙ t + ˙ inv g ⁡ W ⁡ X + ˙ Y < ˙ t + ˙ t + ˙ n + m · ˙ t + ˙ − n + m · ˙ t → Y + ˙ X - W X + ˙ Y < ˙ t + ˙ t + ˙ n + m · ˙ t + ˙ − n + m · ˙ t
140 95 131 139 mp2and ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → Y + ˙ X - W X + ˙ Y < ˙ t + ˙ t + ˙ n + m · ˙ t + ˙ − n + m · ˙ t
141 1 8 grpcl ⊢ W ∈ Grp ∧ t ∈ B ∧ t ∈ B → t + ˙ t ∈ B
142 25 29 29 141 syl3anc ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → t + ˙ t ∈ B
143 1 8 grpass ⊢ W ∈ Grp ∧ t + ˙ t ∈ B ∧ n + m · ˙ t ∈ B ∧ − n + m · ˙ t ∈ B → t + ˙ t + ˙ n + m · ˙ t + ˙ − n + m · ˙ t = t + ˙ t + ˙ n + m · ˙ t + ˙ − n + m · ˙ t
144 25 142 124 101 143 syl13anc ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → t + ˙ t + ˙ n + m · ˙ t + ˙ − n + m · ˙ t = t + ˙ t + ˙ n + m · ˙ t + ˙ − n + m · ˙ t
145 60 59 addcld ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → n + m ∈ ℂ
146 145 negidd ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → n + m + − n + m = 0
147 146 oveq1d ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → n + m + − n + m · ˙ t = 0 · ˙ t
148 1 5 8 mulgdir ⊢ W ∈ Grp ∧ n + m ∈ ℤ ∧ − n + m ∈ ℤ ∧ t ∈ B → n + m + − n + m · ˙ t = n + m · ˙ t + ˙ − n + m · ˙ t
149 25 79 99 29 148 syl13anc ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → n + m + − n + m · ˙ t = n + m · ˙ t + ˙ − n + m · ˙ t
150 1 2 5 mulg0 ⊢ t ∈ B → 0 · ˙ t = 0 ˙
151 29 150 syl ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → 0 · ˙ t = 0 ˙
152 147 149 151 3eqtr3d ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → n + m · ˙ t + ˙ − n + m · ˙ t = 0 ˙
153 152 oveq2d ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → t + ˙ t + ˙ n + m · ˙ t + ˙ − n + m · ˙ t = t + ˙ t + ˙ 0 ˙
154 1 8 2 grprid ⊢ W ∈ Grp ∧ t + ˙ t ∈ B → t + ˙ t + ˙ 0 ˙ = t + ˙ t
155 25 142 154 syl2anc ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → t + ˙ t + ˙ 0 ˙ = t + ˙ t
156 144 153 155 3eqtrd ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → t + ˙ t + ˙ n + m · ˙ t + ˙ − n + m · ˙ t = t + ˙ t
157 140 156 breqtrd ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → Y + ˙ X - W X + ˙ Y < ˙ t + ˙ t
158 157 3anassrs ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ n ∈ ℤ ∧ m ∈ ℤ ∧ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t → Y + ˙ X - W X + ˙ Y < ˙ t + ˙ t
159 17 3ad2ant1 ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t → W ∈ oGrp
160 7 adantr ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X → W ∈ Archi
161 160 3ad2ant1 ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t → W ∈ Archi
162 simp3 ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t → 0 ˙ < ˙ t
163 9 adantr ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X → opp 𝑔 ⁡ W ∈ oGrp
164 163 3ad2ant1 ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t → opp 𝑔 ⁡ W ∈ oGrp
165 1 2 4 3 5 159 161 28 38 162 164 archirngz ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t → ∃ n ∈ ℤ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t
166 1 2 4 3 5 159 161 28 40 162 164 archirngz ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t → ∃ m ∈ ℤ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t
167 reeanv ⊢ ∃ n ∈ ℤ ∃ m ∈ ℤ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t ↔ ∃ n ∈ ℤ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ ∃ m ∈ ℤ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t
168 165 166 167 sylanbrc ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t → ∃ n ∈ ℤ ∃ m ∈ ℤ n · ˙ t < ˙ X ∧ X ≤ ˙ n + 1 · ˙ t ∧ m · ˙ t < ˙ Y ∧ Y ≤ ˙ m + 1 · ˙ t
169 158 168 r19.29vva ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t → Y + ˙ X - W X + ˙ Y < ˙ t + ˙ t
170 159 45 113 3syl ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t → W ∈ Toset
171 19 21 20 42 syl3anc ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X → X + ˙ Y ∈ B
172 19 23 171 132 syl3anc ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X → Y + ˙ X - W X + ˙ Y ∈ B
173 172 3ad2ant1 ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t → Y + ˙ X - W X + ˙ Y ∈ B
174 159 18 syl ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t → W ∈ Grp
175 174 28 28 141 syl3anc ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t → t + ˙ t ∈ B
176 1 3 4 tltnle ⊢ W ∈ Toset ∧ Y + ˙ X - W X + ˙ Y ∈ B ∧ t + ˙ t ∈ B → Y + ˙ X - W X + ˙ Y < ˙ t + ˙ t ↔ ¬ t + ˙ t ≤ ˙ Y + ˙ X - W X + ˙ Y
177 170 173 175 176 syl3anc ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t → Y + ˙ X - W X + ˙ Y < ˙ t + ˙ t ↔ ¬ t + ˙ t ≤ ˙ Y + ˙ X - W X + ˙ Y
178 169 177 mpbid ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t → ¬ t + ˙ t ≤ ˙ Y + ˙ X - W X + ˙ Y
179 178 3expa ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t → ¬ t + ˙ t ≤ ˙ Y + ˙ X - W X + ˙ Y
180 179 adantrr ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ t + ˙ t ≤ ˙ Y + ˙ X - W X + ˙ Y → ¬ t + ˙ t ≤ ˙ Y + ˙ X - W X + ˙ Y
181 13 180 pm2.21fal ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ t ∈ B ∧ 0 ˙ < ˙ t ∧ t + ˙ t ≤ ˙ Y + ˙ X - W X + ˙ Y → ⊥
182 10 3adant1r ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X ∧ a ∈ B ∧ 0 ˙ < ˙ a → ∃ b ∈ B 0 ˙ < ˙ b ∧ b < ˙ a
183 1 2 56 grpsubid ⊢ W ∈ Grp ∧ X + ˙ Y ∈ B → X + ˙ Y - W X + ˙ Y = 0 ˙
184 19 171 183 syl2anc ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X → X + ˙ Y - W X + ˙ Y = 0 ˙
185 simpr ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X → X + ˙ Y < ˙ Y + ˙ X
186 1 4 56 ogrpsublt ⊢ W ∈ oGrp ∧ X + ˙ Y ∈ B ∧ Y + ˙ X ∈ B ∧ X + ˙ Y ∈ B ∧ X + ˙ Y < ˙ Y + ˙ X → X + ˙ Y - W X + ˙ Y < ˙ Y + ˙ X - W X + ˙ Y
187 17 171 23 171 185 186 syl131anc ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X → X + ˙ Y - W X + ˙ Y < ˙ Y + ˙ X - W X + ˙ Y
188 184 187 eqbrtrrd ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X → 0 ˙ < ˙ Y + ˙ X - W X + ˙ Y
189 1 2 3 4 5 17 160 8 163 182 172 188 archiabllem2a ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X → ∃ t ∈ B 0 ˙ < ˙ t ∧ t + ˙ t ≤ ˙ Y + ˙ X - W X + ˙ Y
190 181 189 r19.29a ⊢ φ ∧ X + ˙ Y < ˙ Y + ˙ X → ⊥
191 190 inegd ⊢ φ → ¬ X + ˙ Y < ˙ Y + ˙ X