---

Step * 6 of Lemma eu-eq_dist-axiomsB


1. g : EuclideanPlane
2. ∀a,b,c:Point.  (a # bc ⇒ |ac| < |ab| + |bc|)
3. a : Point
4. b : Point
5. c : Point
6. d : Point
7. e : Point
8. Dbet(g;a;b;c)
9. D(a;b;b;c;d;e)
⊢ D(a;c;c;c;d;e)
BY
{ (((InstLemma `Dbet-to-between` [⌜g⌝;⌜a⌝;⌜b⌝;⌜c⌝]⋅ THEN Auto) THEN FLemma `dist-iff-lt` [-2] THEN Auto)
   THEN (FLemma `geo-add-length-between` [-2] THEN Auto)
   THEN ((Assert |ab| + |bc| = |ac| ∈ Length BY Auto) THEN RWO "-1" (-3) THEN Auto)
   THEN InstLemma `dist-iff-lt` [⌜g⌝;⌜a⌝;⌜c⌝;⌜c⌝;⌜c⌝;⌜d⌝;⌜e⌝]⋅
   THEN Auto
   THEN BackThruSomeHyp) }

1
1. g : EuclideanPlane
2. ∀a,b,c:Point.  (a # bc ⇒ |ac| < |ab| + |bc|)
3. a : Point
4. b : Point
5. c : Point
6. d : Point
7. e : Point
8. Dbet(g;a;b;c)
9. D(a;b;b;c;d;e)
10. B(abc)
11. |de| < |ac|
12. |ac| = |ab| + |bc| ∈ Length
13. |ab| + |bc| = |ac| ∈ Length
14. |de| < |ac| + |cc| ⇒ D(a;c;c;c;d;e)
15. |de| < |ac| + |cc| ⇐ D(a;c;c;c;d;e)
⊢ |de| < |ac| + |cc|

---

Latex:

---

Latex:

1.  g  :  EuclideanPlane
2.  \mforall{}a,b,c:Point.    (a  \#  bc  {}\mRightarrow{}  |ac|  <  |ab|  +  |bc|)
3.  a  :  Point
4.  b  :  Point
5.  c  :  Point
6.  d  :  Point
7.  e  :  Point
8.  Dbet(g;a;b;c)
9.  D(a;b;b;c;d;e)
\mvdash{}  D(a;c;c;c;d;e)


By

---

Latex:
(((InstLemma  `Dbet-to-between`  [\mkleeneopen{}g\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{};\mkleeneopen{}c\mkleeneclose{}]\mcdot{}  THEN  Auto)
    THEN  FLemma  `dist-iff-lt`  [-2]
    THEN  Auto)
  THEN  (FLemma  `geo-add-length-between`  [-2]  THEN  Auto)
  THEN  ((Assert  |ab|  +  |bc|  =  |ac|  BY  Auto)  THEN  RWO  "-1"  (-3)  THEN  Auto)
  THEN  InstLemma  `dist-iff-lt`  [\mkleeneopen{}g\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}c\mkleeneclose{};\mkleeneopen{}c\mkleeneclose{};\mkleeneopen{}c\mkleeneclose{};\mkleeneopen{}d\mkleeneclose{};\mkleeneopen{}e\mkleeneclose{}]\mcdot{}
  THEN  Auto
  THEN  BackThruSomeHyp)

---

Home Index