Proof of Theorem quadfac
| Step | Hyp | Ref
| Expression |
| 1 | | quadfac.x |
. . . 4
⊢ (𝜑 → 𝑋 ∈ ℂ) |
| 2 | | quadfac.m |
. . . 4
⊢ (𝜑 → 𝑀 ∈ ℂ) |
| 3 | 1, 2 | subcld 11565 |
. . 3
⊢ (𝜑 → (𝑋 − 𝑀) ∈ ℂ) |
| 4 | | quadfac.n |
. . . 4
⊢ (𝜑 → 𝑁 ∈ ℂ) |
| 5 | 1, 4 | subcld 11565 |
. . 3
⊢ (𝜑 → (𝑋 − 𝑁) ∈ ℂ) |
| 6 | 3, 5 | mul0ord 11858 |
. 2
⊢ (𝜑 → (((𝑋 − 𝑀) · (𝑋 − 𝑁)) = 0 ↔ ((𝑋 − 𝑀) = 0 ∨ (𝑋 − 𝑁) = 0))) |
| 7 | | olc 881 |
. . . . . 6
⊢ ((((𝑋↑2) + (𝐶 / 𝐴)) + ((𝐵 / 𝐴) · 𝑋)) = 0 → (𝐴 = 0 ∨ (((𝑋↑2) + (𝐶 / 𝐴)) + ((𝐵 / 𝐴) · 𝑋)) = 0)) |
| 8 | | quadfac.z |
. . . . . . . . . 10
⊢ (𝜑 → 𝐴 ≠ 0) |
| 9 | 8 | neneqd 2969 |
. . . . . . . . 9
⊢ (𝜑 → ¬ 𝐴 = 0) |
| 10 | | id 23 |
. . . . . . . . . 10
⊢ (𝐴 = 0 → 𝐴 = 0) |
| 11 | | falim 1584 |
. . . . . . . . . 10
⊢ (⊥
→ 𝐴 =
0) |
| 12 | 10, 11 | pm5.21ni 380 |
. . . . . . . . 9
⊢ (¬
𝐴 = 0 → (𝐴 = 0 ↔
⊥)) |
| 13 | 9, 12 | syl 18 |
. . . . . . . 8
⊢ (𝜑 → (𝐴 = 0 ↔ ⊥)) |
| 14 | 13 | orbi1d 929 |
. . . . . . 7
⊢ (𝜑 → ((𝐴 = 0 ∨ (((𝑋↑2) + (𝐶 / 𝐴)) + ((𝐵 / 𝐴) · 𝑋)) = 0) ↔ (⊥ ∨ (((𝑋↑2) + (𝐶 / 𝐴)) + ((𝐵 / 𝐴) · 𝑋)) = 0))) |
| 15 | | falim 1584 |
. . . . . . . . 9
⊢ (⊥
→ (((𝑋↑2) +
(𝐶 / 𝐴)) + ((𝐵 / 𝐴) · 𝑋)) = 0) |
| 16 | | id 23 |
. . . . . . . . 9
⊢ ((((𝑋↑2) + (𝐶 / 𝐴)) + ((𝐵 / 𝐴) · 𝑋)) = 0 → (((𝑋↑2) + (𝐶 / 𝐴)) + ((𝐵 / 𝐴) · 𝑋)) = 0) |
| 17 | 15, 16 | jaoi 870 |
. . . . . . . 8
⊢ ((⊥
∨ (((𝑋↑2) + (𝐶 / 𝐴)) + ((𝐵 / 𝐴) · 𝑋)) = 0) → (((𝑋↑2) + (𝐶 / 𝐴)) + ((𝐵 / 𝐴) · 𝑋)) = 0) |
| 18 | 17 | a1i 11 |
. . . . . . 7
⊢ (𝜑 → ((⊥ ∨ (((𝑋↑2) + (𝐶 / 𝐴)) + ((𝐵 / 𝐴) · 𝑋)) = 0) → (((𝑋↑2) + (𝐶 / 𝐴)) + ((𝐵 / 𝐴) · 𝑋)) = 0)) |
| 19 | 14, 18 | sylbid 243 |
. . . . . 6
⊢ (𝜑 → ((𝐴 = 0 ∨ (((𝑋↑2) + (𝐶 / 𝐴)) + ((𝐵 / 𝐴) · 𝑋)) = 0) → (((𝑋↑2) + (𝐶 / 𝐴)) + ((𝐵 / 𝐴) · 𝑋)) = 0)) |
| 20 | 7, 19 | impbid2 229 |
. . . . 5
⊢ (𝜑 → ((((𝑋↑2) + (𝐶 / 𝐴)) + ((𝐵 / 𝐴) · 𝑋)) = 0 ↔ (𝐴 = 0 ∨ (((𝑋↑2) + (𝐶 / 𝐴)) + ((𝐵 / 𝐴) · 𝑋)) = 0))) |
| 21 | 1, 2, 1, 4 | mulsubd 11669 |
. . . . . . . 8
⊢ (𝜑 → ((𝑋 − 𝑀) · (𝑋 − 𝑁)) = (((𝑋 · 𝑋) + (𝑁 · 𝑀)) − ((𝑋 · 𝑁) + (𝑋 · 𝑀)))) |
| 22 | 1 | sqvald 14175 |
. . . . . . . . . . 11
⊢ (𝜑 → (𝑋↑2) = (𝑋 · 𝑋)) |
| 23 | 22 | eqcomd 2775 |
. . . . . . . . . 10
⊢ (𝜑 → (𝑋 · 𝑋) = (𝑋↑2)) |
| 24 | 2, 4 | mulcomd 11226 |
. . . . . . . . . . 11
⊢ (𝜑 → (𝑀 · 𝑁) = (𝑁 · 𝑀)) |
| 25 | | quadfac.mtn |
. . . . . . . . . . 11
⊢ (𝜑 → (𝑀 · 𝑁) = (𝐶 / 𝐴)) |
| 26 | 24, 25 | eqtr3d 2806 |
. . . . . . . . . 10
⊢ (𝜑 → (𝑁 · 𝑀) = (𝐶 / 𝐴)) |
| 27 | 23, 26 | oveq12d 7426 |
. . . . . . . . 9
⊢ (𝜑 → ((𝑋 · 𝑋) + (𝑁 · 𝑀)) = ((𝑋↑2) + (𝐶 / 𝐴))) |
| 28 | 4, 2 | addcomd 11408 |
. . . . . . . . . . 11
⊢ (𝜑 → (𝑁 + 𝑀) = (𝑀 + 𝑁)) |
| 29 | 28 | oveq1d 7423 |
. . . . . . . . . 10
⊢ (𝜑 → ((𝑁 + 𝑀) · 𝑋) = ((𝑀 + 𝑁) · 𝑋)) |
| 30 | 4, 1 | mulcomd 11226 |
. . . . . . . . . . . 12
⊢ (𝜑 → (𝑁 · 𝑋) = (𝑋 · 𝑁)) |
| 31 | 2, 1 | mulcomd 11226 |
. . . . . . . . . . . 12
⊢ (𝜑 → (𝑀 · 𝑋) = (𝑋 · 𝑀)) |
| 32 | 30, 31 | oveq12d 7426 |
. . . . . . . . . . 11
⊢ (𝜑 → ((𝑁 · 𝑋) + (𝑀 · 𝑋)) = ((𝑋 · 𝑁) + (𝑋 · 𝑀))) |
| 33 | 4, 1, 2, 32 | joinlmuladdmuld 11232 |
. . . . . . . . . 10
⊢ (𝜑 → ((𝑁 + 𝑀) · 𝑋) = ((𝑋 · 𝑁) + (𝑋 · 𝑀))) |
| 34 | | quadfac.mpn |
. . . . . . . . . . 11
⊢ (𝜑 → (𝑀 + 𝑁) = -(𝐵 / 𝐴)) |
| 35 | 34 | oveq1d 7423 |
. . . . . . . . . 10
⊢ (𝜑 → ((𝑀 + 𝑁) · 𝑋) = (-(𝐵 / 𝐴) · 𝑋)) |
| 36 | 29, 33, 35 | 3eqtr3d 2812 |
. . . . . . . . 9
⊢ (𝜑 → ((𝑋 · 𝑁) + (𝑋 · 𝑀)) = (-(𝐵 / 𝐴) · 𝑋)) |
| 37 | 27, 36 | oveq12d 7426 |
. . . . . . . 8
⊢ (𝜑 → (((𝑋 · 𝑋) + (𝑁 · 𝑀)) − ((𝑋 · 𝑁) + (𝑋 · 𝑀))) = (((𝑋↑2) + (𝐶 / 𝐴)) − (-(𝐵 / 𝐴) · 𝑋))) |
| 38 | 21, 37 | eqtrd 2804 |
. . . . . . 7
⊢ (𝜑 → ((𝑋 − 𝑀) · (𝑋 − 𝑁)) = (((𝑋↑2) + (𝐶 / 𝐴)) − (-(𝐵 / 𝐴) · 𝑋))) |
| 39 | 38 | eqeq1d 2771 |
. . . . . 6
⊢ (𝜑 → (((𝑋 − 𝑀) · (𝑋 − 𝑁)) = 0 ↔ (((𝑋↑2) + (𝐶 / 𝐴)) − (-(𝐵 / 𝐴) · 𝑋)) = 0)) |
| 40 | | quadfac.b |
. . . . . . . . . 10
⊢ (𝜑 → 𝐵 ∈ ℂ) |
| 41 | | quadfac.a |
. . . . . . . . . 10
⊢ (𝜑 → 𝐴 ∈ ℂ) |
| 42 | 40, 41, 8 | divcld 11987 |
. . . . . . . . 9
⊢ (𝜑 → (𝐵 / 𝐴) ∈ ℂ) |
| 43 | 42, 1 | mulneg1d 11663 |
. . . . . . . 8
⊢ (𝜑 → (-(𝐵 / 𝐴) · 𝑋) = -((𝐵 / 𝐴) · 𝑋)) |
| 44 | 43 | oveq2d 7424 |
. . . . . . 7
⊢ (𝜑 → (((𝑋↑2) + (𝐶 / 𝐴)) − (-(𝐵 / 𝐴) · 𝑋)) = (((𝑋↑2) + (𝐶 / 𝐴)) − -((𝐵 / 𝐴) · 𝑋))) |
| 45 | 44 | eqeq1d 2771 |
. . . . . 6
⊢ (𝜑 → ((((𝑋↑2) + (𝐶 / 𝐴)) − (-(𝐵 / 𝐴) · 𝑋)) = 0 ↔ (((𝑋↑2) + (𝐶 / 𝐴)) − -((𝐵 / 𝐴) · 𝑋)) = 0)) |
| 46 | 1 | sqcld 14176 |
. . . . . . . . 9
⊢ (𝜑 → (𝑋↑2) ∈ ℂ) |
| 47 | | quadfac.c |
. . . . . . . . . 10
⊢ (𝜑 → 𝐶 ∈ ℂ) |
| 48 | 47, 41, 8 | divcld 11987 |
. . . . . . . . 9
⊢ (𝜑 → (𝐶 / 𝐴) ∈ ℂ) |
| 49 | 46, 48 | addcld 11224 |
. . . . . . . 8
⊢ (𝜑 → ((𝑋↑2) + (𝐶 / 𝐴)) ∈ ℂ) |
| 50 | 40, 41, 8 | divcld 11987 |
. . . . . . . . 9
⊢ (𝜑 → (𝐵 / 𝐴) ∈ ℂ) |
| 51 | 50, 1 | mulcld 11225 |
. . . . . . . 8
⊢ (𝜑 → ((𝐵 / 𝐴) · 𝑋) ∈ ℂ) |
| 52 | 49, 51 | subnegd 11572 |
. . . . . . 7
⊢ (𝜑 → (((𝑋↑2) + (𝐶 / 𝐴)) − -((𝐵 / 𝐴) · 𝑋)) = (((𝑋↑2) + (𝐶 / 𝐴)) + ((𝐵 / 𝐴) · 𝑋))) |
| 53 | 52 | eqeq1d 2771 |
. . . . . 6
⊢ (𝜑 → ((((𝑋↑2) + (𝐶 / 𝐴)) − -((𝐵 / 𝐴) · 𝑋)) = 0 ↔ (((𝑋↑2) + (𝐶 / 𝐴)) + ((𝐵 / 𝐴) · 𝑋)) = 0)) |
| 54 | 39, 45, 53 | 3bitrd 308 |
. . . . 5
⊢ (𝜑 → (((𝑋 − 𝑀) · (𝑋 − 𝑁)) = 0 ↔ (((𝑋↑2) + (𝐶 / 𝐴)) + ((𝐵 / 𝐴) · 𝑋)) = 0)) |
| 55 | 1 | sqcld 14176 |
. . . . . . . 8
⊢ (𝜑 → (𝑋↑2) ∈ ℂ) |
| 56 | 47, 41, 8 | divcld 11987 |
. . . . . . . 8
⊢ (𝜑 → (𝐶 / 𝐴) ∈ ℂ) |
| 57 | 55, 56 | addcld 11224 |
. . . . . . 7
⊢ (𝜑 → ((𝑋↑2) + (𝐶 / 𝐴)) ∈ ℂ) |
| 58 | 40, 41, 8 | divcld 11987 |
. . . . . . . 8
⊢ (𝜑 → (𝐵 / 𝐴) ∈ ℂ) |
| 59 | 58, 1 | mulcld 11225 |
. . . . . . 7
⊢ (𝜑 → ((𝐵 / 𝐴) · 𝑋) ∈ ℂ) |
| 60 | 57, 59 | addcld 11224 |
. . . . . 6
⊢ (𝜑 → (((𝑋↑2) + (𝐶 / 𝐴)) + ((𝐵 / 𝐴) · 𝑋)) ∈ ℂ) |
| 61 | 41, 60 | mul0ord 11858 |
. . . . 5
⊢ (𝜑 → ((𝐴 · (((𝑋↑2) + (𝐶 / 𝐴)) + ((𝐵 / 𝐴) · 𝑋))) = 0 ↔ (𝐴 = 0 ∨ (((𝑋↑2) + (𝐶 / 𝐴)) + ((𝐵 / 𝐴) · 𝑋)) = 0))) |
| 62 | 20, 54, 61 | 3bitr4d 314 |
. . . 4
⊢ (𝜑 → (((𝑋 − 𝑀) · (𝑋 − 𝑁)) = 0 ↔ (𝐴 · (((𝑋↑2) + (𝐶 / 𝐴)) + ((𝐵 / 𝐴) · 𝑋))) = 0)) |
| 63 | 1 | sqcld 14176 |
. . . . . . 7
⊢ (𝜑 → (𝑋↑2) ∈ ℂ) |
| 64 | 47, 41, 8 | divcld 11987 |
. . . . . . 7
⊢ (𝜑 → (𝐶 / 𝐴) ∈ ℂ) |
| 65 | 63, 64 | addcld 11224 |
. . . . . 6
⊢ (𝜑 → ((𝑋↑2) + (𝐶 / 𝐴)) ∈ ℂ) |
| 66 | 40, 41, 8 | divcld 11987 |
. . . . . . 7
⊢ (𝜑 → (𝐵 / 𝐴) ∈ ℂ) |
| 67 | 66, 1 | mulcld 11225 |
. . . . . 6
⊢ (𝜑 → ((𝐵 / 𝐴) · 𝑋) ∈ ℂ) |
| 68 | 41, 65, 67 | adddid 11229 |
. . . . 5
⊢ (𝜑 → (𝐴 · (((𝑋↑2) + (𝐶 / 𝐴)) + ((𝐵 / 𝐴) · 𝑋))) = ((𝐴 · ((𝑋↑2) + (𝐶 / 𝐴))) + (𝐴 · ((𝐵 / 𝐴) · 𝑋)))) |
| 69 | 68 | eqeq1d 2771 |
. . . 4
⊢ (𝜑 → ((𝐴 · (((𝑋↑2) + (𝐶 / 𝐴)) + ((𝐵 / 𝐴) · 𝑋))) = 0 ↔ ((𝐴 · ((𝑋↑2) + (𝐶 / 𝐴))) + (𝐴 · ((𝐵 / 𝐴) · 𝑋))) = 0)) |
| 70 | 1 | sqcld 14176 |
. . . . . . . 8
⊢ (𝜑 → (𝑋↑2) ∈ ℂ) |
| 71 | 47, 41, 8 | divcld 11987 |
. . . . . . . 8
⊢ (𝜑 → (𝐶 / 𝐴) ∈ ℂ) |
| 72 | 41, 70, 71 | adddid 11229 |
. . . . . . 7
⊢ (𝜑 → (𝐴 · ((𝑋↑2) + (𝐶 / 𝐴))) = ((𝐴 · (𝑋↑2)) + (𝐴 · (𝐶 / 𝐴)))) |
| 73 | 47, 41, 8 | divcan2d 11989 |
. . . . . . . 8
⊢ (𝜑 → (𝐴 · (𝐶 / 𝐴)) = 𝐶) |
| 74 | 73 | oveq2d 7424 |
. . . . . . 7
⊢ (𝜑 → ((𝐴 · (𝑋↑2)) + (𝐴 · (𝐶 / 𝐴))) = ((𝐴 · (𝑋↑2)) + 𝐶)) |
| 75 | 72, 74 | eqtrd 2804 |
. . . . . 6
⊢ (𝜑 → (𝐴 · ((𝑋↑2) + (𝐶 / 𝐴))) = ((𝐴 · (𝑋↑2)) + 𝐶)) |
| 76 | 40, 41, 8 | divcld 11987 |
. . . . . . . 8
⊢ (𝜑 → (𝐵 / 𝐴) ∈ ℂ) |
| 77 | 41, 76, 1 | mulassd 11228 |
. . . . . . 7
⊢ (𝜑 → ((𝐴 · (𝐵 / 𝐴)) · 𝑋) = (𝐴 · ((𝐵 / 𝐴) · 𝑋))) |
| 78 | 40, 41, 8 | divcan2d 11989 |
. . . . . . . 8
⊢ (𝜑 → (𝐴 · (𝐵 / 𝐴)) = 𝐵) |
| 79 | 78 | oveq1d 7423 |
. . . . . . 7
⊢ (𝜑 → ((𝐴 · (𝐵 / 𝐴)) · 𝑋) = (𝐵 · 𝑋)) |
| 80 | 77, 79 | eqtr3d 2806 |
. . . . . 6
⊢ (𝜑 → (𝐴 · ((𝐵 / 𝐴) · 𝑋)) = (𝐵 · 𝑋)) |
| 81 | 75, 80 | oveq12d 7426 |
. . . . 5
⊢ (𝜑 → ((𝐴 · ((𝑋↑2) + (𝐶 / 𝐴))) + (𝐴 · ((𝐵 / 𝐴) · 𝑋))) = (((𝐴 · (𝑋↑2)) + 𝐶) + (𝐵 · 𝑋))) |
| 82 | 81 | eqeq1d 2771 |
. . . 4
⊢ (𝜑 → (((𝐴 · ((𝑋↑2) + (𝐶 / 𝐴))) + (𝐴 · ((𝐵 / 𝐴) · 𝑋))) = 0 ↔ (((𝐴 · (𝑋↑2)) + 𝐶) + (𝐵 · 𝑋)) = 0)) |
| 83 | 62, 69, 82 | 3bitrd 308 |
. . 3
⊢ (𝜑 → (((𝑋 − 𝑀) · (𝑋 − 𝑁)) = 0 ↔ (((𝐴 · (𝑋↑2)) + 𝐶) + (𝐵 · 𝑋)) = 0)) |
| 84 | 1 | sqcld 14176 |
. . . . . 6
⊢ (𝜑 → (𝑋↑2) ∈ ℂ) |
| 85 | 41, 84 | mulcld 11225 |
. . . . 5
⊢ (𝜑 → (𝐴 · (𝑋↑2)) ∈ ℂ) |
| 86 | 40, 1 | mulcld 11225 |
. . . . 5
⊢ (𝜑 → (𝐵 · 𝑋) ∈ ℂ) |
| 87 | 85, 47, 86 | addassd 11227 |
. . . 4
⊢ (𝜑 → (((𝐴 · (𝑋↑2)) + 𝐶) + (𝐵 · 𝑋)) = ((𝐴 · (𝑋↑2)) + (𝐶 + (𝐵 · 𝑋)))) |
| 88 | 87 | eqeq1d 2771 |
. . 3
⊢ (𝜑 → ((((𝐴 · (𝑋↑2)) + 𝐶) + (𝐵 · 𝑋)) = 0 ↔ ((𝐴 · (𝑋↑2)) + (𝐶 + (𝐵 · 𝑋))) = 0)) |
| 89 | 40, 1 | mulcld 11225 |
. . . . . 6
⊢ (𝜑 → (𝐵 · 𝑋) ∈ ℂ) |
| 90 | 47, 89 | addcomd 11408 |
. . . . 5
⊢ (𝜑 → (𝐶 + (𝐵 · 𝑋)) = ((𝐵 · 𝑋) + 𝐶)) |
| 91 | 90 | oveq2d 7424 |
. . . 4
⊢ (𝜑 → ((𝐴 · (𝑋↑2)) + (𝐶 + (𝐵 · 𝑋))) = ((𝐴 · (𝑋↑2)) + ((𝐵 · 𝑋) + 𝐶))) |
| 92 | 91 | eqeq1d 2771 |
. . 3
⊢ (𝜑 → (((𝐴 · (𝑋↑2)) + (𝐶 + (𝐵 · 𝑋))) = 0 ↔ ((𝐴 · (𝑋↑2)) + ((𝐵 · 𝑋) + 𝐶)) = 0)) |
| 93 | 83, 88, 92 | 3bitrd 308 |
. 2
⊢ (𝜑 → (((𝑋 − 𝑀) · (𝑋 − 𝑁)) = 0 ↔ ((𝐴 · (𝑋↑2)) + ((𝐵 · 𝑋) + 𝐶)) = 0)) |
| 94 | 1, 2 | subeq0ad 11575 |
. . 3
⊢ (𝜑 → ((𝑋 − 𝑀) = 0 ↔ 𝑋 = 𝑀)) |
| 95 | 1, 4 | subeq0ad 11575 |
. . 3
⊢ (𝜑 → ((𝑋 − 𝑁) = 0 ↔ 𝑋 = 𝑁)) |
| 96 | 94, 95 | orbi12d 931 |
. 2
⊢ (𝜑 → (((𝑋 − 𝑀) = 0 ∨ (𝑋 − 𝑁) = 0) ↔ (𝑋 = 𝑀 ∨ 𝑋 = 𝑁))) |
| 97 | 6, 93, 96 | 3bitr3d 312 |
1
⊢ (𝜑 → (((𝐴 · (𝑋↑2)) + ((𝐵 · 𝑋) + 𝐶)) = 0 ↔ (𝑋 = 𝑀 ∨ 𝑋 = 𝑁))) |