Figuur I

A = (-8, -11)
I = Point(Segment[A, (x(A) + 10, y(A))])
c = Circle(A, I)
B = Point(c)
d = Circle(B, 0.1)
f = Line(A, B)
C, D = Intersect(d, f)
E = Point(Segment[A, C])
g = Circle(E, C)
G = Point(g)
k = CircleArc(E, C, G)
B' = Point(k)
α = Angle(B, A, B')
B'_1 = Rotate(C, (-α), A)
l = Line(A, B'_1)
p = Circle(A, E)
q = Circle(B', 0.1)
β = Angle(B'_1, A, B)
h = Segment(B', A)
H = (-13.010011771212916, -14.646161895968133)
F, J = Intersect(p, l)
i = Segment(B'_1, If[(J * B'_1) < (F * B'_1), J, F])
j = Segment(If[(J * B'_1) < (F * B'_1), J, F], A)
m = Segment(If[(J * B'_1) < (F * B'_1), J, F], B')