A = (1.52, 1.1)
B = (5.5600000000000005, 3.4)
C = (4.18, 3.94)
u = Vector(B, C)
C' = Translate(C, u)
v = Vector(C, C')
D = Point(Line[C', Vector[A, C]])
w = Vector(C, D)
D' = Translate(D, w)
z = Vector(D, D')
E = Point(Line[D', Vector[A, D]])
a = Vector(D, E)