Step
*
1
of Lemma
hp-angle-sum-subst3
1. g : EuclideanPlane
2. a : Point
3. b : Point
4. c : Point
5. d : Point
6. e : Point
7. f : Point
8. x : Point
9. y : Point
10. z : Point
11. i : Point
12. j : Point
13. k : Point
14. p : Point
15. p' : Point
16. d' : Point
17. f' : Point
18. abc ≅a xyp
19. zyp ≅a def
20. y_p'_p
21. out(y xd')
22. out(y zf')
23. d'-p'-f'
24. xyz ≅a ijk
25. x # yz
⊢ ∃p,p',d',f':Point. (((abc ≅a ijp ∧ kjp ≅a def) ∧ j_p'_p) ∧ (out(j id') ∧ out(j kf')) ∧ d'-p'-f')
BY
{ ((Assert d'yf' ≅a ijk BY
          (((InstLemma  `geo-cong-angle-transitivity` [⌜g⌝;⌜d'⌝;⌜y⌝;⌜f'⌝;⌜x⌝;⌜y⌝;⌜z⌝;⌜i⌝;⌜j⌝;⌜k⌝]⋅ THEN Auto)
            THENA (D 24 THEN Auto)
            )
           THEN InstLemma  `out-cong-angle` [⌜g⌝;⌜x⌝;⌜y⌝;⌜z⌝;⌜d'⌝;⌜f'⌝]⋅
           THEN EAuto 1))
   THEN D -1
   THEN ExRepD) }
1
1. g : EuclideanPlane
2. a : Point
3. b : Point
4. c : Point
5. d : Point
6. e : Point
7. f : Point
8. x : Point
9. y : Point
10. z : Point
11. i : Point
12. j : Point
13. k : Point
14. p : Point
15. p' : Point
16. d' : Point
17. f' : Point
18. abc ≅a xyp
19. zyp ≅a def
20. y_p'_p
21. out(y xd')
22. out(y zf')
23. d'-p'-f'
24. xyz ≅a ijk
25. x # yz
26. d' ≠ y
27. y ≠ f'
28. i ≠ j
29. j ≠ k
30. a' : Point
31. c' : Point
32. x' : Point
33. z' : Point
34. y_d'_a'
35. y_f'_c'
36. j_i_x'
37. j_k_z'
38. ya' ≅ jx'
39. yc' ≅ jz'
40. a'c' ≅ x'z'
⊢ ∃p,p',d',f':Point. (((abc ≅a ijp ∧ kjp ≅a def) ∧ j_p'_p) ∧ (out(j id') ∧ out(j kf')) ∧ d'-p'-f')
Latex:
Latex:
1.  g  :  EuclideanPlane
2.  a  :  Point
3.  b  :  Point
4.  c  :  Point
5.  d  :  Point
6.  e  :  Point
7.  f  :  Point
8.  x  :  Point
9.  y  :  Point
10.  z  :  Point
11.  i  :  Point
12.  j  :  Point
13.  k  :  Point
14.  p  :  Point
15.  p'  :  Point
16.  d'  :  Point
17.  f'  :  Point
18.  abc  \mcong{}\msuba{}  xyp
19.  zyp  \mcong{}\msuba{}  def
20.  y\_p'\_p
21.  out(y  xd')
22.  out(y  zf')
23.  d'-p'-f'
24.  xyz  \mcong{}\msuba{}  ijk
25.  x  \#  yz
\mvdash{}  \mexists{}p,p',d',f':Point.  (((abc  \mcong{}\msuba{}  ijp  \mwedge{}  kjp  \mcong{}\msuba{}  def)  \mwedge{}  j\_p'\_p)  \mwedge{}  (out(j  id')  \mwedge{}  out(j  kf'))  \mwedge{}  d'-p'-f')
By
Latex:
((Assert  d'yf'  \mcong{}\msuba{}  ijk  BY
                (((InstLemma    `geo-cong-angle-transitivity`  [\mkleeneopen{}g\mkleeneclose{};\mkleeneopen{}d'\mkleeneclose{};\mkleeneopen{}y\mkleeneclose{};\mkleeneopen{}f'\mkleeneclose{};\mkleeneopen{}x\mkleeneclose{};\mkleeneopen{}y\mkleeneclose{};\mkleeneopen{}z\mkleeneclose{};\mkleeneopen{}i\mkleeneclose{};\mkleeneopen{}j\mkleeneclose{};\mkleeneopen{}k\mkleeneclose{}]\mcdot{}
                      THEN  Auto
                      )
                    THENA  (D  24  THEN  Auto)
                    )
                  THEN  InstLemma    `out-cong-angle`  [\mkleeneopen{}g\mkleeneclose{};\mkleeneopen{}x\mkleeneclose{};\mkleeneopen{}y\mkleeneclose{};\mkleeneopen{}z\mkleeneclose{};\mkleeneopen{}d'\mkleeneclose{};\mkleeneopen{}f'\mkleeneclose{}]\mcdot{}
                  THEN  EAuto  1))
  THEN  D  -1
  THEN  ExRepD)
Home
Index