---

Step * 2 1 1 of Lemma geo-extend_functionality


1. e : BasicGeometry
2. a : Point
3. b : {b:Point| a # b} 
4. a' : Point
5. b' : {b':Point| a' # b'} 
6. c : Point
7. d : Point
8. b ≡ b'
9. a ≡ a'
⊢ extend ab by cd ≡ extend a'b' by cd
BY
{ (InstLemma `geo-construction-unicity` [⌜e⌝;⌜a⌝;⌜b⌝;⌜extend ab by cd⌝;⌜extend a'b' by cd⌝]⋅ THEN Auto) }

1
.....antecedent..... 
1. e : BasicGeometry
2. a : Point
3. b : {b:Point| a # b} 
4. a' : Point
5. b' : {b':Point| a' # b'} 
6. c : Point
7. d : Point
8. b ≡ b'
9. a ≡ a'
⊢ B(abextend a'b' by cd)

2
.....antecedent..... 
1. e : BasicGeometry
2. a : Point
3. b : {b:Point| a # b} 
4. a' : Point
5. b' : {b':Point| a' # b'} 
6. c : Point
7. d : Point
8. b ≡ b'
9. a ≡ a'
⊢ bextend a'b' by cd ≅ bextend ab by cd

---

Latex:

---

Latex:

1.  e  :  BasicGeometry
2.  a  :  Point
3.  b  :  \{b:Point|  a  \#  b\} 
4.  a'  :  Point
5.  b'  :  \{b':Point|  a'  \#  b'\} 
6.  c  :  Point
7.  d  :  Point
8.  b  \mequiv{}  b'
9.  a  \mequiv{}  a'
\mvdash{}  extend  ab  by  cd  \mequiv{}  extend  a'b'  by  cd


By

---

Latex:
(InstLemma  `geo-construction-unicity`  [\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{};\mkleeneopen{}extend  ab  by  cd\mkleeneclose{};\mkleeneopen{}extend  a'b'  by  cd\mkleeneclose{}]\mcdot{}
  THEN  Auto
  )

---

Home Index