I1: Intersect[Circle[(0,0), 1], Line[A, B],1]