---

Step * 1 1 1 1 of Lemma Euclid-prop16


1. g : EuclideanPlane
2. a : Point
3. b : Point
4. c : Point
5. d : Point
6. a # bc
7. b-c-d
8. x : {x:Point| b=x=c} 
9. y : {y:Point| a=x=y} 
10. abc ≅a ycb
11. b # x
12. x # c
13. a # x
14. x # y
15. g' : Point
16. a-c-g'
17. cg' ≅ OX
18. x # ac
19. g'-c-a ∧ y-x-a
20. a # xc
21. a # yg' ∧ out(a cg')
⊢ cba < acd
BY
{ ((((InstLemma `geo-inner-pasch-ex` [⌜g⌝;⌜y⌝;⌜g'⌝;⌜a⌝;⌜x⌝;⌜c⌝]⋅ THENA Auto) THEN ExRepD)
    THEN RenameVar `p' (-3)
    THEN Auto)
   THEN Assert ⌜cba < g'cb⌝⋅
   ) }

1
.....assertion..... 
1. g : EuclideanPlane
2. a : Point
3. b : Point
4. c : Point
5. d : Point
6. a # bc
7. b-c-d
8. x : {x:Point| b=x=c} 
9. y : {y:Point| a=x=y} 
10. abc ≅a ycb
11. b # x
12. x # c
13. a # x
14. x # y
15. g' : Point
16. a-c-g'
17. cg' ≅ OX
18. x # ac
19. g'-c-a
20. y-x-a
21. a # xc
22. a # yg'
23. out(a cg')
24. p : Point
25. g'-p-x
26. y-p-c
⊢ cba < g'cb

2
1. g : EuclideanPlane
2. a : Point
3. b : Point
4. c : Point
5. d : Point
6. a # bc
7. b-c-d
8. x : {x:Point| b=x=c} 
9. y : {y:Point| a=x=y} 
10. abc ≅a ycb
11. b # x
12. x # c
13. a # x
14. x # y
15. g' : Point
16. a-c-g'
17. cg' ≅ OX
18. x # ac
19. g'-c-a
20. y-x-a
21. a # xc
22. a # yg'
23. out(a cg')
24. p : Point
25. g'-p-x
26. y-p-c
27. cba < g'cb
⊢ cba < acd

---

Latex:

---

Latex:

1.  g  :  EuclideanPlane
2.  a  :  Point
3.  b  :  Point
4.  c  :  Point
5.  d  :  Point
6.  a  \#  bc
7.  b-c-d
8.  x  :  \{x:Point|  b=x=c\} 
9.  y  :  \{y:Point|  a=x=y\} 
10.  abc  \mcong{}\msuba{}  ycb
11.  b  \#  x
12.  x  \#  c
13.  a  \#  x
14.  x  \#  y
15.  g'  :  Point
16.  a-c-g'
17.  cg'  \mcong{}  OX
18.  x  \#  ac
19.  g'-c-a  \mwedge{}  y-x-a
20.  a  \#  xc
21.  a  \#  yg'  \mwedge{}  out(a  cg')
\mvdash{}  cba  <  acd


By

---

Latex:
((((InstLemma  `geo-inner-pasch-ex`  [\mkleeneopen{}g\mkleeneclose{};\mkleeneopen{}y\mkleeneclose{};\mkleeneopen{}g'\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}x\mkleeneclose{};\mkleeneopen{}c\mkleeneclose{}]\mcdot{}  THENA  Auto)  THEN  ExRepD)
    THEN  RenameVar  `p'  (-3)
    THEN  Auto)
  THEN  Assert  \mkleeneopen{}cba  <  g'cb\mkleeneclose{}\mcdot{}
  )

---

Home Index