Step * of Lemma adjacent-right-angles

e:BasicGeometry. ∀a,b,c,a':Point.  (b ≠  Rabc  Ra'bc  Colinear(a;b;a'))
BY
(Auto
   THEN gSymmetricPoint ⌜b⌝⌜c⌝`c\''⋅
   THEN (FLemma `geo-midpoint-symmetry` [-1] THENA Auto)
   THEN (Assert ac ≅ ac' BY
               Auto)
   THEN (Assert a'c ≅ a'c' BY
               Auto)) }

1
1. BasicGeometry
2. Point
3. Point
4. Point
5. a' Point
6. b ≠ c
7. Rabc
8. Ra'bc
9. c' Point
10. c=b=c'
11. c'=b=c
12. ac ≅ ac'
13. a'c ≅ a'c'
⊢ Colinear(a;b;a')


Latex:


Latex:
\mforall{}e:BasicGeometry.  \mforall{}a,b,c,a':Point.    (b  \mneq{}  c  {}\mRightarrow{}  Rabc  {}\mRightarrow{}  Ra'bc  {}\mRightarrow{}  Colinear(a;b;a'))


By


Latex:
(Auto
  THEN  gSymmetricPoint  \mkleeneopen{}b\mkleeneclose{}\mkleeneopen{}c\mkleeneclose{}`c\mbackslash{}''\mcdot{}
  THEN  (FLemma  `geo-midpoint-symmetry`  [-1]  THENA  Auto)
  THEN  (Assert  ac  \mcong{}  ac'  BY
                          Auto)
  THEN  (Assert  a'c  \mcong{}  a'c'  BY
                          Auto))




Home Index