---

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


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'c' ≅ d'f'
14. d # ef
15. out(b a'a)
16. out(b c'c)
17. out(e d'd)
18. out(e f'f)
19. ba' ≅ ed'
20. bc' ≅ ef'
21. A : Point
22. b-a-A
23. aA ≅ ed
24. C : Point
25. b-c-C
26. cC ≅ ef
27. D : Point
28. e-d-D
29. dD ≅ ba
30. F : Point
31. e-f-F
32. fF ≅ bc
33. b_a_A
34. b_c_C
35. e_d_D
36. e_f_F
37. bA ≅ eD
38. bC ≅ eF
⊢ AC ≅ DF
BY
{ ((Assert out(b a'A) BY
          ((Assert out(b aA) BY
                  (InstLemma `geo-between-out` [⌜g⌝;⌜b⌝;⌜a⌝;⌜A⌝]⋅ THEN Auto))
           THEN InstLemma `geo-out_transitivity` [⌜g⌝;⌜b⌝;⌜a'⌝;⌜a⌝;⌜A⌝]⋅
           THEN EAuto 1))
   THEN (Assert out(e Dd') BY
               (((Assert out(e dD) BY
                        (InstLemma `geo-between-out` [⌜g⌝;⌜e⌝;⌜d⌝;⌜D⌝]⋅ THEN Auto))
                 THEN InstLemma `geo-out_transitivity` [⌜g⌝;⌜e⌝;⌜d'⌝;⌜d⌝;⌜D⌝]⋅
                 THEN EAuto 1)
                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'c' ≅ d'f'
14. d # ef
15. out(b a'a)
16. out(b c'c)
17. out(e d'd)
18. out(e f'f)
19. ba' ≅ ed'
20. bc' ≅ ef'
21. A : Point
22. b-a-A
23. aA ≅ ed
24. C : Point
25. b-c-C
26. cC ≅ ef
27. D : Point
28. e-d-D
29. dD ≅ ba
30. F : Point
31. e-f-F
32. fF ≅ bc
33. b_a_A
34. b_c_C
35. e_d_D
36. e_f_F
37. bA ≅ eD
38. bC ≅ eF
39. out(b a'A)
40. out(e Dd')
⊢ AC ≅ DF

---

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'c'  \mcong{}  d'f'
14.  d  \#  ef
15.  out(b  a'a)
16.  out(b  c'c)
17.  out(e  d'd)
18.  out(e  f'f)
19.  ba'  \mcong{}  ed'
20.  bc'  \mcong{}  ef'
21.  A  :  Point
22.  b-a-A
23.  aA  \mcong{}  ed
24.  C  :  Point
25.  b-c-C
26.  cC  \mcong{}  ef
27.  D  :  Point
28.  e-d-D
29.  dD  \mcong{}  ba
30.  F  :  Point
31.  e-f-F
32.  fF  \mcong{}  bc
33.  b\_a\_A
34.  b\_c\_C
35.  e\_d\_D
36.  e\_f\_F
37.  bA  \mcong{}  eD
38.  bC  \mcong{}  eF
\mvdash{}  AC  \mcong{}  DF


By

---

Latex:
((Assert  out(b  a'A)  BY
                ((Assert  out(b  aA)  BY
                                (InstLemma  `geo-between-out`  [\mkleeneopen{}g\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}A\mkleeneclose{}]\mcdot{}  THEN  Auto))
                  THEN  InstLemma  `geo-out\_transitivity`  [\mkleeneopen{}g\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{};\mkleeneopen{}a'\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}A\mkleeneclose{}]\mcdot{}
                  THEN  EAuto  1))
  THEN  (Assert  out(e  Dd')  BY
                          (((Assert  out(e  dD)  BY
                                            (InstLemma  `geo-between-out`  [\mkleeneopen{}g\mkleeneclose{};\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}d\mkleeneclose{};\mkleeneopen{}D\mkleeneclose{}]\mcdot{}  THEN  Auto))
                              THEN  InstLemma  `geo-out\_transitivity`  [\mkleeneopen{}g\mkleeneclose{};\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}d'\mkleeneclose{};\mkleeneopen{}d\mkleeneclose{};\mkleeneopen{}D\mkleeneclose{}]\mcdot{}
                              THEN  EAuto  1)
                            THEN  EAuto  1
                            ))
  )

---

Home Index