---

Step * 2 1 of Lemma isosc-bisectors-between_1-ns


1. e : HeytingGeometry
2. b : Point
3. b' : Point
4. a : Point
5. c : Point
6. m : Point
7. a' : Point
8. m' : Point
9. c # ab'
10. ac ≅ b'c
11. c_a_a
12. c_b'_b'
13. a=m=b'
14. a=m'=b'
15. {aa ≅ bb'}
16. a' ≡ a
17. b' ≡ b
18. b ≡ b'
⊢ c_m'_m
BY
{ ((Assert m' ≡ m BY
          (InstLemma `at-most-one-midpoint` [⌜e⌝;⌜a⌝;⌜b'⌝;⌜m'⌝;⌜m⌝]⋅ THEN Auto))
   THEN EliminatePoint' (-1)
   THEN Auto) }

---

Latex:

---

Latex:

1.  e  :  HeytingGeometry
2.  b  :  Point
3.  b'  :  Point
4.  a  :  Point
5.  c  :  Point
6.  m  :  Point
7.  a'  :  Point
8.  m'  :  Point
9.  c  \#  ab'
10.  ac  \00D0  b'c
11.  c\_a\_a
12.  c\_b'\_b'
13.  a=m=b'
14.  a=m'=b'
15.  \{aa  \00D0  bb'\}
16.  a'  \mequiv{}  a
17.  b'  \mequiv{}  b
18.  b  \mequiv{}  b'
\mvdash{}  c\_m'\_m


By

---

Latex:
((Assert  m'  \mequiv{}  m  BY
                (InstLemma  `at-most-one-midpoint`  [\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}b'\mkleeneclose{};\mkleeneopen{}m'\mkleeneclose{};\mkleeneopen{}m\mkleeneclose{}]\mcdot{}  THEN  Auto))
  THEN  EliminatePoint'  (-1)
  THEN  Auto)

---

Home Index