---

Step * 2 of Lemma isosc-bisectors-between-ns


1. e : HeytingGeometry
2. a : Point
3. b : Point
4. c : Point
5. m : Point
6. a' : Point
7. b' : Point
8. m' : Point
9. c # ab
10. ac ≅ bc
11. c_a_a
12. b'_b_c
13. a=m=b
14. a=m'=b'
15. aa ≅ bb'
16. a' ≡ a
⊢ c_m_m'
BY
{ ((Assert b' ≡ b BY
          (InstLemma `geo-congruence-identity3` [⌜e⌝;⌜b⌝;⌜b'⌝;⌜a⌝;⌜a'⌝]⋅ THEN Auto THEN RWO "-1" 0 THEN Auto))
   THEN (EliminatePoint' (-2) THEN Auto)
   THEN EliminatePoint' (-1)
   THEN Auto) }

1
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. b'_b'_c
13. a=m=b'
14. a=m'=b'
15. {aa ≅ bb'}
16. a' ≡ a
17. b' ≡ b
18. b ≡ b'
⊢ c_m_m'

---

Latex:

---

Latex:

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


By

---

Latex:
((Assert  b'  \mequiv{}  b  BY
                (InstLemma  `geo-congruence-identity3`  [\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{};\mkleeneopen{}b'\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}a'\mkleeneclose{}]\mcdot{}
                  THEN  Auto
                  THEN  RWO  "-1"  0
                  THEN  Auto))
  THEN  (EliminatePoint'  (-2)  THEN  Auto)
  THEN  EliminatePoint'  (-1)
  THEN  Auto)

---

Home Index