---

Step * 1 of Lemma cong-angle-out-aux


1. g : HeytingGeometry
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 # bc
13. a ≠ b
14. b ≠ c
15. d ≠ e
16. e ≠ f
17. a1 : Point
18. c1 : Point
19. x' : Point
20. z' : Point
21. b_a_a1
22. b_c_c1
23. e_d_x'
24. e_f_z'
25. ba1 ≅ ex'
26. bc1 ≅ ez'
27. a1c1 ≅ x'z'
28. d # ef
29. out(b a'a)
30. out(b c'c)
31. out(e d'd)
32. out(e f'f)
33. ba' ≅ ed'
34. bc' ≅ ef'
35. out(b a1a')
⊢ a'c' ≅ d'f'
BY
{ (Assert out(e x'd') BY
         (((Assert out(e dx') BY
                  (InstLemma `geo-between-out` [⌜g⌝;⌜e⌝;⌜d⌝;⌜x'⌝]⋅ THEN Auto))
           THEN (InstLemma `geo-out_transitivity` [⌜g⌝;⌜e⌝;⌜d'⌝;⌜d⌝;⌜x'⌝]⋅ THENA Auto)
           )
          THEN EAuto 1
          )) }

1
1. g : HeytingGeometry
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 # bc
13. a ≠ b
14. b ≠ c
15. d ≠ e
16. e ≠ f
17. a1 : Point
18. c1 : Point
19. x' : Point
20. z' : Point
21. b_a_a1
22. b_c_c1
23. e_d_x'
24. e_f_z'
25. ba1 ≅ ex'
26. bc1 ≅ ez'
27. a1c1 ≅ x'z'
28. d # ef
29. out(b a'a)
30. out(b c'c)
31. out(e d'd)
32. out(e f'f)
33. ba' ≅ ed'
34. bc' ≅ ef'
35. out(b a1a')
36. out(e x'd')
⊢ a'c' ≅ d'f'

---

Latex:

---

Latex:

1.  g  :  HeytingGeometry
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  \#  bc
13.  a  \mneq{}  b
14.  b  \mneq{}  c
15.  d  \mneq{}  e
16.  e  \mneq{}  f
17.  a1  :  Point
18.  c1  :  Point
19.  x'  :  Point
20.  z'  :  Point
21.  b\_a\_a1
22.  b\_c\_c1
23.  e\_d\_x'
24.  e\_f\_z'
25.  ba1  \mcong{}  ex'
26.  bc1  \mcong{}  ez'
27.  a1c1  \mcong{}  x'z'
28.  d  \#  ef
29.  out(b  a'a)
30.  out(b  c'c)
31.  out(e  d'd)
32.  out(e  f'f)
33.  ba'  \mcong{}  ed'
34.  bc'  \mcong{}  ef'
35.  out(b  a1a')
\mvdash{}  a'c'  \mcong{}  d'f'


By

---

Latex:
(Assert  out(e  x'd')  BY
              (((Assert  out(e  dx')  BY
                                (InstLemma  `geo-between-out`  [\mkleeneopen{}g\mkleeneclose{};\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}d\mkleeneclose{};\mkleeneopen{}x'\mkleeneclose{}]\mcdot{}  THEN  Auto))
                  THEN  (InstLemma  `geo-out\_transitivity`  [\mkleeneopen{}g\mkleeneclose{};\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}d'\mkleeneclose{};\mkleeneopen{}d\mkleeneclose{};\mkleeneopen{}x'\mkleeneclose{}]\mcdot{}  THENA  Auto)
                  )
                THEN  EAuto  1
                ))

---

Home Index