Step * 1 of Lemma geo-intersect-iff3


1. EuclideanPlane
2. LINE
3. LINE
4. \/ l
5. Point
6. Point
7. Point
8. Point
9. Point
10. a-v-b
11. c-v-d
12. p
13. p
14. l
15. l
16. leftof cd
17. leftof dc
18. leftof ba
19. leftof ab
⊢ ∃sab:a ≠ b
   ∃scd:c ≠ d
    ((p = <a, b, sab> ∈ LINE)
    ∧ (l = <c, d, scd> ∈ LINE)
    ∧ a-v-b
    ∧ c-v-d
    ∧ leftof cd
    ∧ leftof dc
    ∧ leftof ba
    ∧ leftof ab)
BY
(((Assert a ≠ BY
           Auto)
    THEN RenameVar `sab' (-1)
    THEN (D With ⌜sab⌝  THENA (Auto THEN SubsumeC ⌜Line⌝⋅ THEN Auto)))
   THEN (Assert c ≠ BY
               Auto)
   THEN RenameVar `scd' (-1)
   THEN (D With ⌜scd⌝  THENA (Auto THEN SubsumeC ⌜Line⌝⋅ THEN Auto))
   THEN Auto
   THEN Symmetry
   THEN BLemma `geo-line-eq-geoline`
   THEN Reduce 0
   THEN Auto) }


Latex:


Latex:

1.  e  :  EuclideanPlane
2.  p  :  LINE
3.  l  :  LINE
4.  p  \mbackslash{}/  l
5.  a  :  Point
6.  b  :  Point
7.  c  :  Point
8.  d  :  Point
9.  v  :  Point
10.  a-v-b
11.  c-v-d
12.  a  I  p
13.  b  I  p
14.  c  I  l
15.  d  I  l
16.  a  leftof  cd
17.  b  leftof  dc
18.  c  leftof  ba
19.  d  leftof  ab
\mvdash{}  \mexists{}sab:a  \mneq{}  b
      \mexists{}scd:c  \mneq{}  d
        ((p  =  <a,  b,  sab>)
        \mwedge{}  (l  =  <c,  d,  scd>)
        \mwedge{}  a-v-b
        \mwedge{}  c-v-d
        \mwedge{}  a  leftof  cd
        \mwedge{}  b  leftof  dc
        \mwedge{}  c  leftof  ba
        \mwedge{}  d  leftof  ab)


By


Latex:
(((Assert  a  \mneq{}  b  BY
                  Auto)
    THEN  RenameVar  `sab'  (-1)
    THEN  (D  0  With  \mkleeneopen{}sab\mkleeneclose{}    THENA  (Auto  THEN  SubsumeC  \mkleeneopen{}Line\mkleeneclose{}\mcdot{}  THEN  Auto)))
  THEN  (Assert  c  \mneq{}  d  BY
                          Auto)
  THEN  RenameVar  `scd'  (-1)
  THEN  (D  0  With  \mkleeneopen{}scd\mkleeneclose{}    THENA  (Auto  THEN  SubsumeC  \mkleeneopen{}Line\mkleeneclose{}\mcdot{}  THEN  Auto))
  THEN  Auto
  THEN  Symmetry
  THEN  BLemma  `geo-line-eq-geoline`
  THEN  Reduce  0
  THEN  Auto)




Home Index