Step * of Lemma geo-pt-swap-preserves-parallel

e:EuclideanPlane. ∀a,b,c,d:Point. ∀A:a ≠ b. ∀C:c ≠ d. ∀A':b ≠ a.  (<a, b, A> || <c, d, C>  <b, a, A'> || <c, d, C>)
BY
(Auto THEN (Assert ⌜<b, a, A'> = <a, b, A> ∈ LINE⌝⋅ THENM (RWO  "-1" THEN Auto))) }

1
.....assertion..... 
1. EuclideanPlane
2. Point
3. Point
4. Point
5. Point
6. a ≠ b
7. c ≠ d
8. A' b ≠ a
9. <a, b, A> || <c, d, C>
⊢ <b, a, A'> = <a, b, A> ∈ LINE


Latex:


Latex:
\mforall{}e:EuclideanPlane.  \mforall{}a,b,c,d:Point.  \mforall{}A:a  \mneq{}  b.  \mforall{}C:c  \mneq{}  d.  \mforall{}A':b  \mneq{}  a.
    (<a,  b,  A>  ||  <c,  d,  C>  {}\mRightarrow{}  <b,  a,  A'>  ||  <c,  d,  C>)


By


Latex:
(Auto  THEN  (Assert  \mkleeneopen{}<b,  a,  A'>  =  <a,  b,  A>\mkleeneclose{}\mcdot{}  THENM  (RWO    "-1"  0  THEN  Auto)))




Home Index