Step
*
of Lemma
euclidean-plane-axioms
No Annotations
∀g:EuclideanPlane
  (((∀a,b:Point.  (a # b 
⇒ b # a))
   ∧ (∀a:Point. (¬a # a))
   ∧ (∀a,b,x,y:Point.  (a ≡ b 
⇒ B(xay) 
⇒ B(xby)))
   ∧ ((∀a,b,c:Point.  (a ≡ b 
⇒ ac ≅ cb)) ∧ (∀a,b,c:Point.  (a ≡ b 
⇒ ac ≅ bc)))
   ∧ (∀a,b,c,d:Point.  (cd ≥ ab 
⇒ a # b 
⇒ c # d))
   ∧ (∀a,b,c:Point.  (a ≡ b 
⇒ B(abc)))
   ∧ (∀a,b,c:Point.  (B(abc) 
⇒ B(cba)))
   ∧ (∀a,b,c,d:Point.  (B(abd) 
⇒ B(bcd) 
⇒ B(abc)))
   ∧ (∀a,b:Point.  ab ≅ ba)
   ∧ (∀a,b,p,q,r,s:Point.  (ab ≅ pq 
⇒ ab ≅ rs 
⇒ pq ≅ rs))
   ∧ (∀a,b:Point.  aa ≅ bb)
   ∧ (∀a,b,c,d,A,B,C,D:Point.  (a # b 
⇒ B(abc) 
⇒ B(ABC) 
⇒ ab ≅ AB 
⇒ bc ≅ BC 
⇒ ad ≅ AD 
⇒ bd ≅ BD 
⇒ cd ≅ CD)))
  ∧ (∀a,b,c:Point.  (¬a # bc 
⇐⇒ Colinear(a;b;c)))
  ∧ (∀a,b,c:Point.  (a leftof bc 
⇒ b leftof ca))
  ∧ (∀a,b,c:Point.  (a leftof bc 
⇒ b # c))
  ∧ (∀a,b,x,y,z:Point.  (x leftof ab 
⇒ y leftof ab 
⇒ B(xzy) 
⇒ z # ab))
  ∧ (∀a,b,c,y:Point.  (a # bc 
⇒ y # b 
⇒ Colinear(y;a;b) 
⇒ y # bc)))
BY
{ ((D 0 THENA Auto)
   THEN (Assert BasicGeometryAxioms(g) ∧ (∀a,b,c:Point.  (a # bc 
⇒ (¬Colinear(a;b;c)))) BY
               (D 1 THEN Unhide THEN Auto THEN (D 3 THEN Auto) THEN (D 0 THENA Auto) THEN RWO "3<" (-1) THEN Auto))
   ) }
1
1. g : EuclideanPlane
2. BasicGeometryAxioms(g) ∧ (∀a,b,c:Point.  (a # bc 
⇒ (¬Colinear(a;b;c))))
⊢ ((∀a,b:Point.  (a # b 
⇒ b # a))
  ∧ (∀a:Point. (¬a # a))
  ∧ (∀a,b,x,y:Point.  (a ≡ b 
⇒ B(xay) 
⇒ B(xby)))
  ∧ ((∀a,b,c:Point.  (a ≡ b 
⇒ ac ≅ cb)) ∧ (∀a,b,c:Point.  (a ≡ b 
⇒ ac ≅ bc)))
  ∧ (∀a,b,c,d:Point.  (cd ≥ ab 
⇒ a # b 
⇒ c # d))
  ∧ (∀a,b,c:Point.  (a ≡ b 
⇒ B(abc)))
  ∧ (∀a,b,c:Point.  (B(abc) 
⇒ B(cba)))
  ∧ (∀a,b,c,d:Point.  (B(abd) 
⇒ B(bcd) 
⇒ B(abc)))
  ∧ (∀a,b:Point.  ab ≅ ba)
  ∧ (∀a,b,p,q,r,s:Point.  (ab ≅ pq 
⇒ ab ≅ rs 
⇒ pq ≅ rs))
  ∧ (∀a,b:Point.  aa ≅ bb)
  ∧ (∀a,b,c,d,A,B,C,D:Point.  (a # b 
⇒ B(abc) 
⇒ B(ABC) 
⇒ ab ≅ AB 
⇒ bc ≅ BC 
⇒ ad ≅ AD 
⇒ bd ≅ BD 
⇒ cd ≅ CD)))
∧ (∀a,b,c:Point.  (¬a # bc 
⇐⇒ Colinear(a;b;c)))
∧ (∀a,b,c:Point.  (a leftof bc 
⇒ b leftof ca))
∧ (∀a,b,c:Point.  (a leftof bc 
⇒ b # c))
∧ (∀a,b,x,y,z:Point.  (x leftof ab 
⇒ y leftof ab 
⇒ B(xzy) 
⇒ z # ab))
∧ (∀a,b,c,y:Point.  (a # bc 
⇒ y # b 
⇒ Colinear(y;a;b) 
⇒ y # bc))
Latex:
Latex:
No  Annotations
\mforall{}g:EuclideanPlane
    (((\mforall{}a,b:Point.    (a  \#  b  {}\mRightarrow{}  b  \#  a))
      \mwedge{}  (\mforall{}a:Point.  (\mneg{}a  \#  a))
      \mwedge{}  (\mforall{}a,b,x,y:Point.    (a  \mequiv{}  b  {}\mRightarrow{}  B(xay)  {}\mRightarrow{}  B(xby)))
      \mwedge{}  ((\mforall{}a,b,c:Point.    (a  \mequiv{}  b  {}\mRightarrow{}  ac  \mcong{}  cb))  \mwedge{}  (\mforall{}a,b,c:Point.    (a  \mequiv{}  b  {}\mRightarrow{}  ac  \mcong{}  bc)))
      \mwedge{}  (\mforall{}a,b,c,d:Point.    (cd  \mgeq{}  ab  {}\mRightarrow{}  a  \#  b  {}\mRightarrow{}  c  \#  d))
      \mwedge{}  (\mforall{}a,b,c:Point.    (a  \mequiv{}  b  {}\mRightarrow{}  B(abc)))
      \mwedge{}  (\mforall{}a,b,c:Point.    (B(abc)  {}\mRightarrow{}  B(cba)))
      \mwedge{}  (\mforall{}a,b,c,d:Point.    (B(abd)  {}\mRightarrow{}  B(bcd)  {}\mRightarrow{}  B(abc)))
      \mwedge{}  (\mforall{}a,b:Point.    ab  \mcong{}  ba)
      \mwedge{}  (\mforall{}a,b,p,q,r,s:Point.    (ab  \mcong{}  pq  {}\mRightarrow{}  ab  \mcong{}  rs  {}\mRightarrow{}  pq  \mcong{}  rs))
      \mwedge{}  (\mforall{}a,b:Point.    aa  \mcong{}  bb)
      \mwedge{}  (\mforall{}a,b,c,d,A,B,C,D:Point.
                (a  \#  b  {}\mRightarrow{}  B(abc)  {}\mRightarrow{}  B(ABC)  {}\mRightarrow{}  ab  \mcong{}  AB  {}\mRightarrow{}  bc  \mcong{}  BC  {}\mRightarrow{}  ad  \mcong{}  AD  {}\mRightarrow{}  bd  \mcong{}  BD  {}\mRightarrow{}  cd  \mcong{}  CD)))
    \mwedge{}  (\mforall{}a,b,c:Point.    (\mneg{}a  \#  bc  \mLeftarrow{}{}\mRightarrow{}  Colinear(a;b;c)))
    \mwedge{}  (\mforall{}a,b,c:Point.    (a  leftof  bc  {}\mRightarrow{}  b  leftof  ca))
    \mwedge{}  (\mforall{}a,b,c:Point.    (a  leftof  bc  {}\mRightarrow{}  b  \#  c))
    \mwedge{}  (\mforall{}a,b,x,y,z:Point.    (x  leftof  ab  {}\mRightarrow{}  y  leftof  ab  {}\mRightarrow{}  B(xzy)  {}\mRightarrow{}  z  \#  ab))
    \mwedge{}  (\mforall{}a,b,c,y:Point.    (a  \#  bc  {}\mRightarrow{}  y  \#  b  {}\mRightarrow{}  Colinear(y;a;b)  {}\mRightarrow{}  y  \#  bc)))
By
Latex:
((D  0  THENA  Auto)
  THEN  (Assert  BasicGeometryAxioms(g)  \mwedge{}  (\mforall{}a,b,c:Point.    (a  \#  bc  {}\mRightarrow{}  (\mneg{}Colinear(a;b;c))))  BY
                          (D  1
                            THEN  Unhide
                            THEN  Auto
                            THEN  (D  3  THEN  Auto)
                            THEN  (D  0  THENA  Auto)
                            THEN  RWO  "3<"  (-1)
                            THEN  Auto))
  )
Home
Index