I seem to get slightly different result when intersecting line segments vs interesting (infinite) lines.
RegionIntersection[Line[{{0, 0}, {2, 2}}], Line[{{0, 2}, {2, 0}}]]
results in
Point[{{1, 1}}]
while
RegionIntersection[InfiniteLine[{{0, 0}, {2, 2}}], InfiniteLine[{{0, 2}, {2, 0}}]]
results in
Point[{1, 1}]