Step
*
1
1
1
1
2
of Lemma
Euclid-Prop9
1. e : EuclideanPlane
2. a : Point
3. b : Point
4. c : Point
5. c # ba
6. x : Point
7. c_a_x ∧ ax ≅ cb
8. y : Point
9. c_b_y ∧ by ≅ ca
10. cx ≅ cy
11. c # bx
12. c # yx
13. d : Point
14. [%10] : x-d-y ∧ xd ≅ dy
15. d ≠ c
⊢ acd ≅a bcd
BY
{ (Unfold `geo-cong-angle` 0 THEN SplitAndConcl THEN Try (InstConcl [⌜x⌝;⌜d⌝;⌜y⌝;⌜d⌝]⋅) THEN Auto) }
Latex:
Latex:
1.  e  :  EuclideanPlane
2.  a  :  Point
3.  b  :  Point
4.  c  :  Point
5.  c  \#  ba
6.  x  :  Point
7.  c\_a\_x  \mwedge{}  ax  \mcong{}  cb
8.  y  :  Point
9.  c\_b\_y  \mwedge{}  by  \mcong{}  ca
10.  cx  \mcong{}  cy
11.  c  \#  bx
12.  c  \#  yx
13.  d  :  Point
14.  [\%10]  :  x-d-y  \mwedge{}  xd  \mcong{}  dy
15.  d  \mneq{}  c
\mvdash{}  acd  \mcong{}\msuba{}  bcd
By
Latex:
(Unfold  `geo-cong-angle`  0  THEN  SplitAndConcl  THEN  Try  (InstConcl  [\mkleeneopen{}x\mkleeneclose{};\mkleeneopen{}d\mkleeneclose{};\mkleeneopen{}y\mkleeneclose{};\mkleeneopen{}d\mkleeneclose{}]\mcdot{})  THEN  Auto)
Home
Index