Step * of Lemma geo-intersect-points-iff2

No Annotations
e:EuclideanPlane. ∀p1,p2,l1,l2:Point.
  (p1p2 \/ l1l2
  ⇐⇒ p1 p2
      ∧ l1 l2
      ∧ (∃a,b,c,d,v:Point
          (a-v-b
          ∧ c-v-d
          ∧ Colinear(a;p1;p2)
          ∧ Colinear(b;p1;p2)
          ∧ Colinear(c;l1;l2)
          ∧ Colinear(d;l1;l2)
          ∧ leftof cd
          ∧ leftof dc
          ∧ leftof ba
          ∧ leftof ab)))
BY
(Intros
   THEN (RWO "geo-intersect-points-iff" THENA Auto)
   THEN (RepeatFor (D 0) THENA Auto)
   THEN RepeatFor (ParallelLast)
   THEN Auto) }

1
1. EuclideanPlane
2. p1 Point
3. p2 Point
4. l1 Point
5. l2 Point
6. p1 p2
7. l1 l2
8. a1 Point
9. b1 Point
10. c1 Point
11. ∃d1,v:Point
     (a1-v-b1
     ∧ c1-v-d1
     ∧ Colinear(a1;p1;p2)
     ∧ Colinear(b1;p1;p2)
     ∧ Colinear(c1;l1;l2)
     ∧ Colinear(d1;l1;l2)
     ∧ a1 leftof c1d1
     ∧ b1 leftof d1c1)
⊢ ∃d,v:Point
   (a1-v-b1
   ∧ c1-v-d
   ∧ Colinear(a1;p1;p2)
   ∧ Colinear(b1;p1;p2)
   ∧ Colinear(c1;l1;l2)
   ∧ Colinear(d;l1;l2)
   ∧ a1 leftof c1d
   ∧ b1 leftof dc1
   ∧ c1 leftof b1a1
   ∧ leftof a1b1)


Latex:


Latex:
No  Annotations
\mforall{}e:EuclideanPlane.  \mforall{}p1,p2,l1,l2:Point.
    (p1p2  \mbackslash{}/  l1l2
    \mLeftarrow{}{}\mRightarrow{}  p1  \#  p2
            \mwedge{}  l1  \#  l2
            \mwedge{}  (\mexists{}a,b,c,d,v:Point
                    (a-v-b
                    \mwedge{}  c-v-d
                    \mwedge{}  Colinear(a;p1;p2)
                    \mwedge{}  Colinear(b;p1;p2)
                    \mwedge{}  Colinear(c;l1;l2)
                    \mwedge{}  Colinear(d;l1;l2)
                    \mwedge{}  a  leftof  cd
                    \mwedge{}  b  leftof  dc
                    \mwedge{}  c  leftof  ba
                    \mwedge{}  d  leftof  ab)))


By


Latex:
(Intros
  THEN  (RWO  "geo-intersect-points-iff"  0  THENA  Auto)
  THEN  (RepeatFor  2  (D  0)  THENA  Auto)
  THEN  RepeatFor  5  (ParallelLast)
  THEN  Auto)




Home Index