Users' Mathboxes Mathbox for Thierry Arnoux < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  constrrtcclem Structured version   Visualization version   GIF version

Theorem constrrtcclem 34366
Description: In the construction of constructible numbers, circle-circle intersections are roots of a quadratic equation. Case of non-degenerate circles. (Contributed by Thierry Arnoux, 6-Jul-2025.)
Hypotheses
Ref Expression
constrrtcc.s (𝜑 → 𝑆 ⊆ ℂ)
constrrtcc.a (𝜑 → 𝐴 ∈ 𝑆)
constrrtcc.b (𝜑 → 𝐵 ∈ 𝑆)
constrrtcc.c (𝜑 → 𝐶 ∈ 𝑆)
constrrtcc.d (𝜑 → 𝐷 ∈ 𝑆)
constrrtcc.e (𝜑 → 𝐸 ∈ 𝑆)
constrrtcc.f (𝜑 → 𝐹 ∈ 𝑆)
constrrtcc.x (𝜑 → 𝑋 ∈ ℂ)
constrrtcc.1 (𝜑 → 𝐴 ≠ 𝐷)
constrrtcc.2 (𝜑 → (abs‘(𝑋 − 𝐴)) = (abs‘(𝐵 − 𝐶)))
constrrtcc.3 (𝜑 → (abs‘(𝑋 − 𝐷)) = (abs‘(𝐸 − 𝐹)))
constrrtcc.4 𝑃 = ((𝐵 − 𝐶) · (∗‘(𝐵 − 𝐶)))
constrrtcc.5 𝑄 = ((𝐸 − 𝐹) · (∗‘(𝐸 − 𝐹)))
constrrtcc.m 𝑀 = (((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) − (𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴)))) / ((∗‘𝐷) − (∗‘𝐴)))
constrrtcc.n 𝑁 = -(((((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷)) − (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))) / ((∗‘𝐷) − (∗‘𝐴)))
constrrtcclem.1 (𝜑 → 𝐵 ≠ 𝐶)
constrrtcclem.2 (𝜑 → 𝐸 ≠ 𝐹)
Assertion
Ref Expression
constrrtcclem (𝜑 → ((𝑋↑2) + ((𝑀 · 𝑋) + 𝑁)) = 0)

