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 34247
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 14211 . . 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 11596 . . . . . . . . . 10 (𝜑 → (𝐸𝐹) ∈ ℂ)
1110cjcld 15286 . . . . . . . . . 10 (𝜑 → (∗‘(𝐸𝐹)) ∈ ℂ)
1210, 11mulcld 11256 . . . . . . . . 9 (𝜑 → ((𝐸𝐹) · (∗‘(𝐸𝐹))) ∈ ℂ)
134, 12eqeltrid 2864 . . . . . . . 8 (𝜑𝑄 ∈ ℂ)
14 constrrtcc.d . . . . . . . . . . 11 (𝜑𝐷𝑆)
155, 14sseldd 3932 . . . . . . . . . 10 (𝜑𝐷 ∈ ℂ)
1615cjcld 15286 . . . . . . . . 9 (𝜑 → (∗‘𝐷) ∈ ℂ)
17 constrrtcc.a . . . . . . . . . . 11 (𝜑𝐴𝑆)
185, 17sseldd 3932 . . . . . . . . . 10 (𝜑𝐴 ∈ ℂ)
1915, 18addcld 11255 . . . . . . . . 9 (𝜑 → (𝐷 + 𝐴) ∈ ℂ)
2016, 19mulcld 11256 . . . . . . . 8 (𝜑 → ((∗‘𝐷) · (𝐷 + 𝐴)) ∈ ℂ)
2113, 20subcld 11596 . . . . . . 7 (𝜑 → (𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) ∈ ℂ)
22 constrrtcc.4 . . . . . . . . 9 𝑃 = ((𝐵𝐶) · (∗‘(𝐵𝐶)))
23 constrrtcc.b . . . . . . . . . . . 12 (𝜑𝐵𝑆)
245, 23sseldd 3932 . . . . . . . . . . 11 (𝜑𝐵 ∈ ℂ)
25 constrrtcc.c . . . . . . . . . . . 12 (𝜑𝐶𝑆)
265, 25sseldd 3932 . . . . . . . . . . 11 (𝜑𝐶 ∈ ℂ)
2724, 26subcld 11596 . . . . . . . . . 10 (𝜑 → (𝐵𝐶) ∈ ℂ)
2827cjcld 15286 . . . . . . . . . 10 (𝜑 → (∗‘(𝐵𝐶)) ∈ ℂ)
2927, 28mulcld 11256 . . . . . . . . 9 (𝜑 → ((𝐵𝐶) · (∗‘(𝐵𝐶))) ∈ ℂ)
3022, 29eqeltrid 2864 . . . . . . . 8 (𝜑𝑃 ∈ ℂ)
3118cjcld 15286 . . . . . . . . 9 (𝜑 → (∗‘𝐴) ∈ ℂ)
3231, 19mulcld 11256 . . . . . . . 8 (𝜑 → ((∗‘𝐴) · (𝐷 + 𝐴)) ∈ ℂ)
3330, 32subcld 11596 . . . . . . 7 (𝜑 → (𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴))) ∈ ℂ)
3421, 33subcld 11596 . . . . . 6 (𝜑 → ((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) − (𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴)))) ∈ ℂ)
3516, 31subcld 11596 . . . . . 6 (𝜑 → ((∗‘𝐷) − (∗‘𝐴)) ∈ ℂ)
3615, 18cjsubd 33216 . . . . . . 7 (𝜑 → (∗‘(𝐷𝐴)) = ((∗‘𝐷) − (∗‘𝐴)))
3715, 18subcld 11596 . . . . . . . 8 (𝜑 → (𝐷𝐴) ∈ ℂ)
38 constrrtcc.1 . . . . . . . . . 10 (𝜑𝐴𝐷)
3938necomd 3010 . . . . . . . . 9 (𝜑𝐷𝐴)
4015, 18, 39subne0d 11606 . . . . . . . 8 (𝜑 → (𝐷𝐴) ≠ 0)
4137, 40cjne0d 15293 . . . . . . 7 (𝜑 → (∗‘(𝐷𝐴)) ≠ 0)
4236, 41eqnetrrd 3023 . . . . . 6 (𝜑 → ((∗‘𝐷) − (∗‘𝐴)) ≠ 0)
4334, 35, 42divcld 12018 . . . . 5 (𝜑 → (((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) − (𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴)))) / ((∗‘𝐷) − (∗‘𝐴))) ∈ ℂ)
443, 43eqeltrid 2864 . . . 4 (𝜑𝑀 ∈ ℂ)
4544, 1mulcld 11256 . . 3 (𝜑 → (𝑀 · 𝑋) ∈ ℂ)
46 constrrtcc.n . . . 4 𝑁 = -(((((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷)) − (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))) / ((∗‘𝐷) − (∗‘𝐴)))
4715, 18mulcld 11256 . . . . . . . . 9 (𝜑 → (𝐷 · 𝐴) ∈ ℂ)
4831, 47mulcld 11256 . . . . . . . 8 (𝜑 → ((∗‘𝐴) · (𝐷 · 𝐴)) ∈ ℂ)
4930, 15mulcld 11256 . . . . . . . 8 (𝜑 → (𝑃 · 𝐷) ∈ ℂ)
5048, 49subcld 11596 . . . . . . 7 (𝜑 → (((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷)) ∈ ℂ)
5116, 47mulcld 11256 . . . . . . . 8 (𝜑 → ((∗‘𝐷) · (𝐷 · 𝐴)) ∈ ℂ)
5213, 18mulcld 11256 . . . . . . . 8 (𝜑 → (𝑄 · 𝐴) ∈ ℂ)
5351, 52subcld 11596 . . . . . . 7 (𝜑 → (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴)) ∈ ℂ)
5450, 53subcld 11596 . . . . . 6 (𝜑 → ((((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷)) − (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))) ∈ ℂ)
5554, 35, 42divcld 12018 . . . . 5 (𝜑 → (((((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷)) − (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))) / ((∗‘𝐷) − (∗‘𝐴))) ∈ ℂ)
5655negcld 11583 . . . 4 (𝜑 → -(((((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷)) − (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))) / ((∗‘𝐷) − (∗‘𝐴))) ∈ ℂ)
5746, 56eqeltrid 2864 . . 3 (𝜑𝑁 ∈ ℂ)
582, 45, 57addassd 11258 . 2 (𝜑 → (((𝑋↑2) + (𝑀 · 𝑋)) + 𝑁) = ((𝑋↑2) + ((𝑀 · 𝑋) + 𝑁)))
5935, 2mulcld 11256 . . . . . . 7 (𝜑 → (((∗‘𝐷) − (∗‘𝐴)) · (𝑋↑2)) ∈ ℂ)
6034, 1mulcld 11256 . . . . . . 7 (𝜑 → (((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) − (𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴)))) · 𝑋) ∈ ℂ)
6116, 31, 2subdird 11698 . . . . . . . . 9 (𝜑 → (((∗‘𝐷) − (∗‘𝐴)) · (𝑋↑2)) = (((∗‘𝐷) · (𝑋↑2)) − ((∗‘𝐴) · (𝑋↑2))))
6221, 33, 1subdird 11698 . . . . . . . . 9 (𝜑 → (((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) − (𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴)))) · 𝑋) = (((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) · 𝑋) − ((𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴))) · 𝑋)))
6361, 62oveq12d 7432 . . . . . . . 8 (𝜑 → ((((∗‘𝐷) − (∗‘𝐴)) · (𝑋↑2)) + (((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) − (𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴)))) · 𝑋)) = ((((∗‘𝐷) · (𝑋↑2)) − ((∗‘𝐴) · (𝑋↑2))) + (((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) · 𝑋) − ((𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴))) · 𝑋))))
6416, 2mulcld 11256 . . . . . . . . 9 (𝜑 → ((∗‘𝐷) · (𝑋↑2)) ∈ ℂ)
6521, 1mulcld 11256 . . . . . . . . 9 (𝜑 → ((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) · 𝑋) ∈ ℂ)
6631, 2mulcld 11256 . . . . . . . . 9 (𝜑 → ((∗‘𝐴) · (𝑋↑2)) ∈ ℂ)
6733, 1mulcld 11256 . . . . . . . . 9 (𝜑 → ((𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴))) · 𝑋) ∈ ℂ)
6864, 65, 66, 67addsub4d 11643 . . . . . . . 8 (𝜑 → ((((∗‘𝐷) · (𝑋↑2)) + ((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) · 𝑋)) − (((∗‘𝐴) · (𝑋↑2)) + ((𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴))) · 𝑋))) = ((((∗‘𝐷) · (𝑋↑2)) − ((∗‘𝐴) · (𝑋↑2))) + (((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) · 𝑋) − ((𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴))) · 𝑋))))
691, 18subcld 11596 . . . . . . . . . . . 12 (𝜑 → (𝑋𝐴) ∈ ℂ)
701, 15subcld 11596 . . . . . . . . . . . 12 (𝜑 → (𝑋𝐷) ∈ ℂ)
7169, 70mulcomd 11257 . . . . . . . . . . 11 (𝜑 → ((𝑋𝐴) · (𝑋𝐷)) = ((𝑋𝐷) · (𝑋𝐴)))
7271oveq2d 7430 . . . . . . . . . 10 (𝜑 → ((∗‘𝑋) · ((𝑋𝐴) · (𝑋𝐷))) = ((∗‘𝑋) · ((𝑋𝐷) · (𝑋𝐴))))
7369cjcld 15286 . . . . . . . . . . . . . . . . 17 (𝜑 → (∗‘(𝑋𝐴)) ∈ ℂ)
74 constrrtcc.2 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (abs‘(𝑋𝐴)) = (abs‘(𝐵𝐶)))
75 constrrtcclem.1 . . . . . . . . . . . . . . . . . . . . 21 (𝜑𝐵𝐶)
7624, 26, 75subne0d 11606 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (𝐵𝐶) ≠ 0)
7727, 76absne0d 15540 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (abs‘(𝐵𝐶)) ≠ 0)
7874, 77eqnetrd 3022 . . . . . . . . . . . . . . . . . 18 (𝜑 → (abs‘(𝑋𝐴)) ≠ 0)
7969abs00ad 15380 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((abs‘(𝑋𝐴)) = 0 ↔ (𝑋𝐴) = 0))
8079necon3bid 2999 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((abs‘(𝑋𝐴)) ≠ 0 ↔ (𝑋𝐴) ≠ 0))
8178, 80mpbid 235 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝑋𝐴) ≠ 0)
8274oveq1d 7429 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((abs‘(𝑋𝐴))↑2) = ((abs‘(𝐵𝐶))↑2))
8369absvalsqd 15535 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((abs‘(𝑋𝐴))↑2) = ((𝑋𝐴) · (∗‘(𝑋𝐴))))
8427absvalsqd 15535 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((abs‘(𝐵𝐶))↑2) = ((𝐵𝐶) · (∗‘(𝐵𝐶))))
8582, 83, 843eqtr3d 2803 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((𝑋𝐴) · (∗‘(𝑋𝐴))) = ((𝐵𝐶) · (∗‘(𝐵𝐶))))
8685, 22eqtr4di 2813 . . . . . . . . . . . . . . . . 17 (𝜑 → ((𝑋𝐴) · (∗‘(𝑋𝐴))) = 𝑃)
8769, 73, 81, 86mvllmuld 12074 . . . . . . . . . . . . . . . 16 (𝜑 → (∗‘(𝑋𝐴)) = (𝑃 / (𝑋𝐴)))
8887, 73eqeltrrd 2861 . . . . . . . . . . . . . . 15 (𝜑 → (𝑃 / (𝑋𝐴)) ∈ ℂ)
8931, 88addcld 11255 . . . . . . . . . . . . . 14 (𝜑 → ((∗‘𝐴) + (𝑃 / (𝑋𝐴))) ∈ ℂ)
9089, 69, 70mulassd 11259 . . . . . . . . . . . . 13 (𝜑 → ((((∗‘𝐴) + (𝑃 / (𝑋𝐴))) · (𝑋𝐴)) · (𝑋𝐷)) = (((∗‘𝐴) + (𝑃 / (𝑋𝐴))) · ((𝑋𝐴) · (𝑋𝐷))))
9130, 69, 81divcan1d 12019 . . . . . . . . . . . . . . . . 17 (𝜑 → ((𝑃 / (𝑋𝐴)) · (𝑋𝐴)) = 𝑃)
9291oveq2d 7430 . . . . . . . . . . . . . . . 16 (𝜑 → (((∗‘𝐴) · (𝑋𝐴)) + ((𝑃 / (𝑋𝐴)) · (𝑋𝐴))) = (((∗‘𝐴) · (𝑋𝐴)) + 𝑃))
9331, 69, 88, 92joinlmuladdmuld 11263 . . . . . . . . . . . . . . 15 (𝜑 → (((∗‘𝐴) + (𝑃 / (𝑋𝐴))) · (𝑋𝐴)) = (((∗‘𝐴) · (𝑋𝐴)) + 𝑃))
9493oveq1d 7429 . . . . . . . . . . . . . 14 (𝜑 → ((((∗‘𝐴) + (𝑃 / (𝑋𝐴))) · (𝑋𝐴)) · (𝑋𝐷)) = ((((∗‘𝐴) · (𝑋𝐴)) + 𝑃) · (𝑋𝐷)))
9531, 69mulcld 11256 . . . . . . . . . . . . . . 15 (𝜑 → ((∗‘𝐴) · (𝑋𝐴)) ∈ ℂ)
9695, 30, 70adddird 11261 . . . . . . . . . . . . . 14 (𝜑 → ((((∗‘𝐴) · (𝑋𝐴)) + 𝑃) · (𝑋𝐷)) = ((((∗‘𝐴) · (𝑋𝐴)) · (𝑋𝐷)) + (𝑃 · (𝑋𝐷))))
9731, 69, 70mulassd 11259 . . . . . . . . . . . . . . . 16 (𝜑 → (((∗‘𝐴) · (𝑋𝐴)) · (𝑋𝐷)) = ((∗‘𝐴) · ((𝑋𝐴) · (𝑋𝐷))))
981, 18, 1, 15mulsubd 11700 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((𝑋𝐴) · (𝑋𝐷)) = (((𝑋 · 𝑋) + (𝐷 · 𝐴)) − ((𝑋 · 𝐷) + (𝑋 · 𝐴))))
991sqvald 14210 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (𝑋↑2) = (𝑋 · 𝑋))
10099oveq1d 7429 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((𝑋↑2) + (𝐷 · 𝐴)) = ((𝑋 · 𝑋) + (𝐷 · 𝐴)))
1011, 15, 18adddid 11260 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (𝑋 · (𝐷 + 𝐴)) = ((𝑋 · 𝐷) + (𝑋 · 𝐴)))
102100, 101oveq12d 7432 . . . . . . . . . . . . . . . . . 18 (𝜑 → (((𝑋↑2) + (𝐷 · 𝐴)) − (𝑋 · (𝐷 + 𝐴))) = (((𝑋 · 𝑋) + (𝐷 · 𝐴)) − ((𝑋 · 𝐷) + (𝑋 · 𝐴))))
1031, 19mulcld 11256 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (𝑋 · (𝐷 + 𝐴)) ∈ ℂ)
1042, 47, 103addsubd 11617 . . . . . . . . . . . . . . . . . 18 (𝜑 → (((𝑋↑2) + (𝐷 · 𝐴)) − (𝑋 · (𝐷 + 𝐴))) = (((𝑋↑2) − (𝑋 · (𝐷 + 𝐴))) + (𝐷 · 𝐴)))
10598, 102, 1043eqtr2d 2801 . . . . . . . . . . . . . . . . 17 (𝜑 → ((𝑋𝐴) · (𝑋𝐷)) = (((𝑋↑2) − (𝑋 · (𝐷 + 𝐴))) + (𝐷 · 𝐴)))
106105oveq2d 7430 . . . . . . . . . . . . . . . 16 (𝜑 → ((∗‘𝐴) · ((𝑋𝐴) · (𝑋𝐷))) = ((∗‘𝐴) · (((𝑋↑2) − (𝑋 · (𝐷 + 𝐴))) + (𝐷 · 𝐴))))
1072, 103subcld 11596 . . . . . . . . . . . . . . . . 17 (𝜑 → ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴))) ∈ ℂ)
10831, 107, 47adddid 11260 . . . . . . . . . . . . . . . 16 (𝜑 → ((∗‘𝐴) · (((𝑋↑2) − (𝑋 · (𝐷 + 𝐴))) + (𝐷 · 𝐴))) = (((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + ((∗‘𝐴) · (𝐷 · 𝐴))))
10997, 106, 1083eqtrd 2799 . . . . . . . . . . . . . . 15 (𝜑 → (((∗‘𝐴) · (𝑋𝐴)) · (𝑋𝐷)) = (((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + ((∗‘𝐴) · (𝐷 · 𝐴))))
11030, 1, 15subdid 11697 . . . . . . . . . . . . . . 15 (𝜑 → (𝑃 · (𝑋𝐷)) = ((𝑃 · 𝑋) − (𝑃 · 𝐷)))
111109, 110oveq12d 7432 . . . . . . . . . . . . . 14 (𝜑 → ((((∗‘𝐴) · (𝑋𝐴)) · (𝑋𝐷)) + (𝑃 · (𝑋𝐷))) = ((((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + ((∗‘𝐴) · (𝐷 · 𝐴))) + ((𝑃 · 𝑋) − (𝑃 · 𝐷))))
11294, 96, 1113eqtrd 2799 . . . . . . . . . . . . 13 (𝜑 → ((((∗‘𝐴) + (𝑃 / (𝑋𝐴))) · (𝑋𝐴)) · (𝑋𝐷)) = ((((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + ((∗‘𝐴) · (𝐷 · 𝐴))) + ((𝑃 · 𝑋) − (𝑃 · 𝐷))))
1131, 18cjsubd 33216 . . . . . . . . . . . . . . . 16 (𝜑 → (∗‘(𝑋𝐴)) = ((∗‘𝑋) − (∗‘𝐴)))
114113, 87eqtr3d 2797 . . . . . . . . . . . . . . 15 (𝜑 → ((∗‘𝑋) − (∗‘𝐴)) = (𝑃 / (𝑋𝐴)))
1151cjcld 15286 . . . . . . . . . . . . . . . 16 (𝜑 → (∗‘𝑋) ∈ ℂ)
116115, 31, 88subaddd 11614 . . . . . . . . . . . . . . 15 (𝜑 → (((∗‘𝑋) − (∗‘𝐴)) = (𝑃 / (𝑋𝐴)) ↔ ((∗‘𝐴) + (𝑃 / (𝑋𝐴))) = (∗‘𝑋)))
117114, 116mpbid 235 . . . . . . . . . . . . . 14 (𝜑 → ((∗‘𝐴) + (𝑃 / (𝑋𝐴))) = (∗‘𝑋))
118117oveq1d 7429 . . . . . . . . . . . . 13 (𝜑 → (((∗‘𝐴) + (𝑃 / (𝑋𝐴))) · ((𝑋𝐴) · (𝑋𝐷))) = ((∗‘𝑋) · ((𝑋𝐴) · (𝑋𝐷))))
11990, 112, 1183eqtr3rd 2804 . . . . . . . . . . . 12 (𝜑 → ((∗‘𝑋) · ((𝑋𝐴) · (𝑋𝐷))) = ((((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + ((∗‘𝐴) · (𝐷 · 𝐴))) + ((𝑃 · 𝑋) − (𝑃 · 𝐷))))
12031, 107mulcld 11256 . . . . . . . . . . . . . 14 (𝜑 → ((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) ∈ ℂ)
121120, 48addcld 11255 . . . . . . . . . . . . 13 (𝜑 → (((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + ((∗‘𝐴) · (𝐷 · 𝐴))) ∈ ℂ)
12230, 1mulcld 11256 . . . . . . . . . . . . 13 (𝜑 → (𝑃 · 𝑋) ∈ ℂ)
123121, 122, 49addsubassd 11616 . . . . . . . . . . . 12 (𝜑 → (((((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + ((∗‘𝐴) · (𝐷 · 𝐴))) + (𝑃 · 𝑋)) − (𝑃 · 𝐷)) = ((((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + ((∗‘𝐴) · (𝐷 · 𝐴))) + ((𝑃 · 𝑋) − (𝑃 · 𝐷))))
124120, 48, 122add32d 11465 . . . . . . . . . . . . 13 (𝜑 → ((((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + ((∗‘𝐴) · (𝐷 · 𝐴))) + (𝑃 · 𝑋)) = ((((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + (𝑃 · 𝑋)) + ((∗‘𝐴) · (𝐷 · 𝐴))))
125124oveq1d 7429 . . . . . . . . . . . 12 (𝜑 → (((((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + ((∗‘𝐴) · (𝐷 · 𝐴))) + (𝑃 · 𝑋)) − (𝑃 · 𝐷)) = (((((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + (𝑃 · 𝑋)) + ((∗‘𝐴) · (𝐷 · 𝐴))) − (𝑃 · 𝐷)))
126119, 123, 1253eqtr2d 2801 . . . . . . . . . . 11 (𝜑 → ((∗‘𝑋) · ((𝑋𝐴) · (𝑋𝐷))) = (((((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + (𝑃 · 𝑋)) + ((∗‘𝐴) · (𝐷 · 𝐴))) − (𝑃 · 𝐷)))
127120, 122addcld 11255 . . . . . . . . . . . 12 (𝜑 → (((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + (𝑃 · 𝑋)) ∈ ℂ)
128127, 48, 49addsubassd 11616 . . . . . . . . . . 11 (𝜑 → (((((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + (𝑃 · 𝑋)) + ((∗‘𝐴) · (𝐷 · 𝐴))) − (𝑃 · 𝐷)) = ((((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + (𝑃 · 𝑋)) + (((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷))))
12932, 1mulcld 11256 . . . . . . . . . . . . . 14 (𝜑 → (((∗‘𝐴) · (𝐷 + 𝐴)) · 𝑋) ∈ ℂ)
13066, 129, 122subadd23d 11618 . . . . . . . . . . . . 13 (𝜑 → ((((∗‘𝐴) · (𝑋↑2)) − (((∗‘𝐴) · (𝐷 + 𝐴)) · 𝑋)) + (𝑃 · 𝑋)) = (((∗‘𝐴) · (𝑋↑2)) + ((𝑃 · 𝑋) − (((∗‘𝐴) · (𝐷 + 𝐴)) · 𝑋))))
13131, 2, 103subdid 11697 . . . . . . . . . . . . . . 15 (𝜑 → ((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) = (((∗‘𝐴) · (𝑋↑2)) − ((∗‘𝐴) · (𝑋 · (𝐷 + 𝐴)))))
13231, 1, 19mul12d 11446 . . . . . . . . . . . . . . . . 17 (𝜑 → ((∗‘𝐴) · (𝑋 · (𝐷 + 𝐴))) = (𝑋 · ((∗‘𝐴) · (𝐷 + 𝐴))))
1331, 32mulcomd 11257 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝑋 · ((∗‘𝐴) · (𝐷 + 𝐴))) = (((∗‘𝐴) · (𝐷 + 𝐴)) · 𝑋))
134132, 133eqtrd 2795 . . . . . . . . . . . . . . . 16 (𝜑 → ((∗‘𝐴) · (𝑋 · (𝐷 + 𝐴))) = (((∗‘𝐴) · (𝐷 + 𝐴)) · 𝑋))
135134oveq2d 7430 . . . . . . . . . . . . . . 15 (𝜑 → (((∗‘𝐴) · (𝑋↑2)) − ((∗‘𝐴) · (𝑋 · (𝐷 + 𝐴)))) = (((∗‘𝐴) · (𝑋↑2)) − (((∗‘𝐴) · (𝐷 + 𝐴)) · 𝑋)))
136131, 135eqtrd 2795 . . . . . . . . . . . . . 14 (𝜑 → ((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) = (((∗‘𝐴) · (𝑋↑2)) − (((∗‘𝐴) · (𝐷 + 𝐴)) · 𝑋)))
137136oveq1d 7429 . . . . . . . . . . . . 13 (𝜑 → (((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + (𝑃 · 𝑋)) = ((((∗‘𝐴) · (𝑋↑2)) − (((∗‘𝐴) · (𝐷 + 𝐴)) · 𝑋)) + (𝑃 · 𝑋)))
13830, 32, 1subdird 11698 . . . . . . . . . . . . . 14 (𝜑 → ((𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴))) · 𝑋) = ((𝑃 · 𝑋) − (((∗‘𝐴) · (𝐷 + 𝐴)) · 𝑋)))
139138oveq2d 7430 . . . . . . . . . . . . 13 (𝜑 → (((∗‘𝐴) · (𝑋↑2)) + ((𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴))) · 𝑋)) = (((∗‘𝐴) · (𝑋↑2)) + ((𝑃 · 𝑋) − (((∗‘𝐴) · (𝐷 + 𝐴)) · 𝑋))))
140130, 137, 1393eqtr4d 2805 . . . . . . . . . . . 12 (𝜑 → (((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + (𝑃 · 𝑋)) = (((∗‘𝐴) · (𝑋↑2)) + ((𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴))) · 𝑋)))
141140oveq1d 7429 . . . . . . . . . . 11 (𝜑 → ((((∗‘𝐴) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + (𝑃 · 𝑋)) + (((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷))) = ((((∗‘𝐴) · (𝑋↑2)) + ((𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴))) · 𝑋)) + (((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷))))
142126, 128, 1413eqtrd 2799 . . . . . . . . . 10 (𝜑 → ((∗‘𝑋) · ((𝑋𝐴) · (𝑋𝐷))) = ((((∗‘𝐴) · (𝑋↑2)) + ((𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴))) · 𝑋)) + (((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷))))
14370cjcld 15286 . . . . . . . . . . . . . . . . 17 (𝜑 → (∗‘(𝑋𝐷)) ∈ ℂ)
144 constrrtcc.3 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (abs‘(𝑋𝐷)) = (abs‘(𝐸𝐹)))
145 constrrtcclem.2 . . . . . . . . . . . . . . . . . . . . 21 (𝜑𝐸𝐹)
1467, 9, 145subne0d 11606 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (𝐸𝐹) ≠ 0)
14710, 146absne0d 15540 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (abs‘(𝐸𝐹)) ≠ 0)
148144, 147eqnetrd 3022 . . . . . . . . . . . . . . . . . 18 (𝜑 → (abs‘(𝑋𝐷)) ≠ 0)
14970abs00ad 15380 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((abs‘(𝑋𝐷)) = 0 ↔ (𝑋𝐷) = 0))
150149necon3bid 2999 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((abs‘(𝑋𝐷)) ≠ 0 ↔ (𝑋𝐷) ≠ 0))
151148, 150mpbid 235 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝑋𝐷) ≠ 0)
152144oveq1d 7429 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((abs‘(𝑋𝐷))↑2) = ((abs‘(𝐸𝐹))↑2))
15370absvalsqd 15535 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((abs‘(𝑋𝐷))↑2) = ((𝑋𝐷) · (∗‘(𝑋𝐷))))
15410absvalsqd 15535 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((abs‘(𝐸𝐹))↑2) = ((𝐸𝐹) · (∗‘(𝐸𝐹))))
155152, 153, 1543eqtr3d 2803 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((𝑋𝐷) · (∗‘(𝑋𝐷))) = ((𝐸𝐹) · (∗‘(𝐸𝐹))))
156155, 4eqtr4di 2813 . . . . . . . . . . . . . . . . 17 (𝜑 → ((𝑋𝐷) · (∗‘(𝑋𝐷))) = 𝑄)
15770, 143, 151, 156mvllmuld 12074 . . . . . . . . . . . . . . . 16 (𝜑 → (∗‘(𝑋𝐷)) = (𝑄 / (𝑋𝐷)))
158157, 143eqeltrrd 2861 . . . . . . . . . . . . . . 15 (𝜑 → (𝑄 / (𝑋𝐷)) ∈ ℂ)
15916, 158addcld 11255 . . . . . . . . . . . . . 14 (𝜑 → ((∗‘𝐷) + (𝑄 / (𝑋𝐷))) ∈ ℂ)
160159, 70, 69mulassd 11259 . . . . . . . . . . . . 13 (𝜑 → ((((∗‘𝐷) + (𝑄 / (𝑋𝐷))) · (𝑋𝐷)) · (𝑋𝐴)) = (((∗‘𝐷) + (𝑄 / (𝑋𝐷))) · ((𝑋𝐷) · (𝑋𝐴))))
16113, 70, 151divcan1d 12019 . . . . . . . . . . . . . . . . 17 (𝜑 → ((𝑄 / (𝑋𝐷)) · (𝑋𝐷)) = 𝑄)
162161oveq2d 7430 . . . . . . . . . . . . . . . 16 (𝜑 → (((∗‘𝐷) · (𝑋𝐷)) + ((𝑄 / (𝑋𝐷)) · (𝑋𝐷))) = (((∗‘𝐷) · (𝑋𝐷)) + 𝑄))
16316, 70, 158, 162joinlmuladdmuld 11263 . . . . . . . . . . . . . . 15 (𝜑 → (((∗‘𝐷) + (𝑄 / (𝑋𝐷))) · (𝑋𝐷)) = (((∗‘𝐷) · (𝑋𝐷)) + 𝑄))
164163oveq1d 7429 . . . . . . . . . . . . . 14 (𝜑 → ((((∗‘𝐷) + (𝑄 / (𝑋𝐷))) · (𝑋𝐷)) · (𝑋𝐴)) = ((((∗‘𝐷) · (𝑋𝐷)) + 𝑄) · (𝑋𝐴)))
16516, 70mulcld 11256 . . . . . . . . . . . . . . 15 (𝜑 → ((∗‘𝐷) · (𝑋𝐷)) ∈ ℂ)
166165, 13, 69adddird 11261 . . . . . . . . . . . . . 14 (𝜑 → ((((∗‘𝐷) · (𝑋𝐷)) + 𝑄) · (𝑋𝐴)) = ((((∗‘𝐷) · (𝑋𝐷)) · (𝑋𝐴)) + (𝑄 · (𝑋𝐴))))
16716, 70, 69mulassd 11259 . . . . . . . . . . . . . . . . 17 (𝜑 → (((∗‘𝐷) · (𝑋𝐷)) · (𝑋𝐴)) = ((∗‘𝐷) · ((𝑋𝐷) · (𝑋𝐴))))
16871oveq2d 7430 . . . . . . . . . . . . . . . . 17 (𝜑 → ((∗‘𝐷) · ((𝑋𝐴) · (𝑋𝐷))) = ((∗‘𝐷) · ((𝑋𝐷) · (𝑋𝐴))))
169167, 168eqtr4d 2798 . . . . . . . . . . . . . . . 16 (𝜑 → (((∗‘𝐷) · (𝑋𝐷)) · (𝑋𝐴)) = ((∗‘𝐷) · ((𝑋𝐴) · (𝑋𝐷))))
170105oveq2d 7430 . . . . . . . . . . . . . . . 16 (𝜑 → ((∗‘𝐷) · ((𝑋𝐴) · (𝑋𝐷))) = ((∗‘𝐷) · (((𝑋↑2) − (𝑋 · (𝐷 + 𝐴))) + (𝐷 · 𝐴))))
17116, 107, 47adddid 11260 . . . . . . . . . . . . . . . 16 (𝜑 → ((∗‘𝐷) · (((𝑋↑2) − (𝑋 · (𝐷 + 𝐴))) + (𝐷 · 𝐴))) = (((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + ((∗‘𝐷) · (𝐷 · 𝐴))))
172169, 170, 1713eqtrd 2799 . . . . . . . . . . . . . . 15 (𝜑 → (((∗‘𝐷) · (𝑋𝐷)) · (𝑋𝐴)) = (((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + ((∗‘𝐷) · (𝐷 · 𝐴))))
17313, 1, 18subdid 11697 . . . . . . . . . . . . . . 15 (𝜑 → (𝑄 · (𝑋𝐴)) = ((𝑄 · 𝑋) − (𝑄 · 𝐴)))
174172, 173oveq12d 7432 . . . . . . . . . . . . . 14 (𝜑 → ((((∗‘𝐷) · (𝑋𝐷)) · (𝑋𝐴)) + (𝑄 · (𝑋𝐴))) = ((((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + ((∗‘𝐷) · (𝐷 · 𝐴))) + ((𝑄 · 𝑋) − (𝑄 · 𝐴))))
175164, 166, 1743eqtrd 2799 . . . . . . . . . . . . 13 (𝜑 → ((((∗‘𝐷) + (𝑄 / (𝑋𝐷))) · (𝑋𝐷)) · (𝑋𝐴)) = ((((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + ((∗‘𝐷) · (𝐷 · 𝐴))) + ((𝑄 · 𝑋) − (𝑄 · 𝐴))))
1761, 15cjsubd 33216 . . . . . . . . . . . . . . . 16 (𝜑 → (∗‘(𝑋𝐷)) = ((∗‘𝑋) − (∗‘𝐷)))
177176, 157eqtr3d 2797 . . . . . . . . . . . . . . 15 (𝜑 → ((∗‘𝑋) − (∗‘𝐷)) = (𝑄 / (𝑋𝐷)))
178115, 16, 158subaddd 11614 . . . . . . . . . . . . . . 15 (𝜑 → (((∗‘𝑋) − (∗‘𝐷)) = (𝑄 / (𝑋𝐷)) ↔ ((∗‘𝐷) + (𝑄 / (𝑋𝐷))) = (∗‘𝑋)))
179177, 178mpbid 235 . . . . . . . . . . . . . 14 (𝜑 → ((∗‘𝐷) + (𝑄 / (𝑋𝐷))) = (∗‘𝑋))
180179oveq1d 7429 . . . . . . . . . . . . 13 (𝜑 → (((∗‘𝐷) + (𝑄 / (𝑋𝐷))) · ((𝑋𝐷) · (𝑋𝐴))) = ((∗‘𝑋) · ((𝑋𝐷) · (𝑋𝐴))))
181160, 175, 1803eqtr3rd 2804 . . . . . . . . . . . 12 (𝜑 → ((∗‘𝑋) · ((𝑋𝐷) · (𝑋𝐴))) = ((((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + ((∗‘𝐷) · (𝐷 · 𝐴))) + ((𝑄 · 𝑋) − (𝑄 · 𝐴))))
18216, 107mulcld 11256 . . . . . . . . . . . . . 14 (𝜑 → ((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) ∈ ℂ)
183182, 51addcld 11255 . . . . . . . . . . . . 13 (𝜑 → (((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + ((∗‘𝐷) · (𝐷 · 𝐴))) ∈ ℂ)
18413, 1mulcld 11256 . . . . . . . . . . . . 13 (𝜑 → (𝑄 · 𝑋) ∈ ℂ)
185183, 184, 52addsubassd 11616 . . . . . . . . . . . 12 (𝜑 → (((((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + ((∗‘𝐷) · (𝐷 · 𝐴))) + (𝑄 · 𝑋)) − (𝑄 · 𝐴)) = ((((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + ((∗‘𝐷) · (𝐷 · 𝐴))) + ((𝑄 · 𝑋) − (𝑄 · 𝐴))))
186182, 51, 184add32d 11465 . . . . . . . . . . . . 13 (𝜑 → ((((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + ((∗‘𝐷) · (𝐷 · 𝐴))) + (𝑄 · 𝑋)) = ((((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + (𝑄 · 𝑋)) + ((∗‘𝐷) · (𝐷 · 𝐴))))
187186oveq1d 7429 . . . . . . . . . . . 12 (𝜑 → (((((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + ((∗‘𝐷) · (𝐷 · 𝐴))) + (𝑄 · 𝑋)) − (𝑄 · 𝐴)) = (((((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + (𝑄 · 𝑋)) + ((∗‘𝐷) · (𝐷 · 𝐴))) − (𝑄 · 𝐴)))
188181, 185, 1873eqtr2d 2801 . . . . . . . . . . 11 (𝜑 → ((∗‘𝑋) · ((𝑋𝐷) · (𝑋𝐴))) = (((((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + (𝑄 · 𝑋)) + ((∗‘𝐷) · (𝐷 · 𝐴))) − (𝑄 · 𝐴)))
189182, 184addcld 11255 . . . . . . . . . . . 12 (𝜑 → (((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + (𝑄 · 𝑋)) ∈ ℂ)
190189, 51, 52addsubassd 11616 . . . . . . . . . . 11 (𝜑 → (((((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + (𝑄 · 𝑋)) + ((∗‘𝐷) · (𝐷 · 𝐴))) − (𝑄 · 𝐴)) = ((((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + (𝑄 · 𝑋)) + (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))))
19120, 1mulcld 11256 . . . . . . . . . . . . . 14 (𝜑 → (((∗‘𝐷) · (𝐷 + 𝐴)) · 𝑋) ∈ ℂ)
19264, 191, 184subadd23d 11618 . . . . . . . . . . . . 13 (𝜑 → ((((∗‘𝐷) · (𝑋↑2)) − (((∗‘𝐷) · (𝐷 + 𝐴)) · 𝑋)) + (𝑄 · 𝑋)) = (((∗‘𝐷) · (𝑋↑2)) + ((𝑄 · 𝑋) − (((∗‘𝐷) · (𝐷 + 𝐴)) · 𝑋))))
19316, 2, 103subdid 11697 . . . . . . . . . . . . . . 15 (𝜑 → ((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) = (((∗‘𝐷) · (𝑋↑2)) − ((∗‘𝐷) · (𝑋 · (𝐷 + 𝐴)))))
19416, 1, 19mul12d 11446 . . . . . . . . . . . . . . . . 17 (𝜑 → ((∗‘𝐷) · (𝑋 · (𝐷 + 𝐴))) = (𝑋 · ((∗‘𝐷) · (𝐷 + 𝐴))))
1951, 20mulcomd 11257 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝑋 · ((∗‘𝐷) · (𝐷 + 𝐴))) = (((∗‘𝐷) · (𝐷 + 𝐴)) · 𝑋))
196194, 195eqtrd 2795 . . . . . . . . . . . . . . . 16 (𝜑 → ((∗‘𝐷) · (𝑋 · (𝐷 + 𝐴))) = (((∗‘𝐷) · (𝐷 + 𝐴)) · 𝑋))
197196oveq2d 7430 . . . . . . . . . . . . . . 15 (𝜑 → (((∗‘𝐷) · (𝑋↑2)) − ((∗‘𝐷) · (𝑋 · (𝐷 + 𝐴)))) = (((∗‘𝐷) · (𝑋↑2)) − (((∗‘𝐷) · (𝐷 + 𝐴)) · 𝑋)))
198193, 197eqtrd 2795 . . . . . . . . . . . . . 14 (𝜑 → ((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) = (((∗‘𝐷) · (𝑋↑2)) − (((∗‘𝐷) · (𝐷 + 𝐴)) · 𝑋)))
199198oveq1d 7429 . . . . . . . . . . . . 13 (𝜑 → (((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + (𝑄 · 𝑋)) = ((((∗‘𝐷) · (𝑋↑2)) − (((∗‘𝐷) · (𝐷 + 𝐴)) · 𝑋)) + (𝑄 · 𝑋)))
20013, 20, 1subdird 11698 . . . . . . . . . . . . . 14 (𝜑 → ((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) · 𝑋) = ((𝑄 · 𝑋) − (((∗‘𝐷) · (𝐷 + 𝐴)) · 𝑋)))
201200oveq2d 7430 . . . . . . . . . . . . 13 (𝜑 → (((∗‘𝐷) · (𝑋↑2)) + ((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) · 𝑋)) = (((∗‘𝐷) · (𝑋↑2)) + ((𝑄 · 𝑋) − (((∗‘𝐷) · (𝐷 + 𝐴)) · 𝑋))))
202192, 199, 2013eqtr4d 2805 . . . . . . . . . . . 12 (𝜑 → (((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + (𝑄 · 𝑋)) = (((∗‘𝐷) · (𝑋↑2)) + ((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) · 𝑋)))
203202oveq1d 7429 . . . . . . . . . . 11 (𝜑 → ((((∗‘𝐷) · ((𝑋↑2) − (𝑋 · (𝐷 + 𝐴)))) + (𝑄 · 𝑋)) + (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))) = ((((∗‘𝐷) · (𝑋↑2)) + ((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) · 𝑋)) + (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))))
204188, 190, 2033eqtrd 2799 . . . . . . . . . 10 (𝜑 → ((∗‘𝑋) · ((𝑋𝐷) · (𝑋𝐴))) = ((((∗‘𝐷) · (𝑋↑2)) + ((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) · 𝑋)) + (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))))
20572, 142, 2043eqtr3d 2803 . . . . . . . . 9 (𝜑 → ((((∗‘𝐴) · (𝑋↑2)) + ((𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴))) · 𝑋)) + (((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷))) = ((((∗‘𝐷) · (𝑋↑2)) + ((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) · 𝑋)) + (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))))
206140, 127eqeltrrd 2861 . . . . . . . . . 10 (𝜑 → (((∗‘𝐴) · (𝑋↑2)) + ((𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴))) · 𝑋)) ∈ ℂ)
207202, 189eqeltrrd 2861 . . . . . . . . . 10 (𝜑 → (((∗‘𝐷) · (𝑋↑2)) + ((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) · 𝑋)) ∈ ℂ)
208206, 50, 207, 53addsubeq4d 11647 . . . . . . . . 9 (𝜑 → (((((∗‘𝐴) · (𝑋↑2)) + ((𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴))) · 𝑋)) + (((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷))) = ((((∗‘𝐷) · (𝑋↑2)) + ((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) · 𝑋)) + (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))) ↔ ((((∗‘𝐷) · (𝑋↑2)) + ((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) · 𝑋)) − (((∗‘𝐴) · (𝑋↑2)) + ((𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴))) · 𝑋))) = ((((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷)) − (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴)))))
209205, 208mpbid 235 . . . . . . . 8 (𝜑 → ((((∗‘𝐷) · (𝑋↑2)) + ((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) · 𝑋)) − (((∗‘𝐴) · (𝑋↑2)) + ((𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴))) · 𝑋))) = ((((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷)) − (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))))
21063, 68, 2093eqtr2d 2801 . . . . . . 7 (𝜑 → ((((∗‘𝐷) − (∗‘𝐴)) · (𝑋↑2)) + (((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) − (𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴)))) · 𝑋)) = ((((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷)) − (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))))
21159, 60, 210mvlraddd 11651 . . . . . 6 (𝜑 → (((∗‘𝐷) − (∗‘𝐴)) · (𝑋↑2)) = (((((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷)) − (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))) − (((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) − (𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴)))) · 𝑋)))
21235, 2, 42, 211mvllmuld 12074 . . . . 5 (𝜑 → (𝑋↑2) = ((((((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷)) − (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))) − (((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) − (𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴)))) · 𝑋)) / ((∗‘𝐷) − (∗‘𝐴))))
21354, 60, 35, 42divsubdird 12057 . . . . . 6 (𝜑 → ((((((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷)) − (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))) − (((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) − (𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴)))) · 𝑋)) / ((∗‘𝐷) − (∗‘𝐴))) = ((((((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷)) − (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))) / ((∗‘𝐷) − (∗‘𝐴))) − ((((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) − (𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴)))) · 𝑋) / ((∗‘𝐷) − (∗‘𝐴)))))
21446eqcomi 2769 . . . . . . . . 9 -(((((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷)) − (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))) / ((∗‘𝐷) − (∗‘𝐴))) = 𝑁
215214a1i 11 . . . . . . . 8 (𝜑 → -(((((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷)) − (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))) / ((∗‘𝐷) − (∗‘𝐴))) = 𝑁)
21655, 215negcon1ad 11591 . . . . . . 7 (𝜑 → -𝑁 = (((((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷)) − (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))) / ((∗‘𝐷) − (∗‘𝐴))))
217216oveq1d 7429 . . . . . 6 (𝜑 → (-𝑁 − ((((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) − (𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴)))) · 𝑋) / ((∗‘𝐷) − (∗‘𝐴)))) = ((((((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷)) − (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))) / ((∗‘𝐷) − (∗‘𝐴))) − ((((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) − (𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴)))) · 𝑋) / ((∗‘𝐷) − (∗‘𝐴)))))
218213, 217eqtr4d 2798 . . . . 5 (𝜑 → ((((((∗‘𝐴) · (𝐷 · 𝐴)) − (𝑃 · 𝐷)) − (((∗‘𝐷) · (𝐷 · 𝐴)) − (𝑄 · 𝐴))) − (((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) − (𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴)))) · 𝑋)) / ((∗‘𝐷) − (∗‘𝐴))) = (-𝑁 − ((((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) − (𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴)))) · 𝑋) / ((∗‘𝐷) − (∗‘𝐴)))))
21934, 1, 35, 42div23d 12055 . . . . . . 7 (𝜑 → ((((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) − (𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴)))) · 𝑋) / ((∗‘𝐷) − (∗‘𝐴))) = ((((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) − (𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴)))) / ((∗‘𝐷) − (∗‘𝐴))) · 𝑋))
2203oveq1i 7424 . . . . . . 7 (𝑀 · 𝑋) = ((((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) − (𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴)))) / ((∗‘𝐷) − (∗‘𝐴))) · 𝑋)
221219, 220eqtr4di 2813 . . . . . 6 (𝜑 → ((((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) − (𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴)))) · 𝑋) / ((∗‘𝐷) − (∗‘𝐴))) = (𝑀 · 𝑋))
222221oveq2d 7430 . . . . 5 (𝜑 → (-𝑁 − ((((𝑄 − ((∗‘𝐷) · (𝐷 + 𝐴))) − (𝑃 − ((∗‘𝐴) · (𝐷 + 𝐴)))) · 𝑋) / ((∗‘𝐷) − (∗‘𝐴)))) = (-𝑁 − (𝑀 · 𝑋)))
223212, 218, 2223eqtrd 2799 . . . 4 (𝜑 → (𝑋↑2) = (-𝑁 − (𝑀 · 𝑋)))
224216, 55eqeltrd 2860 . . . . 5 (𝜑 → -𝑁 ∈ ℂ)
2252, 45, 224addlsub 11657 . . . 4 (𝜑 → (((𝑋↑2) + (𝑀 · 𝑋)) = -𝑁 ↔ (𝑋↑2) = (-𝑁 − (𝑀 · 𝑋))))
226223, 225mpbird 260 . . 3 (𝜑 → ((𝑋↑2) + (𝑀 · 𝑋)) = -𝑁)
2272, 45addcld 11255 . . . 4 (𝜑 → ((𝑋↑2) + (𝑀 · 𝑋)) ∈ ℂ)
228 addeq0 11664 . . . 4 ((((𝑋↑2) + (𝑀 · 𝑋)) ∈ ℂ ∧ 𝑁 ∈ ℂ) → ((((𝑋↑2) + (𝑀 · 𝑋)) + 𝑁) = 0 ↔ ((𝑋↑2) + (𝑀 · 𝑋)) = -𝑁))
229227, 57, 228syl2anc 596 . . 3 (𝜑 → ((((𝑋↑2) + (𝑀 · 𝑋)) + 𝑁) = 0 ↔ ((𝑋↑2) + (𝑀 · 𝑋)) = -𝑁))
230226, 229mpbird 260 . 2 (𝜑 → (((𝑋↑2) + (𝑀 · 𝑋)) + 𝑁) = 0)
23158, 230eqtr3d 2797 1 (𝜑 → ((𝑋↑2) + ((𝑀 · 𝑋) + 𝑁)) = 0)
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  wi 4  wb 209   = wceq 1570  wcel 2145  wne 2955  wss 3899  cfv 6533  (class class class)co 7414  cc 11125  0cc0 11127   + caddc 11130   · cmul 11132  cmin 11468  -cneg 11469   / cdiv 11898  2c2 12322  cexp 14128  ccj 15186  abscabs 15324
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 2732  ax-sep 5251  ax-nul 5263  ax-pow 5330  ax-pr 5398  ax-un 7737  ax-cnex 11183  ax-resscn 11184  ax-1cn 11185  ax-icn 11186  ax-addcl 11187  ax-addrcl 11188  ax-mulcl 11189  ax-mulrcl 11190  ax-mulcom 11191  ax-addass 11192  ax-mulass 11193  ax-distr 11194  ax-i2m1 11195  ax-1ne0 11196  ax-1rid 11197  ax-rnegex 11198  ax-rrecex 11199  ax-cnre 11200  ax-pre-lttri 11201  ax-pre-lttrn 11202  ax-pre-ltadd 11203  ax-pre-mulgt0 11204  ax-pre-sup 11205
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 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-nel 3062  df-ral 3077  df-rex 3087  df-rmo 3365  df-reu 3366  df-rab 3413  df-v 3452  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 5550  df-eprel 5555  df-po 5563  df-so 5564  df-fr 5608  df-we 5610  df-xp 5661  df-rel 5662  df-cnv 5663  df-co 5664  df-dm 5665  df-rn 5666  df-res 5667  df-ima 5668  df-pred 6299  df-ord 6360  df-on 6361  df-lim 6362  df-suc 6363  df-iota 6489  df-fun 6535  df-fn 6536  df-f 6537  df-f1 6538  df-fo 6539  df-f1o 6540  df-fv 6541  df-riota 7371  df-ov 7417  df-oprab 7418  df-mpo 7419  df-om 7864  df-2nd 7988  df-frecs 8281  df-wrecs 8312  df-recs 8361  df-rdg 8400  df-er 8699  df-en 8956  df-dom 8957  df-sdom 8958  df-sup 9415  df-pnf 11272  df-mnf 11273  df-xr 11274  df-ltxr 11275  df-le 11276  df-sub 11470  df-neg 11471  df-div 11899  df-nn 12261  df-2 12330  df-3 12331  df-n0 12532  df-z 12619  df-uz 12891  df-rp 13046  df-seq 14069  df-exp 14129  df-cj 15189  df-re 15190  df-im 15191  df-sqrt 15325  df-abs 15326
This theorem is used by:  constrrtcc  34248
  Copyright terms: Public domain W3C validator