Step
*
2
2
of Lemma
geo-extend-equal-iff-congruent
1. e : BasicGeometry
2. a : Point
3. b : Point
4. c : Point
5. d : Point
6. c' : Point
7. d' : Point
8. a # b
9. v : Point
10. bv ≅ cd
11. B(abv)
12. v1 : Point
13. bv1 ≅ c'd'
14. B(abv1)
15. cd ≅ c'd'
16. bv ≅ bv1
⊢ v ≡ v1
BY
{ (((InstLemma `geo-five-segment` [⌜e⌝;⌜a⌝;⌜b⌝;⌜v⌝;⌜v1⌝;⌜a⌝;⌜b⌝;⌜v⌝;⌜v⌝]⋅ THEN Auto)
   THENM (FLemma `geo-congruence-identity-sym` [-1] THEN Auto)
   )
   THEN FLemma `geo-three-segment` [-6;-3]⋅
   THEN EAuto 1) }
Latex:
Latex:
1.  e  :  BasicGeometry
2.  a  :  Point
3.  b  :  Point
4.  c  :  Point
5.  d  :  Point
6.  c'  :  Point
7.  d'  :  Point
8.  a  \#  b
9.  v  :  Point
10.  bv  \mcong{}  cd
11.  B(abv)
12.  v1  :  Point
13.  bv1  \mcong{}  c'd'
14.  B(abv1)
15.  cd  \mcong{}  c'd'
16.  bv  \mcong{}  bv1
\mvdash{}  v  \mequiv{}  v1
By
Latex:
(((InstLemma  `geo-five-segment`  [\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{};\mkleeneopen{}v\mkleeneclose{};\mkleeneopen{}v1\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{};\mkleeneopen{}v\mkleeneclose{};\mkleeneopen{}v\mkleeneclose{}]\mcdot{}  THEN  Auto)
  THENM  (FLemma  `geo-congruence-identity-sym`  [-1]  THEN  Auto)
  )
  THEN  FLemma  `geo-three-segment`  [-6;-3]\mcdot{}
  THEN  EAuto  1)
Home
Index