Step
*
of Lemma
geo-conga-to-cong3
∀E:BasicGeometry. ∀a,b,c,d,e,f:Point.
  (a ≠ b
  
⇒ c ≠ b
  
⇒ d ≠ e
  
⇒ f ≠ e
  
⇒ abc ≅a def
  
⇒ (∃a',c',d',f':Point. (out(b a'a) ∧ out(b cc') ∧ out(e d'd) ∧ out(e ff') ∧ Cong3(a'bc',d'ef'))))
BY
{ (((TACTIC:Auto THEN TACTIC:Unfold `geo-cong-angle` -1) THEN ExRepD)
   THEN InstConcl [⌜a'⌝;⌜c'⌝;⌜x'⌝;⌜z'⌝]⋅
   THEN Auto
   THEN Try (Unfold `geo-out` 0 THEN Auto)
   THEN Unfold `geo-cong-tri` 0
   THEN Auto) }
Latex:
Latex:
\mforall{}E:BasicGeometry.  \mforall{}a,b,c,d,e,f:Point.
    (a  \mneq{}  b
    {}\mRightarrow{}  c  \mneq{}  b
    {}\mRightarrow{}  d  \mneq{}  e
    {}\mRightarrow{}  f  \mneq{}  e
    {}\mRightarrow{}  abc  \mcong{}\msuba{}  def
    {}\mRightarrow{}  (\mexists{}a',c',d',f':Point.  (out(b  a'a)  \mwedge{}  out(b  cc')  \mwedge{}  out(e  d'd)  \mwedge{}  out(e  ff')  \mwedge{}  Cong3(a'bc',d'ef'))))
By
Latex:
(((TACTIC:Auto  THEN  TACTIC:Unfold  `geo-cong-angle`  -1)  THEN  ExRepD)
  THEN  InstConcl  [\mkleeneopen{}a'\mkleeneclose{};\mkleeneopen{}c'\mkleeneclose{};\mkleeneopen{}x'\mkleeneclose{};\mkleeneopen{}z'\mkleeneclose{}]\mcdot{}
  THEN  Auto
  THEN  Try  (Unfold  `geo-out`  0  THEN  Auto)
  THEN  Unfold  `geo-cong-tri`  0
  THEN  Auto)
Home
Index