Step * 1 1 of Lemma plsep-implies-ptriangle


1. ProjectivePlane
2. Point
3. Line
4. Point
5. q ≠ p
6. p ≠ l
7. l
8. q ≠ p
9. Line
10. q ≠ m
11. l ≠ m
12. Point
13. l
14. m
15. l
⊢ r ≠ q ∨ p
BY
(((Assert r ≠ BY (InstLemma `pgeo-plsep-to-psep` [⌜g⌝;⌜q⌝;⌜r⌝;⌜m⌝]⋅ THEN Auto)) THEN RenameVar `t1' (16))
   THEN ((InstLemma `use-triangle-axiom1` [⌜g⌝;⌜r⌝;⌜q⌝;⌜p⌝;⌜t1⌝;⌜s⌝]⋅ THEN Auto)
         THENA (InstLemma `pgeo-plsep-implies-join` [⌜g⌝;⌜p⌝;⌜l⌝]⋅ THEN Auto)
         )
   THEN Auto) }


Latex:


Latex:

1.  g  :  ProjectivePlane
2.  p  :  Point
3.  l  :  Line
4.  q  :  Point
5.  s  :  q  \mneq{}  p
6.  p  \mneq{}  l
7.  q  I  l
8.  q  \mneq{}  p
9.  m  :  Line
10.  q  \mneq{}  m
11.  l  \mneq{}  m
12.  r  :  Point
13.  r  I  l
14.  r  I  m
15.  r  I  l
\mvdash{}  r  \mneq{}  q  \mvee{}  p


By


Latex:
(((Assert  r  \mneq{}  q  BY
                  (InstLemma  `pgeo-plsep-to-psep`  [\mkleeneopen{}g\mkleeneclose{};\mkleeneopen{}q\mkleeneclose{};\mkleeneopen{}r\mkleeneclose{};\mkleeneopen{}m\mkleeneclose{}]\mcdot{}  THEN  Auto))
    THEN  RenameVar  `t1'  (16)
    )
  THEN  ((InstLemma  `use-triangle-axiom1`  [\mkleeneopen{}g\mkleeneclose{};\mkleeneopen{}r\mkleeneclose{};\mkleeneopen{}q\mkleeneclose{};\mkleeneopen{}p\mkleeneclose{};\mkleeneopen{}t1\mkleeneclose{};\mkleeneopen{}s\mkleeneclose{}]\mcdot{}  THEN  Auto)
              THENA  (InstLemma  `pgeo-plsep-implies-join`  [\mkleeneopen{}g\mkleeneclose{};\mkleeneopen{}p\mkleeneclose{};\mkleeneopen{}l\mkleeneclose{}]\mcdot{}  THEN  Auto)
              )
  THEN  Auto)




Home Index