A = (-4.1, -1.3666666666666667)
B = (5.9, -1.3666666666666667)
C = Rotate(B, 90°, A)
D = Rotate(A, 270°, B)
AireABCD, a, b, d, c = Polygon(A, B, D, C)
E = Point(c)
e = Segment(C, B)
f = Segment(A, D)
F = Intersect(e, f)
G = Mirror(E, F)
g = Segment(E, G)
h = OrthogonalLine(F, g)
H = Intersect(d, h)
I = Intersect(h, a)
AireEIGH, e_1, i, g_1, h_1 = Polygon(E, I, G, H)