---

Step * 1 2 3 of Lemma geo-add-length-lt-cancel-for-double


1. e : EuclideanPlane
2. a : {a:Point| O_X_a} 
3. b : {a:Point| O_X_a} 
4. a + a < b + b
5. a + a ≠ b + b
6. a + a ≠ a + b
7. a + b < a + a
8. b < a
9. b + b < a + b
⊢ a < b
BY
{ (((Assert False BY (InstLemma `geo-lt-irrefl2` [⌜e⌝;⌜b + b⌝;⌜a⌝;⌜a⌝]⋅ THEN Auto)) THEN Auto)
   THEN InstLemma `geo-lt_transitivity` [⌜e⌝;⌜b + b⌝;⌜a + b⌝;⌜a + a⌝]⋅
   THEN EAuto 1) }

---

Latex:

---

Latex:

1.  e  :  EuclideanPlane
2.  a  :  \{a:Point|  O\_X\_a\} 
3.  b  :  \{a:Point|  O\_X\_a\} 
4.  a  +  a  <  b  +  b
5.  a  +  a  \mneq{}  b  +  b
6.  a  +  a  \mneq{}  a  +  b
7.  a  +  b  <  a  +  a
8.  b  <  a
9.  b  +  b  <  a  +  b
\mvdash{}  a  <  b


By

---

Latex:
(((Assert  False  BY  (InstLemma  `geo-lt-irrefl2`  [\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}b  +  b\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{}]\mcdot{}  THEN  Auto))  THEN  Auto)
  THEN  InstLemma  `geo-lt\_transitivity`  [\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}b  +  b\mkleeneclose{};\mkleeneopen{}a  +  b\mkleeneclose{};\mkleeneopen{}a  +  a\mkleeneclose{}]\mcdot{}
  THEN  EAuto  1)

---

Home Index