Proof of Theorem constrrtcclem
StepHypRef Expression
1 constrrtcc.x . . . 4 (𝜑 → 𝑋 ∈ ℂ)
21sqcld 14287 . . 3 (𝜑 → (𝑋↑2) ∈ ℂ)
3 constrrtcc.m . . . . 5 𝑀 = (((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) − (𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴)))) / ((∗‘𝐷) − (∗‘𝐴)))
4 constrrtcc.5 . . . . . . . . 9 𝑄 = ((𝐸 − 𝐹) · (∗‘(𝐸 − 𝐹)))
5 constrrtcc.s . . . . . . . . . . . 12 (𝜑 → 𝑆 ⊆ ℂ)
6 constrrtcc.e . . . . . . . . . . . 12 (𝜑 → 𝐸 ∈ 𝑆)
75, 6sseldd 3932 . . . . . . . . . . 11 (𝜑 → 𝐸 ∈ ℂ)
8 constrrtcc.f . . . . . . . . . . . 12 (𝜑 → 𝐹 ∈ 𝑆)
95, 8sseldd 3932 . . . . . . . . . . 11 (𝜑 → 𝐹 ∈ ℂ)
107, 9subcld 11669 . . . . . . . . . 10 (𝜑 → (𝐸 − 𝐹) ∈ ℂ)
1110cjcld 15363 . . . . . . . . . 10 (𝜑 → (∗‘(𝐸 − 𝐹)) ∈ ℂ)
1210, 11mulcld 11329 . . . . . . . . 9 (𝜑 → ((𝐸 − 𝐹) · (∗‘(𝐸 − 𝐹))) ∈ ℂ)
134, 12eqeltrid 2865 . . . . . . . 8 (𝜑 → 𝑄 ∈ ℂ)
14 constrrtcc.d . . . . . . . . . . 11 (𝜑 → 𝐷 ∈ 𝑆)
155, 14sseldd 3932 . . . . . . . . . 10 (𝜑 → 𝐷 ∈ ℂ)
1615cjcld 15363 . . . . . . . . 9 (𝜑 → (∗‘𝐷) ∈ ℂ)
17 constrrtcc.a . . . . . . . . . . 11 (𝜑 → 𝐴 ∈ 𝑆)
185, 17sseldd 3932 . . . . . . . . . 10 (𝜑 → 𝐴 ∈ ℂ)
1915, 18addcld 11328 . . . . . . . . 9 (𝜑 → (𝐷 + 𝐴) ∈ ℂ)
2016, 19mulcld 11329 . . . . . . . 8 (𝜑 → ((∗‘𝐷) · (𝐷 + 𝐴)) ∈ ℂ)
2113, 20subcld 11669 . . . . . . 7 (𝜑 → (𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) ∈ ℂ)
22 constrrtcc.4 . . . . . . . . 9 𝑃 = ((𝐵 − 𝐶) · (∗‘(𝐵 − 𝐶)))
23 constrrtcc.b . . . . . . . . . . . 12 (𝜑 → 𝐵 ∈ 𝑆)
245, 23sseldd 3932 . . . . . . . . . . 11 (𝜑 → 𝐵 ∈ ℂ)
25 constrrtcc.c . . . . . . . . . . . 12 (𝜑 → 𝐶 ∈ 𝑆)
265, 25sseldd 3932 . . . . . . . . . . 11 (𝜑 → 𝐶 ∈ ℂ)
2724, 26subcld 11669 . . . . . . . . . 10 (𝜑 → (𝐵 − 𝐶) ∈ ℂ)
2827cjcld 15363 . . . . . . . . . 10 (𝜑 → (∗‘(𝐵 − 𝐶)) ∈ ℂ)
2927, 28mulcld 11329 . . . . . . . . 9 (𝜑 → ((𝐵 − 𝐶) · (∗‘(𝐵 − 𝐶))) ∈ ℂ)
3022, 29eqeltrid 2865 . . . . . . . 8 (𝜑 → 𝑃 ∈ ℂ)
3118cjcld 15363 . . . . . . . . 9 (𝜑 → (∗‘𝐴) ∈ ℂ)
3231, 19mulcld 11329 . . . . . . . 8 (𝜑 → ((∗‘𝐴) · (𝐷 + 𝐴)) ∈ ℂ)
3330, 32subcld 11669 . . . . . . 7 (𝜑 → (𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴))) ∈ ℂ)
3421, 33subcld 11669 . . . . . 6 (𝜑 → ((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) − (𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴)))) ∈ ℂ)
3516, 31subcld 11669 . . . . . 6 (𝜑 → ((∗‘𝐷) − (∗‘𝐴)) ∈ ℂ)
3615, 18cjsubd 33334 . . . . . . 7 (𝜑 → (∗‘(𝐷 − 𝐴)) = ((∗‘𝐷) − (∗‘𝐴)))
3715, 18subcld 11669 . . . . . . . 8 (𝜑 → (𝐷 − 𝐴) ∈ ℂ)
38 constrrtcc.1 . . . . . . . . . 10 (𝜑 → 𝐴 ≠ 𝐷)
3938necomd 3011 . . . . . . . . 9 (𝜑 → 𝐷 ≠ 𝐴)
4015, 18, 39subne0d 11679 . . . . . . . 8 (𝜑 → (𝐷 − 𝐴) ≠ 0)
4137, 40cjne0d 15370 . . . . . . 7 (𝜑 → (∗‘(𝐷 − 𝐴)) ≠ 0)
4236, 41eqnetrrd 3024 . . . . . 6 (𝜑 → ((∗‘𝐷) − (∗‘𝐴)) ≠ 0)
4334, 35, 42divcld 12093 . . . . 5 (𝜑 → (((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) − (𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴)))) / ((∗‘𝐷) − (∗‘𝐴))) ∈ ℂ)
443, 43eqeltrid 2865 . . . 4 (𝜑 → 𝑀 ∈ ℂ)
4544, 1mulcld 11329 . . 3 (𝜑 → (𝑀 · 𝑋) ∈ ℂ)
46 constrrtcc.n . . . 4 𝑁 = -(((((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷)) − (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))) / ((∗‘𝐷) − (∗‘𝐴)))
4715, 18mulcld 11329 . . . . . . . . 9 (𝜑 → (𝐷 · 𝐴) ∈ ℂ)
4831, 47mulcld 11329 . . . . . . . 8 (𝜑 → ((∗‘𝐴) · (𝐷 · 𝐴)) ∈ ℂ)
4930, 15mulcld 11329 . . . . . . . 8 (𝜑 → (𝑃 · 𝐷) ∈ ℂ)
5048, 49subcld 11669 . . . . . . 7 (𝜑 → (((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷)) ∈ ℂ)
5116, 47mulcld 11329 . . . . . . . 8 (𝜑 → ((∗‘𝐷) · (𝐷 · 𝐴)) ∈ ℂ)
5213, 18mulcld 11329 . . . . . . . 8 (𝜑 → (𝑄 · 𝐴) ∈ ℂ)
5351, 52subcld 11669 . . . . . . 7 (𝜑 → (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴)) ∈ ℂ)
5450, 53subcld 11669 . . . . . 6 (𝜑 → ((((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷)) − (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))) ∈ ℂ)
5554, 35, 42divcld 12093 . . . . 5 (𝜑 → (((((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷)) − (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))) / ((∗‘𝐷) − (∗‘𝐴))) ∈ ℂ)
5655negcld 11656 . . . 4 (𝜑 → -(((((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷)) − (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))) / ((∗‘𝐷) − (∗‘𝐴))) ∈ ℂ)
5746, 56eqeltrid 2865 . . 3 (𝜑 → 𝑁 ∈ ℂ)
582, 45, 57addassd 11331 . 2 (𝜑 → (((𝑋↑2) + (𝑀 · 𝑋)) + 𝑁) = ((𝑋↑2) + ((𝑀 · 𝑋) + 𝑁)))
5946eqcomi 2770 . . . . . . 7 -(((((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷)) − (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))) / ((∗‘𝐷) − (∗‘𝐴))) = 𝑁
6059a1i 11 . . . . . 6 (𝜑 → -(((((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷)) − (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))) / ((∗‘𝐷) − (∗‘𝐴))) = 𝑁)
6155, 60negcon1ad 11664 . . . . 5 (𝜑 → -𝑁 = (((((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷)) − (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))) / ((∗‘𝐷) − (∗‘𝐴))))
6261, 55eqeltrd 2861 . . . 4 (𝜑 → -𝑁 ∈ ℂ)
6335, 2mulcld 11329 . . . . . . 7 (𝜑 → (((∗‘𝐷) − (∗‘𝐴)) · (𝑋↑2)) ∈ ℂ)
6434, 1mulcld 11329 . . . . . . 7 (𝜑 → (((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) − (𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴)))) · 𝑋) ∈ ℂ)
6516, 31, 2subdird 11773 . . . . . . . . 9 (𝜑 → (((∗‘𝐷) − (∗‘𝐴)) · (𝑋↑2)) = (((∗‘𝐷) · (𝑋↑2)) − ((∗‘𝐴) · (𝑋↑2))))
6621, 33, 1subdird 11773 . . . . . . . . 9 (𝜑 → (((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) − (𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴)))) · 𝑋) = (((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) · 𝑋) − ((𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴))) · 𝑋)))
6765, 66oveq12d 7438 . . . . . . . 8 (𝜑 → ((((∗‘𝐷) − (∗‘𝐴)) · (𝑋↑2)) + (((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) − (𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴)))) · 𝑋)) = ((((∗‘𝐷) · (𝑋↑2)) − ((∗‘𝐴) · (𝑋↑2))) + (((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) · 𝑋) − ((𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴))) · 𝑋))))
6816, 2mulcld 11329 . . . . . . . . 9 (𝜑 → ((∗‘𝐷) · (𝑋↑2)) ∈ ℂ)
6921, 1mulcld 11329 . . . . . . . . 9 (𝜑 → ((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) · 𝑋) ∈ ℂ)
7031, 2mulcld 11329 . . . . . . . . 9 (𝜑 → ((∗‘𝐴) · (𝑋↑2)) ∈ ℂ)
7133, 1mulcld 11329 . . . . . . . . 9 (𝜑 → ((𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴))) · 𝑋) ∈ ℂ)
7268, 69, 70, 71addsub4d 11716 . . . . . . . 8 (𝜑 → ((((∗‘𝐷) · (𝑋↑2)) + ((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) · 𝑋)) − (((∗‘𝐴) · (𝑋↑2)) + ((𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴))) · 𝑋))) = ((((∗‘𝐷) · (𝑋↑2)) − ((∗‘𝐴) · (𝑋↑2))) + (((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) · 𝑋) − ((𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴))) · 𝑋))))
731, 18subcld 11669 . . . . . . . . . . . 12 (𝜑 → (𝑋 − 𝐴) ∈ ℂ)
741, 15subcld 11669 . . . . . . . . . . . 12 (𝜑 → (𝑋 − 𝐷) ∈ ℂ)
7573, 74mulcomd 11330 . . . . . . . . . . 11 (𝜑 → ((𝑋 − 𝐴) · (𝑋 − 𝐷)) = ((𝑋 − 𝐷) · (𝑋 − 𝐴)))
7675oveq2d 7436 . . . . . . . . . 10 (𝜑 → ((∗‘𝑋) · ((𝑋 − 𝐴) · (𝑋 − 𝐷))) = ((∗‘𝑋) · ((𝑋 − 𝐷) · (𝑋 − 𝐴))))
7773cjcld 15363 . . . . . . . . . . . . . . . . 17 (𝜑 → (∗‘(𝑋 − 𝐴)) ∈ ℂ)
78 constrrtcc.2 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (abs‘(𝑋 − 𝐴)) = (abs‘(𝐵 − 𝐶)))
79 constrrtcclem.1 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → 𝐵 ≠ 𝐶)
8024, 26, 79subne0d 11679 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (𝐵 − 𝐶) ≠ 0)
8127, 80absne0d 15617 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (abs‘(𝐵 − 𝐶)) ≠ 0)
8278, 81eqnetrd 3023 . . . . . . . . . . . . . . . . . 18 (𝜑 → (abs‘(𝑋 − 𝐴)) ≠ 0)
8373abs00ad 15457 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((abs‘(𝑋 − 𝐴)) = 0 ↔ (𝑋 − 𝐴) = 0))
8483necon3bid 3000 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((abs‘(𝑋 − 𝐴)) ≠ 0 ↔ (𝑋 − 𝐴) ≠ 0))
8582, 84mpbid 235 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝑋 − 𝐴) ≠ 0)
8678oveq1d 7435 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((abs‘(𝑋 − 𝐴))↑2) = ((abs‘(𝐵 − 𝐶))↑2))
8773absvalsqd 15612 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((abs‘(𝑋 − 𝐴))↑2) = ((𝑋 − 𝐴) · (∗‘(𝑋 − 𝐴))))
8827absvalsqd 15612 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((abs‘(𝐵 − 𝐶))↑2) = ((𝐵 − 𝐶) · (∗‘(𝐵 − 𝐶))))
8986, 87, 883eqtr3d 2804 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((𝑋 − 𝐴) · (∗‘(𝑋 − 𝐴))) = ((𝐵 − 𝐶) · (∗‘(𝐵 − 𝐶))))
9089, 22eqtr4di 2814 . . . . . . . . . . . . . . . . 17 (𝜑 → ((𝑋 − 𝐴) · (∗‘(𝑋 − 𝐴))) = 𝑃)
9173, 77, 85, 90mvllmuld 12149 . . . . . . . . . . . . . . . 16 (𝜑 → (∗‘(𝑋 − 𝐴)) = (𝑃 / (𝑋 − 𝐴)))
9291, 77eqeltrrd 2862 . . . . . . . . . . . . . . 15 (𝜑 → (𝑃 / (𝑋 − 𝐴)) ∈ ℂ)
9331, 92addcld 11328 . . . . . . . . . . . . . 14 (𝜑 → ((∗‘𝐴) + (𝑃 / (𝑋 − 𝐴))) ∈ ℂ)
9493, 73, 74mulassd 11332 . . . . . . . . . . . . 13 (𝜑 → ((((∗‘𝐴) + (𝑃 / (𝑋 − 𝐴))) · (𝑋 − 𝐴)) · (𝑋 − 𝐷)) = (((∗‘𝐴) + (𝑃 / (𝑋 − 𝐴))) · ((𝑋 − 𝐴) · (𝑋 − 𝐷))))
9530, 73, 85divcan1d 12094 . . . . . . . . . . . . . . . . 17 (𝜑 → ((𝑃 / (𝑋 − 𝐴)) · (𝑋 − 𝐴)) = 𝑃)
9695oveq2d 7436 . . . . . . . . . . . . . . . 16 (𝜑 → (((∗‘𝐴) · (𝑋 − 𝐴)) + ((𝑃 / (𝑋 − 𝐴)) · (𝑋 − 𝐴))) = (((∗‘𝐴) · (𝑋 − 𝐴)) + 𝑃))
9731, 73, 92, 96joinlmuladdmuld 11336 . . . . . . . . . . . . . . 15 (𝜑 → (((∗‘𝐴) + (𝑃 / (𝑋 − 𝐴))) · (𝑋 − 𝐴)) = (((∗‘𝐴) · (𝑋 − 𝐴)) + 𝑃))
9897oveq1d 7435 . . . . . . . . . . . . . 14 (𝜑 → ((((∗‘𝐴) + (𝑃 / (𝑋 − 𝐴))) · (𝑋 − 𝐴)) · (𝑋 − 𝐷)) = ((((∗‘𝐴) · (𝑋 − 𝐴)) + 𝑃) · (𝑋 − 𝐷)))
9931, 73mulcld 11329 . . . . . . . . . . . . . . 15 (𝜑 → ((∗‘𝐴) · (𝑋 − 𝐴)) ∈ ℂ)
10099, 30, 74adddird 11334 . . . . . . . . . . . . . 14 (𝜑 → ((((∗‘𝐴) · (𝑋 − 𝐴)) + 𝑃) · (𝑋 − 𝐷)) = ((((∗‘𝐴) · (𝑋 − 𝐴)) · (𝑋 − 𝐷)) + (𝑃 · (𝑋 − 𝐷))))
10131, 73, 74mulassd 11332 . . . . . . . . . . . . . . . 16 (𝜑 → (((∗‘𝐴) · (𝑋 − 𝐴)) · (𝑋 − 𝐷)) = ((∗‘𝐴) · ((𝑋 − 𝐴) · (𝑋 − 𝐷))))
1021, 18, 1, 15mulsubd 11775 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((𝑋 − 𝐴) · (𝑋 − 𝐷)) = (((𝑋 · 𝑋) + (𝐷 · 𝐴)) − ((𝑋 · 𝐷) + (𝑋 · 𝐴))))
1031sqvald 14286 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (𝑋↑2) = (𝑋 · 𝑋))
104103oveq1d 7435 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((𝑋↑2) + (𝐷 · 𝐴)) = ((𝑋 · 𝑋) + (𝐷 · 𝐴)))
1051, 15, 18adddid 11333 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (𝑋 · (𝐷 + 𝐴)) = ((𝑋 · 𝐷) + (𝑋 · 𝐴)))
106104, 105oveq12d 7438 . . . . . . . . . . . . . . . . . 18 (𝜑 → (((𝑋↑2) + (𝐷 · 𝐴)) − (𝑋 · (𝐷 + 𝐴))) = (((𝑋 · 𝑋) + (𝐷 · 𝐴)) − ((𝑋 · 𝐷) + (𝑋 · 𝐴))))
1071, 19mulcld 11329 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (𝑋 · (𝐷 + 𝐴)) ∈ ℂ)
1082, 47, 107addsubd 11690 . . . . . . . . . . . . . . . . . 18 (𝜑 → (((𝑋↑2) + (𝐷 · 𝐴)) − (𝑋 · (𝐷 + 𝐴))) = (((𝑋↑2) − (𝑋 · (𝐷 + 𝐴))) + (𝐷 · 𝐴)))
109102, 106, 1083eqtr2d 2802 . . . . . . . . . . . . . . . . 17 (𝜑 → ((𝑋 − 𝐴) · (𝑋 − 𝐷)) = (((𝑋↑2) − (𝑋 · (𝐷 + 𝐴))) + (𝐷 · 𝐴)))
110109oveq2d 7436 . . . . . . . . . . . . . . . 16 (𝜑 → ((∗‘𝐴) · ((𝑋 − 𝐴) · (𝑋 − 𝐷))) = ((∗‘𝐴) · (((𝑋↑2) − (𝑋 · (𝐷 + 𝐴))) + (𝐷 · 𝐴))))
1112, 107subcld 11669 . . . . . . . . . . . . . . . . 17 (𝜑 → ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴))) ∈ ℂ)
11231, 111, 47adddid 11333 . . . . . . . . . . . . . . . 16 (𝜑 → ((∗‘𝐴) · (((𝑋↑2) − (𝑋 · (𝐷 + 𝐴))) + (𝐷 · 𝐴))) = (((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + ((∗‘𝐴) · (𝐷 · 𝐴))))
113101, 110, 1123eqtrd 2800 . . . . . . . . . . . . . . 15 (𝜑 → (((∗‘𝐴) · (𝑋 − 𝐴)) · (𝑋 − 𝐷)) = (((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + ((∗‘𝐴) · (𝐷 · 𝐴))))
11430, 1, 15subdid 11772 . . . . . . . . . . . . . . 15 (𝜑 → (𝑃 · (𝑋 − 𝐷)) = ((𝑃 · 𝑋) − (𝑃 · 𝐷)))
115113, 114oveq12d 7438 . . . . . . . . . . . . . 14 (𝜑 → ((((∗‘𝐴) · (𝑋 − 𝐴)) · (𝑋 − 𝐷)) + (𝑃 · (𝑋 − 𝐷))) = ((((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + ((∗‘𝐴) · (𝐷 · 𝐴))) + ((𝑃 · 𝑋) − (𝑃 · 𝐷))))
11698, 100, 1153eqtrd 2800 . . . . . . . . . . . . 13 (𝜑 → ((((∗‘𝐴) + (𝑃 / (𝑋 − 𝐴))) · (𝑋 − 𝐴)) · (𝑋 − 𝐷)) = ((((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + ((∗‘𝐴) · (𝐷 · 𝐴))) + ((𝑃 · 𝑋) − (𝑃 · 𝐷))))
1171, 18cjsubd 33334 . . . . . . . . . . . . . . . 16 (𝜑 → (∗‘(𝑋 − 𝐴)) = ((∗‘𝑋) − (∗‘𝐴)))
118117, 91eqtr3d 2798 . . . . . . . . . . . . . . 15 (𝜑 → ((∗‘𝑋) − (∗‘𝐴)) = (𝑃 / (𝑋 − 𝐴)))
1191cjcld 15363 . . . . . . . . . . . . . . . 16 (𝜑 → (∗‘𝑋) ∈ ℂ)
120119, 31, 92subaddd 11687 . . . . . . . . . . . . . . 15 (𝜑 → (((∗‘𝑋) − (∗‘𝐴)) = (𝑃 / (𝑋 − 𝐴)) ↔ ((∗‘𝐴) + (𝑃 / (𝑋 − 𝐴))) = (∗‘𝑋)))
121118, 120mpbid 235 . . . . . . . . . . . . . 14 (𝜑 → ((∗‘𝐴) + (𝑃 / (𝑋 − 𝐴))) = (∗‘𝑋))
122121oveq1d 7435 . . . . . . . . . . . . 13 (𝜑 → (((∗‘𝐴) + (𝑃 / (𝑋 − 𝐴))) · ((𝑋 − 𝐴) · (𝑋 − 𝐷))) = ((∗‘𝑋) · ((𝑋 − 𝐴) · (𝑋 − 𝐷))))
12394, 116, 1223eqtr3rd 2805 . . . . . . . . . . . 12 (𝜑 → ((∗‘𝑋) · ((𝑋 − 𝐴) · (𝑋 − 𝐷))) = ((((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + ((∗‘𝐴) · (𝐷 · 𝐴))) + ((𝑃 · 𝑋) − (𝑃 · 𝐷))))
12431, 111mulcld 11329 . . . . . . . . . . . . . 14 (𝜑 → ((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) ∈ ℂ)
125124, 48addcld 11328 . . . . . . . . . . . . 13 (𝜑 → (((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + ((∗‘𝐴) · (𝐷 · 𝐴))) ∈ ℂ)
12630, 1mulcld 11329 . . . . . . . . . . . . 13 (𝜑 → (𝑃 · 𝑋) ∈ ℂ)
127125, 126, 49addsubassd 11689 . . . . . . . . . . . 12 (𝜑 → (((((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + ((∗‘𝐴) · (𝐷 · 𝐴))) + (𝑃 · 𝑋)) − (𝑃 · 𝐷)) = ((((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + ((∗‘𝐴) · (𝐷 · 𝐴))) + ((𝑃 · 𝑋) − (𝑃 · 𝐷))))
128124, 48, 126add32d 11538 . . . . . . . . . . . . 13 (𝜑 → ((((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + ((∗‘𝐴) · (𝐷 · 𝐴))) + (𝑃 · 𝑋)) = ((((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + (𝑃 · 𝑋)) + ((∗‘𝐴) · (𝐷 · 𝐴))))
129128oveq1d 7435 . . . . . . . . . . . 12 (𝜑 → (((((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + ((∗‘𝐴) · (𝐷 · 𝐴))) + (𝑃 · 𝑋)) − (𝑃 · 𝐷)) = (((((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + (𝑃 · 𝑋)) + ((∗‘𝐴) · (𝐷 · 𝐴))) − (𝑃 · 𝐷)))
130123, 127, 1293eqtr2d 2802 . . . . . . . . . . 11 (𝜑 → ((∗‘𝑋) · ((𝑋 − 𝐴) · (𝑋 − 𝐷))) = (((((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + (𝑃 · 𝑋)) + ((∗‘𝐴) · (𝐷 · 𝐴))) − (𝑃 · 𝐷)))
131124, 126addcld 11328 . . . . . . . . . . . 12 (𝜑 → (((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + (𝑃 · 𝑋)) ∈ ℂ)
132131, 48, 49addsubassd 11689 . . . . . . . . . . 11 (𝜑 → (((((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + (𝑃 · 𝑋)) + ((∗‘𝐴) · (𝐷 · 𝐴))) − (𝑃 · 𝐷)) = ((((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + (𝑃 · 𝑋)) + (((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷))))
13332, 1mulcld 11329 . . . . . . . . . . . . . 14 (𝜑 → (((∗‘𝐴) · (𝐷 + 𝐴)) · 𝑋) ∈ ℂ)
13470, 133, 126subadd23d 11691 . . . . . . . . . . . . 13 (𝜑 → ((((∗‘𝐴) · (𝑋↑2)) − (((∗‘𝐴) · (𝐷 + 𝐴)) · 𝑋)) + (𝑃 · 𝑋)) = (((∗‘𝐴) · (𝑋↑2)) + ((𝑃 · 𝑋) − (((∗‘𝐴) · (𝐷 + 𝐴)) · 𝑋))))
13531, 2, 107subdid 11772 . . . . . . . . . . . . . . 15 (𝜑 → ((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) = (((∗‘𝐴) · (𝑋↑2)) − ((∗‘𝐴) · (𝑋 · (𝐷 + 𝐴)))))
13631, 1, 19mul12d 11519 . . . . . . . . . . . . . . . . 17 (𝜑 → ((∗‘𝐴) · (𝑋 · (𝐷 + 𝐴))) = (𝑋 · ((∗‘𝐴) · (𝐷 + 𝐴))))
1371, 32mulcomd 11330 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝑋 · ((∗‘𝐴) · (𝐷 + 𝐴))) = (((∗‘𝐴) · (𝐷 + 𝐴)) · 𝑋))
138136, 137eqtrd 2796 . . . . . . . . . . . . . . . 16 (𝜑 → ((∗‘𝐴) · (𝑋 · (𝐷 + 𝐴))) = (((∗‘𝐴) · (𝐷 + 𝐴)) · 𝑋))
139138oveq2d 7436 . . . . . . . . . . . . . . 15 (𝜑 → (((∗‘𝐴) · (𝑋↑2)) − ((∗‘𝐴) · (𝑋 · (𝐷 + 𝐴)))) = (((∗‘𝐴) · (𝑋↑2)) − (((∗‘𝐴) · (𝐷 + 𝐴)) · 𝑋)))
140135, 139eqtrd 2796 . . . . . . . . . . . . . 14 (𝜑 → ((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) = (((∗‘𝐴) · (𝑋↑2)) − (((∗‘𝐴) · (𝐷 + 𝐴)) · 𝑋)))
141140oveq1d 7435 . . . . . . . . . . . . 13 (𝜑 → (((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + (𝑃 · 𝑋)) = ((((∗‘𝐴) · (𝑋↑2)) − (((∗‘𝐴) · (𝐷 + 𝐴)) · 𝑋)) + (𝑃 · 𝑋)))
14230, 32, 1subdird 11773 . . . . . . . . . . . . . 14 (𝜑 → ((𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴))) · 𝑋) = ((𝑃 · 𝑋) − (((∗‘𝐴) · (𝐷 + 𝐴)) · 𝑋)))
143142oveq2d 7436 . . . . . . . . . . . . 13 (𝜑 → (((∗‘𝐴) · (𝑋↑2)) + ((𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴))) · 𝑋)) = (((∗‘𝐴) · (𝑋↑2)) + ((𝑃 · 𝑋) − (((∗‘𝐴) · (𝐷 + 𝐴)) · 𝑋))))
144134, 141, 1433eqtr4d 2806 . . . . . . . . . . . 12 (𝜑 → (((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + (𝑃 · 𝑋)) = (((∗‘𝐴) · (𝑋↑2)) + ((𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴))) · 𝑋)))
145144oveq1d 7435 . . . . . . . . . . 11 (𝜑 → ((((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + (𝑃 · 𝑋)) + (((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷))) = ((((∗‘𝐴) · (𝑋↑2)) + ((𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴))) · 𝑋)) + (((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷))))
146130, 132, 1453eqtrd 2800 . . . . . . . . . 10 (𝜑 → ((∗‘𝑋) · ((𝑋 − 𝐴) · (𝑋 − 𝐷))) = ((((∗‘𝐴) · (𝑋↑2)) + ((𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴))) · 𝑋)) + (((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷))))
14774cjcld 15363 . . . . . . . . . . . . . . . . 17 (𝜑 → (∗‘(𝑋 − 𝐷)) ∈ ℂ)
148 constrrtcc.3 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (abs‘(𝑋 − 𝐷)) = (abs‘(𝐸 − 𝐹)))
149 constrrtcclem.2 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → 𝐸 ≠ 𝐹)
1507, 9, 149subne0d 11679 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (𝐸 − 𝐹) ≠ 0)
15110, 150absne0d 15617 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (abs‘(𝐸 − 𝐹)) ≠ 0)
152148, 151eqnetrd 3023 . . . . . . . . . . . . . . . . . 18 (𝜑 → (abs‘(𝑋 − 𝐷)) ≠ 0)
15374abs00ad 15457 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((abs‘(𝑋 − 𝐷)) = 0 ↔ (𝑋 − 𝐷) = 0))
154153necon3bid 3000 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((abs‘(𝑋 − 𝐷)) ≠ 0 ↔ (𝑋 − 𝐷) ≠ 0))
155152, 154mpbid 235 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝑋 − 𝐷) ≠ 0)
156148oveq1d 7435 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((abs‘(𝑋 − 𝐷))↑2) = ((abs‘(𝐸 − 𝐹))↑2))
15774absvalsqd 15612 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((abs‘(𝑋 − 𝐷))↑2) = ((𝑋 − 𝐷) · (∗‘(𝑋 − 𝐷))))
15810absvalsqd 15612 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((abs‘(𝐸 − 𝐹))↑2) = ((𝐸 − 𝐹) · (∗‘(𝐸 − 𝐹))))
159156, 157, 1583eqtr3d 2804 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((𝑋 − 𝐷) · (∗‘(𝑋 − 𝐷))) = ((𝐸 − 𝐹) · (∗‘(𝐸 − 𝐹))))
160159, 4eqtr4di 2814 . . . . . . . . . . . . . . . . 17 (𝜑 → ((𝑋 − 𝐷) · (∗‘(𝑋 − 𝐷))) = 𝑄)
16174, 147, 155, 160mvllmuld 12149 . . . . . . . . . . . . . . . 16 (𝜑 → (∗‘(𝑋 − 𝐷)) = (𝑄 / (𝑋 − 𝐷)))
162161, 147eqeltrrd 2862 . . . . . . . . . . . . . . 15 (𝜑 → (𝑄 / (𝑋 − 𝐷)) ∈ ℂ)
16316, 162addcld 11328 . . . . . . . . . . . . . 14 (𝜑 → ((∗‘𝐷) + (𝑄 / (𝑋 − 𝐷))) ∈ ℂ)
164163, 74, 73mulassd 11332 . . . . . . . . . . . . 13 (𝜑 → ((((∗‘𝐷) + (𝑄 / (𝑋 − 𝐷))) · (𝑋 − 𝐷)) · (𝑋 − 𝐴)) = (((∗‘𝐷) + (𝑄 / (𝑋 − 𝐷))) · ((𝑋 − 𝐷) · (𝑋 − 𝐴))))
16513, 74, 155divcan1d 12094 . . . . . . . . . . . . . . . . 17 (𝜑 → ((𝑄 / (𝑋 − 𝐷)) · (𝑋 − 𝐷)) = 𝑄)
166165oveq2d 7436 . . . . . . . . . . . . . . . 16 (𝜑 → (((∗‘𝐷) · (𝑋 − 𝐷)) + ((𝑄 / (𝑋 − 𝐷)) · (𝑋 − 𝐷))) = (((∗‘𝐷) · (𝑋 − 𝐷)) + 𝑄))
16716, 74, 162, 166joinlmuladdmuld 11336 . . . . . . . . . . . . . . 15 (𝜑 → (((∗‘𝐷) + (𝑄 / (𝑋 − 𝐷))) · (𝑋 − 𝐷)) = (((∗‘𝐷) · (𝑋 − 𝐷)) + 𝑄))
168167oveq1d 7435 . . . . . . . . . . . . . 14 (𝜑 → ((((∗‘𝐷) + (𝑄 / (𝑋 − 𝐷))) · (𝑋 − 𝐷)) · (𝑋 − 𝐴)) = ((((∗‘𝐷) · (𝑋 − 𝐷)) + 𝑄) · (𝑋 − 𝐴)))
16916, 74mulcld 11329 . . . . . . . . . . . . . . 15 (𝜑 → ((∗‘𝐷) · (𝑋 − 𝐷)) ∈ ℂ)
170169, 13, 73adddird 11334 . . . . . . . . . . . . . 14 (𝜑 → ((((∗‘𝐷) · (𝑋 − 𝐷)) + 𝑄) · (𝑋 − 𝐴)) = ((((∗‘𝐷) · (𝑋 − 𝐷)) · (𝑋 − 𝐴)) + (𝑄 · (𝑋 − 𝐴))))
17116, 74, 73mulassd 11332 . . . . . . . . . . . . . . . . 17 (𝜑 → (((∗‘𝐷) · (𝑋 − 𝐷)) · (𝑋 − 𝐴)) = ((∗‘𝐷) · ((𝑋 − 𝐷) · (𝑋 − 𝐴))))
17275oveq2d 7436 . . . . . . . . . . . . . . . . 17 (𝜑 → ((∗‘𝐷) · ((𝑋 − 𝐴) · (𝑋 − 𝐷))) = ((∗‘𝐷) · ((𝑋 − 𝐷) · (𝑋 − 𝐴))))
173171, 172eqtr4d 2799 . . . . . . . . . . . . . . . 16 (𝜑 → (((∗‘𝐷) · (𝑋 − 𝐷)) · (𝑋 − 𝐴)) = ((∗‘𝐷) · ((𝑋 − 𝐴) · (𝑋 − 𝐷))))
174109oveq2d 7436 . . . . . . . . . . . . . . . 16 (𝜑 → ((∗‘𝐷) · ((𝑋 − 𝐴) · (𝑋 − 𝐷))) = ((∗‘𝐷) · (((𝑋↑2) − (𝑋 · (𝐷 + 𝐴))) + (𝐷 · 𝐴))))
17516, 111, 47adddid 11333 . . . . . . . . . . . . . . . 16 (𝜑 → ((∗‘𝐷) · (((𝑋↑2) − (𝑋 · (𝐷 + 𝐴))) + (𝐷 · 𝐴))) = (((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + ((∗‘𝐷) · (𝐷 · 𝐴))))
176173, 174, 1753eqtrd 2800 . . . . . . . . . . . . . . 15 (𝜑 → (((∗‘𝐷) · (𝑋 − 𝐷)) · (𝑋 − 𝐴)) = (((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + ((∗‘𝐷) · (𝐷 · 𝐴))))
17713, 1, 18subdid 11772 . . . . . . . . . . . . . . 15 (𝜑 → (𝑄 · (𝑋 − 𝐴)) = ((𝑄 · 𝑋) − (𝑄 · 𝐴)))
178176, 177oveq12d 7438 . . . . . . . . . . . . . 14 (𝜑 → ((((∗‘𝐷) · (𝑋 − 𝐷)) · (𝑋 − 𝐴)) + (𝑄 · (𝑋 − 𝐴))) = ((((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + ((∗‘𝐷) · (𝐷 · 𝐴))) + ((𝑄 · 𝑋) − (𝑄 · 𝐴))))
179168, 170, 1783eqtrd 2800 . . . . . . . . . . . . 13 (𝜑 → ((((∗‘𝐷) + (𝑄 / (𝑋 − 𝐷))) · (𝑋 − 𝐷)) · (𝑋 − 𝐴)) = ((((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + ((∗‘𝐷) · (𝐷 · 𝐴))) + ((𝑄 · 𝑋) − (𝑄 · 𝐴))))
1801, 15cjsubd 33334 . . . . . . . . . . . . . . . 16 (𝜑 → (∗‘(𝑋 − 𝐷)) = ((∗‘𝑋) − (∗‘𝐷)))
181180, 161eqtr3d 2798 . . . . . . . . . . . . . . 15 (𝜑 → ((∗‘𝑋) − (∗‘𝐷)) = (𝑄 / (𝑋 − 𝐷)))
182119, 16, 162subaddd 11687 . . . . . . . . . . . . . . 15 (𝜑 → (((∗‘𝑋) − (∗‘𝐷)) = (𝑄 / (𝑋 − 𝐷)) ↔ ((∗‘𝐷) + (𝑄 / (𝑋 − 𝐷))) = (∗‘𝑋)))
183181, 182mpbid 235 . . . . . . . . . . . . . 14 (𝜑 → ((∗‘𝐷) + (𝑄 / (𝑋 − 𝐷))) = (∗‘𝑋))
184183oveq1d 7435 . . . . . . . . . . . . 13 (𝜑 → (((∗‘𝐷) + (𝑄 / (𝑋 − 𝐷))) · ((𝑋 − 𝐷) · (𝑋 − 𝐴))) = ((∗‘𝑋) · ((𝑋 − 𝐷) · (𝑋 − 𝐴))))
185164, 179, 1843eqtr3rd 2805 . . . . . . . . . . . 12 (𝜑 → ((∗‘𝑋) · ((𝑋 − 𝐷) · (𝑋 − 𝐴))) = ((((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + ((∗‘𝐷) · (𝐷 · 𝐴))) + ((𝑄 · 𝑋) − (𝑄 · 𝐴))))
18616, 111mulcld 11329 . . . . . . . . . . . . . 14 (𝜑 → ((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) ∈ ℂ)
187186, 51addcld 11328 . . . . . . . . . . . . 13 (𝜑 → (((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + ((∗‘𝐷) · (𝐷 · 𝐴))) ∈ ℂ)
18813, 1mulcld 11329 . . . . . . . . . . . . 13 (𝜑 → (𝑄 · 𝑋) ∈ ℂ)
189187, 188, 52addsubassd 11689 . . . . . . . . . . . 12 (𝜑 → (((((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + ((∗‘𝐷) · (𝐷 · 𝐴))) + (𝑄 · 𝑋)) − (𝑄 · 𝐴)) = ((((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + ((∗‘𝐷) · (𝐷 · 𝐴))) + ((𝑄 · 𝑋) − (𝑄 · 𝐴))))
190186, 51, 188add32d 11538 . . . . . . . . . . . . 13 (𝜑 → ((((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + ((∗‘𝐷) · (𝐷 · 𝐴))) + (𝑄 · 𝑋)) = ((((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + (𝑄 · 𝑋)) + ((∗‘𝐷) · (𝐷 · 𝐴))))
191190oveq1d 7435 . . . . . . . . . . . 12 (𝜑 → (((((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + ((∗‘𝐷) · (𝐷 · 𝐴))) + (𝑄 · 𝑋)) − (𝑄 · 𝐴)) = (((((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + (𝑄 · 𝑋)) + ((∗‘𝐷) · (𝐷 · 𝐴))) − (𝑄 · 𝐴)))
192185, 189, 1913eqtr2d 2802 . . . . . . . . . . 11 (𝜑 → ((∗‘𝑋) · ((𝑋 − 𝐷) · (𝑋 − 𝐴))) = (((((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + (𝑄 · 𝑋)) + ((∗‘𝐷) · (𝐷 · 𝐴))) − (𝑄 · 𝐴)))
193186, 188addcld 11328 . . . . . . . . . . . 12 (𝜑 → (((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + (𝑄 · 𝑋)) ∈ ℂ)
194193, 51, 52addsubassd 11689 . . . . . . . . . . 11 (𝜑 → (((((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + (𝑄 · 𝑋)) + ((∗‘𝐷) · (𝐷 · 𝐴))) − (𝑄 · 𝐴)) = ((((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + (𝑄 · 𝑋)) + (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))))
19520, 1mulcld 11329 . . . . . . . . . . . . . 14 (𝜑 → (((∗‘𝐷) · (𝐷 + 𝐴)) · 𝑋) ∈ ℂ)
19668, 195, 188subadd23d 11691 . . . . . . . . . . . . 13 (𝜑 → ((((∗‘𝐷) · (𝑋↑2)) − (((∗‘𝐷) · (𝐷 + 𝐴)) · 𝑋)) + (𝑄 · 𝑋)) = (((∗‘𝐷) · (𝑋↑2)) + ((𝑄 · 𝑋) − (((∗‘𝐷) · (𝐷 + 𝐴)) · 𝑋))))
19716, 2, 107subdid 11772 . . . . . . . . . . . . . . 15 (𝜑 → ((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) = (((∗‘𝐷) · (𝑋↑2)) − ((∗‘𝐷) · (𝑋 · (𝐷 + 𝐴)))))
19816, 1, 19mul12d 11519 . . . . . . . . . . . . . . . . 17 (𝜑 → ((∗‘𝐷) · (𝑋 · (𝐷 + 𝐴))) = (𝑋 · ((∗‘𝐷) · (𝐷 + 𝐴))))
1991, 20mulcomd 11330 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝑋 · ((∗‘𝐷) · (𝐷 + 𝐴))) = (((∗‘𝐷) · (𝐷 + 𝐴)) · 𝑋))
200198, 199eqtrd 2796 . . . . . . . . . . . . . . . 16 (𝜑 → ((∗‘𝐷) · (𝑋 · (𝐷 + 𝐴))) = (((∗‘𝐷) · (𝐷 + 𝐴)) · 𝑋))
201200oveq2d 7436 . . . . . . . . . . . . . . 15 (𝜑 → (((∗‘𝐷) · (𝑋↑2)) − ((∗‘𝐷) · (𝑋 · (𝐷 + 𝐴)))) = (((∗‘𝐷) · (𝑋↑2)) − (((∗‘𝐷) · (𝐷 + 𝐴)) · 𝑋)))
202197, 201eqtrd 2796 . . . . . . . . . . . . . 14 (𝜑 → ((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) = (((∗‘𝐷) · (𝑋↑2)) − (((∗‘𝐷) · (𝐷 + 𝐴)) · 𝑋)))
203202oveq1d 7435 . . . . . . . . . . . . 13 (𝜑 → (((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + (𝑄 · 𝑋)) = ((((∗‘𝐷) · (𝑋↑2)) − (((∗‘𝐷) · (𝐷 + 𝐴)) · 𝑋)) + (𝑄 · 𝑋)))
20413, 20, 1subdird 11773 . . . . . . . . . . . . . 14 (𝜑 → ((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) · 𝑋) = ((𝑄 · 𝑋) − (((∗‘𝐷) · (𝐷 + 𝐴)) · 𝑋)))
205204oveq2d 7436 . . . . . . . . . . . . 13 (𝜑 → (((∗‘𝐷) · (𝑋↑2)) + ((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) · 𝑋)) = (((∗‘𝐷) · (𝑋↑2)) + ((𝑄 · 𝑋) − (((∗‘𝐷) · (𝐷 + 𝐴)) · 𝑋))))
206196, 203, 2053eqtr4d 2806 . . . . . . . . . . . 12 (𝜑 → (((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + (𝑄 · 𝑋)) = (((∗‘𝐷) · (𝑋↑2)) + ((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) · 𝑋)))
207206oveq1d 7435 . . . . . . . . . . 11 (𝜑 → ((((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + (𝑄 · 𝑋)) + (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))) = ((((∗‘𝐷) · (𝑋↑2)) + ((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) · 𝑋)) + (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))))
208192, 194, 2073eqtrd 2800 . . . . . . . . . 10 (𝜑 → ((∗‘𝑋) · ((𝑋 − 𝐷) · (𝑋 − 𝐴))) = ((((∗‘𝐷) · (𝑋↑2)) + ((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) · 𝑋)) + (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))))
20976, 146, 2083eqtr3d 2804 . . . . . . . . 9 (𝜑 → ((((∗‘𝐴) · (𝑋↑2)) + ((𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴))) · 𝑋)) + (((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷))) = ((((∗‘𝐷) · (𝑋↑2)) + ((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) · 𝑋)) + (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))))
210144, 131eqeltrrd 2862 . . . . . . . . . 10 (𝜑 → (((∗‘𝐴) · (𝑋↑2)) + ((𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴))) · 𝑋)) ∈ ℂ)
211206, 193eqeltrrd 2862 . . . . . . . . . 10 (𝜑 → (((∗‘𝐷) · (𝑋↑2)) + ((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) · 𝑋)) ∈ ℂ)
212210, 50, 211, 53addsubeq4d 11720 . . . . . . . . 9 (𝜑 → (((((∗‘𝐴) · (𝑋↑2)) + ((𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴))) · 𝑋)) + (((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷))) = ((((∗‘𝐷) · (𝑋↑2)) + ((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) · 𝑋)) + (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))) ↔ ((((∗‘𝐷) · (𝑋↑2)) + ((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) · 𝑋)) − (((∗‘𝐴) · (𝑋↑2)) + ((𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴))) · 𝑋))) = ((((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷)) − (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴)))))
213209, 212mpbid 235 . . . . . . . 8 (𝜑 → ((((∗‘𝐷) · (𝑋↑2)) + ((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) · 𝑋)) − (((∗‘𝐴) · (𝑋↑2)) + ((𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴))) · 𝑋))) = ((((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷)) − (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))))
21467, 72, 2133eqtr2d 2802 . . . . . . 7 (𝜑 → ((((∗‘𝐷) − (∗‘𝐴)) · (𝑋↑2)) + (((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) − (𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴)))) · 𝑋)) = ((((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷)) − (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))))
21563, 64, 214mvlraddd 11724 . . . . . 6 (𝜑 → (((∗‘𝐷) − (∗‘𝐴)) · (𝑋↑2)) = (((((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷)) − (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))) − (((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) − (𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴)))) · 𝑋)))
21635, 2, 42, 215mvllmuld 12149 . . . . 5 (𝜑 → (𝑋↑2) = ((((((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷)) − (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))) − (((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) − (𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴)))) · 𝑋)) / ((∗‘𝐷) − (∗‘𝐴))))
21754, 64, 35, 42divsubdird 12132 . . . . . 6 (𝜑 → ((((((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷)) − (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))) − (((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) − (𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴)))) · 𝑋)) / ((∗‘𝐷) − (∗‘𝐴))) = ((((((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷)) − (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))) / ((∗‘𝐷) − (∗‘𝐴))) − ((((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) − (𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴)))) · 𝑋) / ((∗‘𝐷) − (∗‘𝐴)))))
21861oveq1d 7435 . . . . . 6 (𝜑 → ( -𝑁 − ((((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) − (𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴)))) · 𝑋) / ((∗‘𝐷) − (∗‘𝐴)))) = ((((((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷)) − (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))) / ((∗‘𝐷) − (∗‘𝐴))) − ((((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) − (𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴)))) · 𝑋) / ((∗‘𝐷) − (∗‘𝐴)))))
219217, 218eqtr4d 2799 . . . . 5 (𝜑 → ((((((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷)) − (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))) − (((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) − (𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴)))) · 𝑋)) / ((∗‘𝐷) − (∗‘𝐴))) = ( -𝑁 − ((((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) − (𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴)))) · 𝑋) / ((∗‘𝐷) − (∗‘𝐴)))))
22034, 1, 35, 42div23d 12130 . . . . . . 7 (𝜑 → ((((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) − (𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴)))) · 𝑋) / ((∗‘𝐷) − (∗‘𝐴))) = ((((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) − (𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴)))) / ((∗‘𝐷) − (∗‘𝐴))) · 𝑋))
2213oveq1i 7430 . . . . . . 7 (𝑀 · 𝑋) = ((((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) − (𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴)))) / ((∗‘𝐷) − (∗‘𝐴))) · 𝑋)
222220, 221eqtr4di 2814 . . . . . 6 (𝜑 → ((((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) − (𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴)))) · 𝑋) / ((∗‘𝐷) − (∗‘𝐴))) = (𝑀 · 𝑋))
223222oveq2d 7436 . . . . 5 (𝜑 → ( -𝑁 − ((((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) − (𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴)))) · 𝑋) / ((∗‘𝐷) − (∗‘𝐴)))) = ( -𝑁 − (𝑀 · 𝑋)))
224216, 219, 2233eqtrd 2800 . . . 4 (𝜑 → (𝑋↑2) = ( -𝑁 − (𝑀 · 𝑋)))
22562, 45, 224mvrrsubd 11729 . . 3 (𝜑 → ((𝑋↑2) + (𝑀 · 𝑋)) = -𝑁)
2262, 45addcld 11328 . . . 4 (𝜑 → ((𝑋↑2) + (𝑀 · 𝑋)) ∈ ℂ)
227 addeq0 11739 . . . 4 ((((𝑋↑2) + (𝑀 · 𝑋)) ∈ ℂ ∧ 𝑁 ∈ ℂ) → ((((𝑋↑2) + (𝑀 · 𝑋)) + 𝑁) = 0 ↔ ((𝑋↑2) + (𝑀 · 𝑋)) = -𝑁))
228226, 57, 227syl2anc 596 . . 3 (𝜑 → ((((𝑋↑2) + (𝑀 · 𝑋)) + 𝑁) = 0 ↔ ((𝑋↑2) + (𝑀 · 𝑋)) = -𝑁))
229225, 228mpbird 260 . 2 (𝜑 → (((𝑋↑2) + (𝑀 · 𝑋)) + 𝑁) = 0)
23058, 229eqtr3d 2798 1 (𝜑 → ((𝑋↑2) + ((𝑀 · 𝑋) + 𝑁)) = 0)
Colors of variables:    wff setvar class
This proof depends on syntax axioms:   → wi 4   ↔ wb 209   = wceq 1570   ∈ wcel 2145   ≠ wne 2956   ⊆ wss 3899  ‘cfv 6538  (class class class)co 7420  ℂcc 11198  0cc0 11200   + caddc 11203   · cmul 11205   − cmin 11541   -cneg 11542   / cdiv 11973  2c2 12397  ↑cexp 14204  ∗ccj 15263  abscabs 15401
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2733  ax-sep 5249  ax-nul 5260  ax-pow 5327  ax-pr 5391  ax-un 7751  ax-cnex 11256  ax-resscn 11257  ax-1cn 11258  ax-icn 11259  ax-addcl 11260  ax-addrcl 11261  ax-mulcl 11262  ax-mulrcl 11263  ax-mulcom 11264  ax-addass 11265  ax-mulass 11266  ax-distr 11267  ax-i2m1 11268  ax-1ne0 11269  ax-1rid 11270  ax-rnegex 11271  ax-rrecex 11272  ax-cnre 11273  ax-pre-lttri 11274  ax-pre-lttrn 11275  ax-pre-ltadd 11276  ax-pre-mulgt0 11277  ax-pre-sup 11278
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-nfc 2910  df-ne 2957  df-nel 3063  df-ral 3078  df-rex 3088  df-rmo 3366  df-reu 3367  df-rab 3414  df-v 3453  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4868  df-iun 4953  df-br 5104  df-opab 5168  df-mpt 5187  df-tr 5213  df-id 5546  df-eprel 5551  df-po 5559  df-so 5560  df-fr 5604  df-we 5606  df-xp 5657  df-rel 5658  df-cnv 5659  df-co 5660  df-dm 5661  df-rn 5662  df-res 5663  df-ima 5664  df-pred 6304  df-ord 6365  df-on 6366  df-lim 6367  df-suc 6368  df-iota 6494  df-fun 6540  df-fn 6541  df-f 6542  df-f1 6543  df-fo 6544  df-f1o 6545  df-fv 6546  df-riota 7377  df-ov 7423  df-oprab 7424  df-mpo 7425  df-om 7878  df-2nd 8002  df-frecs 8299  df-wrecs 8330  df-recs 8379  df-rdg 8418  df-er 8717  df-en 8974  df-dom 8975  df-sdom 8976  df-sup 9434  df-pnf 11345  df-mnf 11346  df-xr 11347  df-ltxr 11348  df-le 11349  df-sub 11543  df-neg 11544  df-div 11974  df-nn 12336  df-2 12405  df-3 12406  df-n0 12607  df-z 12694  df-uz 12966  df-rp 13121  df-seq 14145  df-exp 14205  df-cj 15266  df-re 15267  df-im 15268  df-sqrt 15402  df-abs 15403
This theorem is used by:  constrrtcc  34367
  Copyright terms: Public domain W3C validator