---

Step * 1 1 1 1 2 of Lemma parallelogram-construction2

.....aux..... 
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. Triangle(m;x;b)
⊢ Triangle(m;y;t)
BY
{ (((Assert a # xm BY Auto) THEN InstLemma  `out-preserves-lsep` [⌜e⌝;⌜a⌝;⌜x⌝;⌜m⌝;⌜b⌝;⌜m⌝]⋅ THEN EAuto 1)
   THEN (((Assert x # bm BY Auto) THEN (Assert x # tm BY Auto)) THEN (Assert t # xy BY Auto) THEN Auto)
   THEN D 0
   THEN Auto) }

---

Latex:

---

Latex:
.....aux..... 
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.  Triangle(m;x;b)
\mvdash{}  Triangle(m;y;t)


By

---

Latex:
(((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  (((Assert  x  \#  bm  BY  Auto)  THEN  (Assert  x  \#  tm  BY  Auto))
              THEN  (Assert  t  \#  xy  BY
                                      Auto)
              THEN  Auto)
  THEN  D  0
  THEN  Auto)

---

Home Index