Step * 1 1 of Lemma geo-line-eq-geoline


1. EuclideanPlane
2. Base
3. P1 Base
4. P1 ∈ pertype(λl,m. ((l ∈ Line) ∧ (m ∈ Line) ∧ l ≡ m))
5. P ∈ Line
6. P1 ∈ Line
7. P ≡ P1
8. Line
9. fst(l) P
10. fst(snd(l)) P
⊢ l ≡ P
BY
((RepeatFor (MoveToConcl (-1)) THEN (GenConcl ⌜m ∈ Line⌝⋅ THENA Auto)) THEN All Thin⋅}

1
1. EuclideanPlane
2. Line
3. Line
⊢ fst(l)  fst(snd(l))  l ≡ m


Latex:


Latex:

1.  e  :  EuclideanPlane
2.  P  :  Base
3.  P1  :  Base
4.  P  =  P1
5.  P  \mmember{}  Line
6.  P1  \mmember{}  Line
7.  P  \mequiv{}  P1
8.  l  :  Line
9.  fst(l)  I  P
10.  fst(snd(l))  I  P
\mvdash{}  l  \mequiv{}  P


By


Latex:
((RepeatFor  2  (MoveToConcl  (-1))  THEN  (GenConcl  \mkleeneopen{}P  =  m\mkleeneclose{}\mcdot{}  THENA  Auto))  THEN  All  Thin\mcdot{})




Home Index