Step * of Lemma geo-intersect-iff2

e:EuclideanPlane. ∀p,l:LINE.
  (p \/ l
  ⇐⇒ ∃a,b,c,d,v:Point
       (a-v-b ∧ c-v-d ∧ p ∧ p ∧ l ∧ l ∧ leftof cd ∧ leftof dc ∧ leftof ba ∧ leftof ab))
BY
(Intros
   THEN (RWO "geo-intersect-iff" THENA Auto)
   THEN (RepeatFor (D 0) THENA Auto)
   THEN RepeatFor (ParallelLast)
   THEN Auto) }

1
1. EuclideanPlane
2. LINE
3. LINE
4. Point
5. Point
6. Point
7. Point
8. Point
9. a-v-b
10. c-v-d
11. p
12. p
13. l
14. l
15. leftof cd
16. leftof dc
17. a-v-b
18. c-v-d
19. p
20. p
21. l
22. l
23. leftof cd
24. leftof dc
⊢ leftof ba

2
1. EuclideanPlane
2. LINE
3. LINE
4. Point
5. Point
6. Point
7. Point
8. Point
9. a-v-b
10. c-v-d
11. p
12. p
13. l
14. l
15. leftof cd
16. leftof dc
17. a-v-b
18. c-v-d
19. p
20. p
21. l
22. l
23. leftof cd
24. leftof dc
25. leftof ba
⊢ leftof ab


Latex:


Latex:
\mforall{}e:EuclideanPlane.  \mforall{}p,l:LINE.
    (p  \mbackslash{}/  l
    \mLeftarrow{}{}\mRightarrow{}  \mexists{}a,b,c,d,v:Point
              (a-v-b
              \mwedge{}  c-v-d
              \mwedge{}  a  I  p
              \mwedge{}  b  I  p
              \mwedge{}  c  I  l
              \mwedge{}  d  I  l
              \mwedge{}  a  leftof  cd
              \mwedge{}  b  leftof  dc
              \mwedge{}  c  leftof  ba
              \mwedge{}  d  leftof  ab))


By


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




Home Index