---

Step * 1 1 1 3 of Lemma Euclid-Prop21


1. g : EuclideanPlane
2. a : Point
3. b : Point
4. c : Point
5. d : Point
6. a leftof bc ∧ d leftof bc ∧ d leftof ca ∧ d leftof ab
7. a leftof bd
8. c leftof db
9. x : Point
10. Colinear(b;d;x) ∧ a-x-c
11. b-d-x
⊢ {|cd| + |bd| < |ba| + |ac| ∧ bac < bdc}
BY
{ ((D -2 THEN Thin (-3))
   THEN (InstLemma `Euclid-Prop20` [⌜g⌝;⌜a⌝;⌜b⌝;⌜x⌝]⋅ THENA Auto)
   THEN (Assert |bx| + |xc| < |ba| + |ac| BY
               (D 10 THEN FLemma  `geo-add-length-between` [10] THEN Auto))) }

1
.....aux..... 
1. g : EuclideanPlane
2. a : Point
3. b : Point
4. c : Point
5. d : Point
6. a leftof bc
7. d leftof bc
8. d leftof ca
9. d leftof ab
10. a leftof bd
11. c leftof db
12. x : Point
13. B(axc)
14. a # x
15. x # c
16. b-d-x
17. |bx| < |ba| + |ax|
18. |ac| = |ax| + |xc| ∈ Length
⊢ |bx| + |xc| < |ba| + |ac|

2
1. g : EuclideanPlane
2. a : Point
3. b : Point
4. c : Point
5. d : Point
6. a leftof bc ∧ d leftof bc ∧ d leftof ca ∧ d leftof ab
7. a leftof bd
8. c leftof db
9. x : Point
10. a-x-c
11. b-d-x
12. |bx| < |ba| + |ax|
13. |bx| + |xc| < |ba| + |ac|
⊢ {|cd| + |bd| < |ba| + |ac| ∧ bac < bdc}

---

Latex:

---

Latex:

1.  g  :  EuclideanPlane
2.  a  :  Point
3.  b  :  Point
4.  c  :  Point
5.  d  :  Point
6.  a  leftof  bc  \mwedge{}  d  leftof  bc  \mwedge{}  d  leftof  ca  \mwedge{}  d  leftof  ab
7.  a  leftof  bd
8.  c  leftof  db
9.  x  :  Point
10.  Colinear(b;d;x)  \mwedge{}  a-x-c
11.  b-d-x
\mvdash{}  \{|cd|  +  |bd|  <  |ba|  +  |ac|  \mwedge{}  bac  <  bdc\}


By

---

Latex:
((D  -2  THEN  Thin  (-3))
  THEN  (InstLemma  `Euclid-Prop20`  [\mkleeneopen{}g\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{};\mkleeneopen{}x\mkleeneclose{}]\mcdot{}  THENA  Auto)
  THEN  (Assert  |bx|  +  |xc|  <  |ba|  +  |ac|  BY
                          (D  10  THEN  FLemma    `geo-add-length-between`  [10]  THEN  Auto)))

---

Home Index