我是正方形吗？

GeoGebra 命令及参数

1. Line(A, B) → a
2. OrthogonalLine(A, a) → b
3. OrthogonalLine(B, a) → c
4. Point(c) → C
5. OrthogonalLine(C, c) → d
6. Intersect(b, d) → D
7. Polygon(A, D, C, B) → poly1, a_1, d_1, c_1, b_1
8. Line(E, F) → e
9. Point(e) → G
10. Circle(E, G) → f
11. OrthogonalLine(E, e) → g
12. Intersect(f, g, 2) → I
13. OrthogonalLine(I, g) → h
14. OrthogonalLine(G, e) → i
15. Intersect(h, i) → L
16. Polygon(I, L, G, E) → poly2, i_1, l, g_1, e_1
17. Line(J, K) → j
18. Line(M, j) → k
19. Line(J, M) → m
20. Line(K, m) → n
21. Intersect(n, k) → N
22. Polygon(M, N, K, J) → poly3, m_1, n_1, k_1, j_1
23. Line(O, P) → p
24. Line(P, Q) → q
25. AngularBisector(p, q) → r, s
26. Line(O, r) → t
27. Point(s) → R
28. Line(R, O) → f_1
29. Intersect(q, t) → S
30. Polygon(R, O, P, S) → poly4, r_1, o, p_1, s_1
31. Line(T, U) → h_1
32. Line(V, h_1) → l_1
33. Line(T, V) → q_1
34. Point(l_1) → W
35. Line(U, W) → t_1
36. Polygon(V, T, U, W) → poly5, v, t_2, u, w
37. Line(Z, A_1) → a_2
38. Line(A_1, B_1) → b_2
39. Line(B_1, C_1) → c_2
40. Line(C_1, Z) → d_2
41. Polygon(Z, A_1, B_1, C_1) → poly6, z_1, a_3, b_3, c_3
42. Line(D_1, E_1) → e_2
43. Line(F_1, e_2) → f_2
44. Segment(D_1, F_1) → g_2
45. Point(f_2) → G_1
46. Segment(G_1, E_1) → h_2
47. Polygon(F_1, D_1, E_1, G_1) → poly7, f_3, d_3, e_3, g_3