---

Step * 3 1 1 of Lemma geo-lt-angle-left


1. e : EuclideanPlane
2. a : Point
3. b : Point
4. x : Point
5. y : Point
6. x leftof ab
7. y leftof ab
8. y leftof xa
9. p : Point
10. Colinear(a;y;p)
11. x-p-b
12. out(a py)
13. yab ≅a pab
⊢ yab < xab
BY
{ ((Assert ¬out(a bx) BY
          ((D 0 THENA Auto)
           THEN (Assert Colinear(b;a;x) BY
                       Auto)
           THEN (Assert x # ab BY
                       (Unfold `geo-lsep` 0 THEN Auto))
           THEN BLemma' `not-lsep-if-colinear`
           THEN Auto))
   THEN (Assert yab < bax BY
               ((Unfold `geo-lt-angle` 0 THEN GenRepD) THEN InstConcl [⌜p⌝;⌜p⌝;⌜b⌝;⌜x⌝]⋅ THEN EAuto 1))
   ) }

1
.....aux..... 
1. e : EuclideanPlane
2. a : Point
3. b : Point
4. x : Point
5. y : Point
6. x leftof ab
7. y leftof ab
8. y leftof xa
9. p : Point
10. Colinear(a;y;p)
11. x-p-b
12. out(a py)
13. yab ≅a pab
14. ¬out(a bx)
⊢ yab ≅a bap

2
1. e : EuclideanPlane
2. a : Point
3. b : Point
4. x : Point
5. y : Point
6. x leftof ab
7. y leftof ab
8. y leftof xa
9. p : Point
10. Colinear(a;y;p)
11. x-p-b
12. out(a py)
13. yab ≅a pab
14. ¬out(a bx)
15. yab < bax
⊢ yab < xab

---

Latex:

---

Latex:

1.  e  :  EuclideanPlane
2.  a  :  Point
3.  b  :  Point
4.  x  :  Point
5.  y  :  Point
6.  x  leftof  ab
7.  y  leftof  ab
8.  y  leftof  xa
9.  p  :  Point
10.  Colinear(a;y;p)
11.  x-p-b
12.  out(a  py)
13.  yab  \mcong{}\msuba{}  pab
\mvdash{}  yab  <  xab


By

---

Latex:
((Assert  \mneg{}out(a  bx)  BY
                ((D  0  THENA  Auto)
                  THEN  (Assert  Colinear(b;a;x)  BY
                                          Auto)
                  THEN  (Assert  x  \#  ab  BY
                                          (Unfold  `geo-lsep`  0  THEN  Auto))
                  THEN  BLemma'  `not-lsep-if-colinear`
                  THEN  Auto))
  THEN  (Assert  yab  <  bax  BY
                          ((Unfold  `geo-lt-angle`  0  THEN  GenRepD)
                            THEN  InstConcl  [\mkleeneopen{}p\mkleeneclose{};\mkleeneopen{}p\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{};\mkleeneopen{}x\mkleeneclose{}]\mcdot{}
                            THEN  EAuto  1))
  )

---

Home Index