---

Step * 1 1 2 7 1 1 of Lemma rectangle-sides-cong


1. g : EuclideanPlane
2. a : Point
3. b : Point
4. c : Point
5. d : Point
6. e : Point
7. f : Point
8. e # ac
9. f # eb
10. ac  ⊥b be
11. df  ⊥e eb
12. d-e-f
13. a-b-c
14. ab ≅ eb
15. bc ≅ eb
16. de ≅ eb
17. ef ≅ eb
18. ae ≅ ce
19. db ≅ fb
20. db ≅ ae
21. feb ≅a deb
22. abe ≅a cbe
23. a leftof be
24. f leftof eb
25. x : Point
26. Colinear(e;b;x)
27. f-x-a
28. B(exb)
29. e # b
30. x # b
31. x # e
32. axb ≅a fxe
⊢ ad ≅ fc ∧ dc ≅ fa
BY
{ (((Assert Reba BY
           ((D 10 THEN ExRepD) THEN InstHyp [⌜a⌝;⌜e⌝] (12)⋅ THEN EAuto 1))
    THEN (Assert Rbef BY
                ((D 11 THEN ExRepD) THEN InstHyp [⌜f⌝;⌜b⌝] (13)⋅ THEN EAuto 1))
    )
   THEN (Assert xba ≅a xef BY
               ((InstLemma  `geo-right-angles-congruent` [⌜g⌝;⌜e⌝;⌜b⌝;⌜a⌝;⌜b⌝;⌜e⌝;⌜f⌝]⋅ THENA EAuto 1)
                THEN (InstLemma  `out-preserves-angle-cong_1` [⌜g⌝;⌜e⌝;⌜b⌝;⌜a⌝;⌜b⌝;⌜e⌝;⌜f⌝;⌜x⌝;⌜a⌝;⌜x⌝;⌜f⌝]⋅
                      THEN EAuto 1
                      )
                THEN D 0
                THEN Auto))
   ) }

1
1. g : EuclideanPlane
2. a : Point
3. b : Point
4. c : Point
5. d : Point
6. e : Point
7. f : Point
8. e # ac
9. f # eb
10. ac  ⊥b be
11. df  ⊥e eb
12. d-e-f
13. a-b-c
14. ab ≅ eb
15. bc ≅ eb
16. de ≅ eb
17. ef ≅ eb
18. ae ≅ ce
19. db ≅ fb
20. db ≅ ae
21. feb ≅a deb
22. abe ≅a cbe
23. a leftof be
24. f leftof eb
25. x : Point
26. Colinear(e;b;x)
27. f-x-a
28. B(exb)
29. e # b
30. x # b
31. x # e
32. axb ≅a fxe
33. Reba
34. Rbef
35. xba ≅a xef
⊢ ad ≅ fc ∧ dc ≅ fa

---

Latex:

---

Latex:

1.  g  :  EuclideanPlane
2.  a  :  Point
3.  b  :  Point
4.  c  :  Point
5.  d  :  Point
6.  e  :  Point
7.  f  :  Point
8.  e  \#  ac
9.  f  \#  eb
10.  ac    \mbot{}b  be
11.  df    \mbot{}e  eb
12.  d-e-f
13.  a-b-c
14.  ab  \mcong{}  eb
15.  bc  \mcong{}  eb
16.  de  \mcong{}  eb
17.  ef  \mcong{}  eb
18.  ae  \mcong{}  ce
19.  db  \mcong{}  fb
20.  db  \mcong{}  ae
21.  feb  \mcong{}\msuba{}  deb
22.  abe  \mcong{}\msuba{}  cbe
23.  a  leftof  be
24.  f  leftof  eb
25.  x  :  Point
26.  Colinear(e;b;x)
27.  f-x-a
28.  B(exb)
29.  e  \#  b
30.  x  \#  b
31.  x  \#  e
32.  axb  \mcong{}\msuba{}  fxe
\mvdash{}  ad  \mcong{}  fc  \mwedge{}  dc  \mcong{}  fa


By

---

Latex:
(((Assert  Reba  BY
                  ((D  10  THEN  ExRepD)  THEN  InstHyp  [\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}e\mkleeneclose{}]  (12)\mcdot{}  THEN  EAuto  1))
    THEN  (Assert  Rbef  BY
                            ((D  11  THEN  ExRepD)  THEN  InstHyp  [\mkleeneopen{}f\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{}]  (13)\mcdot{}  THEN  EAuto  1))
    )
  THEN  (Assert  xba  \mcong{}\msuba{}  xef  BY
                          ((InstLemma    `geo-right-angles-congruent`  [\mkleeneopen{}g\mkleeneclose{};\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{};\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}f\mkleeneclose{}]\mcdot{}  THENA  EAuto  1)
                            THEN  (InstLemma    `out-preserves-angle-cong\_1`  [\mkleeneopen{}g\mkleeneclose{};\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{};\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}f\mkleeneclose{};\mkleeneopen{}x\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}x\mkleeneclose{}
                                        ;\mkleeneopen{}f\mkleeneclose{}]\mcdot{}
                                        THEN  EAuto  1
                                        )
                            THEN  D  0
                            THEN  Auto))
  )

---

Home Index