A = (-6, -13)
J = Point(Segment[A, (x(A) + 7, y(A))])
c = Circle(A, J)
D = Point(c)
B = Point(c)
d = CircleArc(A, B, D)
C = Point(d)
p = CircleArc(A, B, C)
e = CircleArc(A, C, D)
E = Point(e)
f = Segment(E, C)
F = Point(p)
g = Segment(F, C)
h = LineBisector(C, F)
i = LineBisector(E, C)
G = Intersect(i, f)
H = Intersect(h, g)
j = Segment(A, H)
k = Segment(A, G)
I = (-14.168992316565953, -16.565723756251742)