---

Step * 1 1 1 1 4 1 3 of Lemma parallelogram-construction2


1. e : EuclideanPlane
2. a : Point
3. b : Point
4. c : Point
5. x : Point
6. y : Point
7. a # bc
8. a-x-b
9. a-y-c
10. a # xy
11. m : Point
12. x=m=y
13. x # m
14. b # m
15. t : Point
16. b-m-t
17. mt ≅ bm
18. bmx ≅a ymt
19. xb ≅ yt
20. xt ≅ by
21. xby ≅a ytx
⊢ ∃t:Point
   (geo-parallel-points(e;b;x;y;t)
   ∧ bx ≅ yt
   ∧ xt ≅ by
   ∧ xby ≅a xty
   ∧ (¬¬((a leftof bc ⇒ (t leftof ac ∧ t leftof bc)) ∧ (a leftof cb ⇒ (t leftof ca ∧ t leftof cb)))))
BY
{ ((Assert m # bx BY
          ((Assert a # xm BY Auto) THEN InstLemma  `out-preserves-lsep` [⌜e⌝;⌜a⌝;⌜x⌝;⌜m⌝;⌜b⌝;⌜m⌝]⋅ THEN EAuto 1))
   THEN (InstLemma `outer-pasch-strict` [⌜e⌝;⌜b⌝;⌜x⌝;⌜a⌝;⌜m⌝;⌜y⌝]⋅
         THENA (Auto THEN D 12 THEN (MemTypeCD THEN Auto) THEN D 0 THEN Auto)
         )
   ) }

1
1. e : EuclideanPlane
2. a : Point
3. b : Point
4. c : Point
5. x : Point
6. y : Point
7. a # bc
8. a-x-b
9. a-y-c
10. a # xy
11. m : Point
12. x=m=y
13. x # m
14. b # m
15. t : Point
16. b-m-t
17. mt ≅ bm
18. bmx ≅a ymt
19. xb ≅ yt
20. xt ≅ by
21. xby ≅a ytx
22. m # bx
23. ∃p:Point [(b-m-p ∧ a-p-y)]
⊢ ∃t:Point
   (geo-parallel-points(e;b;x;y;t)
   ∧ bx ≅ yt
   ∧ xt ≅ by
   ∧ xby ≅a xty
   ∧ (¬¬((a leftof bc ⇒ (t leftof ac ∧ t leftof bc)) ∧ (a leftof cb ⇒ (t leftof ca ∧ t leftof cb)))))

---

Latex:

---

Latex:

1.  e  :  EuclideanPlane
2.  a  :  Point
3.  b  :  Point
4.  c  :  Point
5.  x  :  Point
6.  y  :  Point
7.  a  \#  bc
8.  a-x-b
9.  a-y-c
10.  a  \#  xy
11.  m  :  Point
12.  x=m=y
13.  x  \#  m
14.  b  \#  m
15.  t  :  Point
16.  b-m-t
17.  mt  \mcong{}  bm
18.  bmx  \mcong{}\msuba{}  ymt
19.  xb  \mcong{}  yt
20.  xt  \mcong{}  by
21.  xby  \mcong{}\msuba{}  ytx
\mvdash{}  \mexists{}t:Point
      (geo-parallel-points(e;b;x;y;t)
      \mwedge{}  bx  \mcong{}  yt
      \mwedge{}  xt  \mcong{}  by
      \mwedge{}  xby  \mcong{}\msuba{}  xty
      \mwedge{}  (\mneg{}\mneg{}((a  leftof  bc  {}\mRightarrow{}  (t  leftof  ac  \mwedge{}  t  leftof  bc))
          \mwedge{}  (a  leftof  cb  {}\mRightarrow{}  (t  leftof  ca  \mwedge{}  t  leftof  cb)))))


By

---

Latex:
((Assert  m  \#  bx  BY
                ((Assert  a  \#  xm  BY
                                Auto)
                  THEN  InstLemma    `out-preserves-lsep`  [\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}x\mkleeneclose{};\mkleeneopen{}m\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{};\mkleeneopen{}m\mkleeneclose{}]\mcdot{}
                  THEN  EAuto  1))
  THEN  (InstLemma  `outer-pasch-strict`  [\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{};\mkleeneopen{}x\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}m\mkleeneclose{};\mkleeneopen{}y\mkleeneclose{}]\mcdot{}
              THENA  (Auto  THEN  D  12  THEN  (MemTypeCD  THEN  Auto)  THEN  D  0  THEN  Auto)
              )
  )

---

Home Index