---

Step * 1 2 1 1 1 1 2 1 of Lemma Euclid-erect-2perp


1. e : EuclideanPlane
2. b : Point
3. a : Point
4. c : Point
5. a ≠ b
6. Colinear(a;b;c)
7. ¬((¬a_c_b) ∧ (¬a_b_c))
8. d : Point
9. b=a=d
10. d_a_c
11. c ≠ d
12. d' : Point
13. d=c=d'
14. out(b ad)
15. out(d bd')
16. d ≠ c
17. d=c=d'
18. Colinear(a;b;d)
19. x : Point
20. x leftof ab
⊢ x leftof dd'
BY
{ ((InstLemma `geo-left-out-1` [⌜e⌝;⌜b⌝;⌜a⌝;⌜d⌝;⌜x⌝]⋅ THENA Auto)
   THEN InstLemma `geo-left-out` [⌜e⌝;⌜b⌝;⌜d⌝;⌜d'⌝;⌜x⌝]⋅
   THEN Auto) }

---

Latex:

---

Latex:

1.  e  :  EuclideanPlane
2.  b  :  Point
3.  a  :  Point
4.  c  :  Point
5.  a  \mneq{}  b
6.  Colinear(a;b;c)
7.  \mneg{}((\mneg{}a\_c\_b)  \mwedge{}  (\mneg{}a\_b\_c))
8.  d  :  Point
9.  b=a=d
10.  d\_a\_c
11.  c  \mneq{}  d
12.  d'  :  Point
13.  d=c=d'
14.  out(b  ad)
15.  out(d  bd')
16.  d  \mneq{}  c
17.  d=c=d'
18.  Colinear(a;b;d)
19.  x  :  Point
20.  x  leftof  ab
\mvdash{}  x  leftof  dd'


By

---

Latex:
((InstLemma  `geo-left-out-1`  [\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}d\mkleeneclose{};\mkleeneopen{}x\mkleeneclose{}]\mcdot{}  THENA  Auto)
  THEN  InstLemma  `geo-left-out`  [\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{};\mkleeneopen{}d\mkleeneclose{};\mkleeneopen{}d'\mkleeneclose{};\mkleeneopen{}x\mkleeneclose{}]\mcdot{}
  THEN  Auto)

---

Home Index