Metamath Proof Explorer


Theorem itsclinecirc0b

Description: The intersection points of a line through two different points and a circle around the origin, using the definition of a line in a two dimensional Euclidean space. (Contributed by AV, 2-May-2023) (Revised by AV, 14-May-2023)

Ref Expression
Hypotheses itsclinecirc0b.i I = 1 2
itsclinecirc0b.e E = I
itsclinecirc0b.p P = I
itsclinecirc0b.s S = Sphere E
itsclinecirc0b.0 0 ˙ = I × 0
itsclinecirc0b.q Q = A 2 + B 2
itsclinecirc0b.d D = R 2 Q C 2
itsclinecirc0b.l L = Line M E
itsclinecirc0b.a A = X 2 Y 2
itsclinecirc0b.b B = Y 1 X 1
itsclinecirc0b.c C = X 2 Y 1 X 1 Y 2
Assertion itsclinecirc0b X P Y P X Y R + 0 D Z 0 ˙ S R Z X L Y Z P Z 1 = A C + B D Q Z 2 = B C A D Q Z 1 = A C B D Q Z 2 = B C + A D Q

Proof

Step Hyp Ref Expression
1 itsclinecirc0b.i I = 1 2
2 itsclinecirc0b.e E = I
3 itsclinecirc0b.p P = I
4 itsclinecirc0b.s S = Sphere E
5 itsclinecirc0b.0 0 ˙ = I × 0
6 itsclinecirc0b.q Q = A 2 + B 2
7 itsclinecirc0b.d D = R 2 Q C 2
8 itsclinecirc0b.l L = Line M E
9 itsclinecirc0b.a A = X 2 Y 2
10 itsclinecirc0b.b B = Y 1 X 1
11 itsclinecirc0b.c C = X 2 Y 1 X 1 Y 2
12 eqid Y 2 X 2 = Y 2 X 2
13 1 2 3 8 10 12 11 rrx2linest X P Y P X Y X L Y = p P | B p 2 = Y 2 X 2 p 1 + C
14 13 adantr X P Y P X Y R + 0 D X L Y = p P | B p 2 = Y 2 X 2 p 1 + C
15 1 3 rrx2pxel Y P Y 1
16 15 adantl X P Y P Y 1
17 1 3 rrx2pxel X P X 1
18 17 adantr X P Y P X 1
19 16 18 resubcld X P Y P Y 1 X 1
20 10 19 eqeltrid X P Y P B
21 20 3adant3 X P Y P X Y B
22 21 ad2antrr X P Y P X Y R + 0 D p P B
23 1 3 rrx2pyel p P p 2
24 23 adantl X P Y P X Y R + 0 D p P p 2
25 22 24 remulcld X P Y P X Y R + 0 D p P B p 2
26 25 recnd X P Y P X Y R + 0 D p P B p 2
27 1 3 rrx2pyel Y P Y 2
28 27 adantl X P Y P Y 2
29 1 3 rrx2pyel X P X 2
30 29 adantr X P Y P X 2
31 28 30 resubcld X P Y P Y 2 X 2
32 31 3adant3 X P Y P X Y Y 2 X 2
33 32 ad2antrr X P Y P X Y R + 0 D p P Y 2 X 2
34 1 3 rrx2pxel p P p 1
35 34 adantl X P Y P X Y R + 0 D p P p 1
36 33 35 remulcld X P Y P X Y R + 0 D p P Y 2 X 2 p 1
37 36 recnd X P Y P X Y R + 0 D p P Y 2 X 2 p 1
38 30 16 remulcld X P Y P X 2 Y 1
39 18 28 remulcld X P Y P X 1 Y 2
40 38 39 resubcld X P Y P X 2 Y 1 X 1 Y 2
41 11 40 eqeltrid X P Y P C
42 41 recnd X P Y P C
43 42 3adant3 X P Y P X Y C
44 43 ad2antrr X P Y P X Y R + 0 D p P C
45 26 37 44 subaddd X P Y P X Y R + 0 D p P B p 2 Y 2 X 2 p 1 = C Y 2 X 2 p 1 + C = B p 2
46 eqcom B p 2 = Y 2 X 2 p 1 + C Y 2 X 2 p 1 + C = B p 2
47 45 46 syl6rbbr X P Y P X Y R + 0 D p P B p 2 = Y 2 X 2 p 1 + C B p 2 Y 2 X 2 p 1 = C
48 30 28 resubcld X P Y P X 2 Y 2
49 9 48 eqeltrid X P Y P A
50 49 3adant3 X P Y P X Y A
51 50 ad2antrr X P Y P X Y R + 0 D p P A
52 51 35 remulcld X P Y P X Y R + 0 D p P A p 1
53 52 recnd X P Y P X Y R + 0 D p P A p 1
54 53 26 addcomd X P Y P X Y R + 0 D p P A p 1 + B p 2 = B p 2 + A p 1
55 28 3adant3 X P Y P X Y Y 2
56 55 ad2antrr X P Y P X Y R + 0 D p P Y 2
57 56 recnd X P Y P X Y R + 0 D p P Y 2
58 30 3adant3 X P Y P X Y X 2
59 58 ad2antrr X P Y P X Y R + 0 D p P X 2
60 59 recnd X P Y P X Y R + 0 D p P X 2
61 57 60 negsubdi2d X P Y P X Y R + 0 D p P Y 2 X 2 = X 2 Y 2
62 61 9 syl6reqr X P Y P X Y R + 0 D p P A = Y 2 X 2
63 62 oveq1d X P Y P X Y R + 0 D p P A p 1 = Y 2 X 2 p 1
64 31 recnd X P Y P Y 2 X 2
65 64 3adant3 X P Y P X Y Y 2 X 2
66 65 ad2antrr X P Y P X Y R + 0 D p P Y 2 X 2
67 35 recnd X P Y P X Y R + 0 D p P p 1
68 66 67 mulneg1d X P Y P X Y R + 0 D p P Y 2 X 2 p 1 = Y 2 X 2 p 1
69 63 68 eqtr2d X P Y P X Y R + 0 D p P Y 2 X 2 p 1 = A p 1
70 69 oveq2d X P Y P X Y R + 0 D p P B p 2 + Y 2 X 2 p 1 = B p 2 + A p 1
71 26 37 negsubd X P Y P X Y R + 0 D p P B p 2 + Y 2 X 2 p 1 = B p 2 Y 2 X 2 p 1
72 54 70 71 3eqtr2rd X P Y P X Y R + 0 D p P B p 2 Y 2 X 2 p 1 = A p 1 + B p 2
73 72 eqeq1d X P Y P X Y R + 0 D p P B p 2 Y 2 X 2 p 1 = C A p 1 + B p 2 = C
74 47 73 bitrd X P Y P X Y R + 0 D p P B p 2 = Y 2 X 2 p 1 + C A p 1 + B p 2 = C
75 74 rabbidva X P Y P X Y R + 0 D p P | B p 2 = Y 2 X 2 p 1 + C = p P | A p 1 + B p 2 = C
76 14 75 eqtrd X P Y P X Y R + 0 D X L Y = p P | A p 1 + B p 2 = C
77 76 eleq2d X P Y P X Y R + 0 D Z X L Y Z p P | A p 1 + B p 2 = C
78 77 anbi2d X P Y P X Y R + 0 D Z 0 ˙ S R Z X L Y Z 0 ˙ S R Z p P | A p 1 + B p 2 = C
79 50 adantr X P Y P X Y R + 0 D A
80 21 adantr X P Y P X Y R + 0 D B
81 41 3adant3 X P Y P X Y C
82 81 adantr X P Y P X Y R + 0 D C
83 1 3 10 9 rrx2pnedifcoorneorr X P Y P X Y B 0 A 0
84 83 orcomd X P Y P X Y A 0 B 0
85 84 adantr X P Y P X Y R + 0 D A 0 B 0
86 simpr X P Y P X Y R + 0 D R + 0 D
87 eqid p P | A p 1 + B p 2 = C = p P | A p 1 + B p 2 = C
88 1 2 3 4 5 6 7 87 itsclc0b A B C A 0 B 0 R + 0 D Z 0 ˙ S R Z p P | A p 1 + B p 2 = C Z P Z 1 = A C + B D Q Z 2 = B C A D Q Z 1 = A C B D Q Z 2 = B C + A D Q
89 79 80 82 85 86 88 syl311anc X P Y P X Y R + 0 D Z 0 ˙ S R Z p P | A p 1 + B p 2 = C Z P Z 1 = A C + B D Q Z 2 = B C A D Q Z 1 = A C B D Q Z 2 = B C + A D Q
90 78 89 bitrd X P Y P X Y R + 0 D Z 0 ˙ S R Z X L Y Z P Z 1 = A C + B D Q Z 2 = B C A D Q Z 1 = A C B D Q Z 2 = B C + A D Q