Step
*
of Lemma
cong-angle-out-aux2_1
∀g:BasicGeometry. ∀a,b,c,d,e,f,a',c',d',f':Point.
  (a'c' ≅ d'f' 
⇒ out(b a'a) 
⇒ out(b c'c) 
⇒ out(e d'd) 
⇒ out(e f'f) 
⇒ ba' ≅ ed' 
⇒ bc' ≅ ef' 
⇒ abc ≅a def)
BY
{ (Auto
   THEN (D 0
         THENL [Auto
                (((gProperProlong ⌜b⌝⌜a⌝`A'⌜e⌝⌜d⌝⋅ THENA Auto) THEN (gProperProlong ⌜b⌝⌜c⌝`C'⌜e⌝⌜f⌝⋅ THENA Auto))
                  THEN (gProperProlong ⌜e⌝⌜d⌝`D'⌜b⌝⌜a⌝⋅ THENA Auto)
                  THEN (gProperProlong ⌜e⌝⌜f⌝`F'⌜b⌝⌜c⌝⋅ THENA Auto)
                  THEN InstConcl [⌜A⌝;⌜C⌝;⌜D⌝;⌜F⌝]⋅
                  THEN Auto)]
        )
   ) }
1
1. g : BasicGeometry
2. a : Point
3. b : Point
4. c : Point
5. d : Point
6. e : Point
7. f : Point
8. a' : Point
9. c' : Point
10. d' : Point
11. f' : Point
12. a'c' ≅ d'f'
13. out(b a'a)
14. out(b c'c)
15. out(e d'd)
16. out(e f'f)
17. ba' ≅ ed'
18. bc' ≅ ef'
19. A : Point
20. b-a-A
21. aA ≅ ed
22. C : Point
23. b-c-C
24. cC ≅ ef
25. D : Point
26. e-d-D
27. dD ≅ ba
28. F : Point
29. e-f-F
30. fF ≅ bc
31. b_a_A
32. b_c_C
33. e_d_D
34. e_f_F
35. bA ≅ eD
36. bC ≅ eF
⊢ AC ≅ DF
Latex:
Latex:
\mforall{}g:BasicGeometry.  \mforall{}a,b,c,d,e,f,a',c',d',f':Point.
    (a'c'  \mcong{}  d'f'
    {}\mRightarrow{}  out(b  a'a)
    {}\mRightarrow{}  out(b  c'c)
    {}\mRightarrow{}  out(e  d'd)
    {}\mRightarrow{}  out(e  f'f)
    {}\mRightarrow{}  ba'  \mcong{}  ed'
    {}\mRightarrow{}  bc'  \mcong{}  ef'
    {}\mRightarrow{}  abc  \mcong{}\msuba{}  def)
By
Latex:
(Auto
  THEN  (D  0
              THENL  [Auto
                          ;  (((gProperProlong  \mkleeneopen{}b\mkleeneclose{}\mkleeneopen{}a\mkleeneclose{}`A'\mkleeneopen{}e\mkleeneclose{}\mkleeneopen{}d\mkleeneclose{}\mcdot{}  THENA  Auto)
                                  THEN  (gProperProlong  \mkleeneopen{}b\mkleeneclose{}\mkleeneopen{}c\mkleeneclose{}`C'\mkleeneopen{}e\mkleeneclose{}\mkleeneopen{}f\mkleeneclose{}\mcdot{}  THENA  Auto)
                                  )
                                THEN  (gProperProlong  \mkleeneopen{}e\mkleeneclose{}\mkleeneopen{}d\mkleeneclose{}`D'\mkleeneopen{}b\mkleeneclose{}\mkleeneopen{}a\mkleeneclose{}\mcdot{}  THENA  Auto)
                                THEN  (gProperProlong  \mkleeneopen{}e\mkleeneclose{}\mkleeneopen{}f\mkleeneclose{}`F'\mkleeneopen{}b\mkleeneclose{}\mkleeneopen{}c\mkleeneclose{}\mcdot{}  THENA  Auto)
                                THEN  InstConcl  [\mkleeneopen{}A\mkleeneclose{};\mkleeneopen{}C\mkleeneclose{};\mkleeneopen{}D\mkleeneclose{};\mkleeneopen{}F\mkleeneclose{}]\mcdot{}
                                THEN  Auto)]
            )
  )
Home
Index