Proof of Theorem smfmullem1
| Step | Hyp | Ref | Expression | 
|---|
| 1 |  | smfmullem1.h | . . . . . . . 8
⊢ (𝜑 → 𝐻 ∈ (𝑃(,)𝑅)) | 
| 2 | 1 | elioored 45562 | . . . . . . 7
⊢ (𝜑 → 𝐻 ∈ ℝ) | 
| 3 | 2 | recnd 11289 | . . . . . 6
⊢ (𝜑 → 𝐻 ∈ ℂ) | 
| 4 |  | smfmullem1.u | . . . . . . 7
⊢ (𝜑 → 𝑈 ∈ ℝ) | 
| 5 | 4 | recnd 11289 | . . . . . 6
⊢ (𝜑 → 𝑈 ∈ ℂ) | 
| 6 |  | smfmullem1.i | . . . . . . . 8
⊢ (𝜑 → 𝐼 ∈ (𝑆(,)𝑍)) | 
| 7 | 6 | elioored 45562 | . . . . . . 7
⊢ (𝜑 → 𝐼 ∈ ℝ) | 
| 8 | 7 | recnd 11289 | . . . . . 6
⊢ (𝜑 → 𝐼 ∈ ℂ) | 
| 9 |  | smfmullem1.v | . . . . . . 7
⊢ (𝜑 → 𝑉 ∈ ℝ) | 
| 10 | 9 | recnd 11289 | . . . . . 6
⊢ (𝜑 → 𝑉 ∈ ℂ) | 
| 11 | 3, 5, 8, 10 | mulsubd 11722 | . . . . 5
⊢ (𝜑 → ((𝐻 − 𝑈) · (𝐼 − 𝑉)) = (((𝐻 · 𝐼) + (𝑉 · 𝑈)) − ((𝐻 · 𝑉) + (𝐼 · 𝑈)))) | 
| 12 | 3, 5, 10 | subdird 11720 | . . . . . . 7
⊢ (𝜑 → ((𝐻 − 𝑈) · 𝑉) = ((𝐻 · 𝑉) − (𝑈 · 𝑉))) | 
| 13 | 5, 8, 10 | subdid 11719 | . . . . . . 7
⊢ (𝜑 → (𝑈 · (𝐼 − 𝑉)) = ((𝑈 · 𝐼) − (𝑈 · 𝑉))) | 
| 14 | 12, 13 | oveq12d 7449 | . . . . . 6
⊢ (𝜑 → (((𝐻 − 𝑈) · 𝑉) + (𝑈 · (𝐼 − 𝑉))) = (((𝐻 · 𝑉) − (𝑈 · 𝑉)) + ((𝑈 · 𝐼) − (𝑈 · 𝑉)))) | 
| 15 | 3, 10 | mulcld 11281 | . . . . . . . 8
⊢ (𝜑 → (𝐻 · 𝑉) ∈ ℂ) | 
| 16 | 5, 8 | mulcld 11281 | . . . . . . . 8
⊢ (𝜑 → (𝑈 · 𝐼) ∈ ℂ) | 
| 17 | 5, 10 | mulcld 11281 | . . . . . . . 8
⊢ (𝜑 → (𝑈 · 𝑉) ∈ ℂ) | 
| 18 | 15, 16, 17, 17 | addsub4d 11667 | . . . . . . 7
⊢ (𝜑 → (((𝐻 · 𝑉) + (𝑈 · 𝐼)) − ((𝑈 · 𝑉) + (𝑈 · 𝑉))) = (((𝐻 · 𝑉) − (𝑈 · 𝑉)) + ((𝑈 · 𝐼) − (𝑈 · 𝑉)))) | 
| 19 | 18 | eqcomd 2743 | . . . . . 6
⊢ (𝜑 → (((𝐻 · 𝑉) − (𝑈 · 𝑉)) + ((𝑈 · 𝐼) − (𝑈 · 𝑉))) = (((𝐻 · 𝑉) + (𝑈 · 𝐼)) − ((𝑈 · 𝑉) + (𝑈 · 𝑉)))) | 
| 20 | 5, 8 | mulcomd 11282 | . . . . . . . 8
⊢ (𝜑 → (𝑈 · 𝐼) = (𝐼 · 𝑈)) | 
| 21 | 20 | oveq2d 7447 | . . . . . . 7
⊢ (𝜑 → ((𝐻 · 𝑉) + (𝑈 · 𝐼)) = ((𝐻 · 𝑉) + (𝐼 · 𝑈))) | 
| 22 | 21 | oveq1d 7446 | . . . . . 6
⊢ (𝜑 → (((𝐻 · 𝑉) + (𝑈 · 𝐼)) − ((𝑈 · 𝑉) + (𝑈 · 𝑉))) = (((𝐻 · 𝑉) + (𝐼 · 𝑈)) − ((𝑈 · 𝑉) + (𝑈 · 𝑉)))) | 
| 23 | 14, 19, 22 | 3eqtrd 2781 | . . . . 5
⊢ (𝜑 → (((𝐻 − 𝑈) · 𝑉) + (𝑈 · (𝐼 − 𝑉))) = (((𝐻 · 𝑉) + (𝐼 · 𝑈)) − ((𝑈 · 𝑉) + (𝑈 · 𝑉)))) | 
| 24 | 11, 23 | oveq12d 7449 | . . . 4
⊢ (𝜑 → (((𝐻 − 𝑈) · (𝐼 − 𝑉)) + (((𝐻 − 𝑈) · 𝑉) + (𝑈 · (𝐼 − 𝑉)))) = ((((𝐻 · 𝐼) + (𝑉 · 𝑈)) − ((𝐻 · 𝑉) + (𝐼 · 𝑈))) + (((𝐻 · 𝑉) + (𝐼 · 𝑈)) − ((𝑈 · 𝑉) + (𝑈 · 𝑉))))) | 
| 25 | 3, 8 | mulcld 11281 | . . . . . . . . . 10
⊢ (𝜑 → (𝐻 · 𝐼) ∈ ℂ) | 
| 26 | 10, 5 | mulcld 11281 | . . . . . . . . . 10
⊢ (𝜑 → (𝑉 · 𝑈) ∈ ℂ) | 
| 27 | 25, 26 | addcld 11280 | . . . . . . . . 9
⊢ (𝜑 → ((𝐻 · 𝐼) + (𝑉 · 𝑈)) ∈ ℂ) | 
| 28 | 8, 5 | mulcld 11281 | . . . . . . . . . 10
⊢ (𝜑 → (𝐼 · 𝑈) ∈ ℂ) | 
| 29 | 15, 28 | addcld 11280 | . . . . . . . . 9
⊢ (𝜑 → ((𝐻 · 𝑉) + (𝐼 · 𝑈)) ∈ ℂ) | 
| 30 | 27, 29 | npcand 11624 | . . . . . . . 8
⊢ (𝜑 → ((((𝐻 · 𝐼) + (𝑉 · 𝑈)) − ((𝐻 · 𝑉) + (𝐼 · 𝑈))) + ((𝐻 · 𝑉) + (𝐼 · 𝑈))) = ((𝐻 · 𝐼) + (𝑉 · 𝑈))) | 
| 31 | 10, 5 | mulcomd 11282 | . . . . . . . . 9
⊢ (𝜑 → (𝑉 · 𝑈) = (𝑈 · 𝑉)) | 
| 32 | 31 | oveq2d 7447 | . . . . . . . 8
⊢ (𝜑 → ((𝐻 · 𝐼) + (𝑉 · 𝑈)) = ((𝐻 · 𝐼) + (𝑈 · 𝑉))) | 
| 33 | 30, 32 | eqtrd 2777 | . . . . . . 7
⊢ (𝜑 → ((((𝐻 · 𝐼) + (𝑉 · 𝑈)) − ((𝐻 · 𝑉) + (𝐼 · 𝑈))) + ((𝐻 · 𝑉) + (𝐼 · 𝑈))) = ((𝐻 · 𝐼) + (𝑈 · 𝑉))) | 
| 34 | 33 | eqcomd 2743 | . . . . . 6
⊢ (𝜑 → ((𝐻 · 𝐼) + (𝑈 · 𝑉)) = ((((𝐻 · 𝐼) + (𝑉 · 𝑈)) − ((𝐻 · 𝑉) + (𝐼 · 𝑈))) + ((𝐻 · 𝑉) + (𝐼 · 𝑈)))) | 
| 35 | 34 | oveq1d 7446 | . . . . 5
⊢ (𝜑 → (((𝐻 · 𝐼) + (𝑈 · 𝑉)) − ((𝑈 · 𝑉) + (𝑈 · 𝑉))) = (((((𝐻 · 𝐼) + (𝑉 · 𝑈)) − ((𝐻 · 𝑉) + (𝐼 · 𝑈))) + ((𝐻 · 𝑉) + (𝐼 · 𝑈))) − ((𝑈 · 𝑉) + (𝑈 · 𝑉)))) | 
| 36 | 27, 29 | subcld 11620 | . . . . . 6
⊢ (𝜑 → (((𝐻 · 𝐼) + (𝑉 · 𝑈)) − ((𝐻 · 𝑉) + (𝐼 · 𝑈))) ∈ ℂ) | 
| 37 | 17, 17 | addcld 11280 | . . . . . 6
⊢ (𝜑 → ((𝑈 · 𝑉) + (𝑈 · 𝑉)) ∈ ℂ) | 
| 38 | 36, 29, 37 | addsubassd 11640 | . . . . 5
⊢ (𝜑 → (((((𝐻 · 𝐼) + (𝑉 · 𝑈)) − ((𝐻 · 𝑉) + (𝐼 · 𝑈))) + ((𝐻 · 𝑉) + (𝐼 · 𝑈))) − ((𝑈 · 𝑉) + (𝑈 · 𝑉))) = ((((𝐻 · 𝐼) + (𝑉 · 𝑈)) − ((𝐻 · 𝑉) + (𝐼 · 𝑈))) + (((𝐻 · 𝑉) + (𝐼 · 𝑈)) − ((𝑈 · 𝑉) + (𝑈 · 𝑉))))) | 
| 39 | 35, 38 | eqtr2d 2778 | . . . 4
⊢ (𝜑 → ((((𝐻 · 𝐼) + (𝑉 · 𝑈)) − ((𝐻 · 𝑉) + (𝐼 · 𝑈))) + (((𝐻 · 𝑉) + (𝐼 · 𝑈)) − ((𝑈 · 𝑉) + (𝑈 · 𝑉)))) = (((𝐻 · 𝐼) + (𝑈 · 𝑉)) − ((𝑈 · 𝑉) + (𝑈 · 𝑉)))) | 
| 40 | 25, 17, 17 | pnpcan2d 11658 | . . . 4
⊢ (𝜑 → (((𝐻 · 𝐼) + (𝑈 · 𝑉)) − ((𝑈 · 𝑉) + (𝑈 · 𝑉))) = ((𝐻 · 𝐼) − (𝑈 · 𝑉))) | 
| 41 | 24, 39, 40 | 3eqtrrd 2782 | . . 3
⊢ (𝜑 → ((𝐻 · 𝐼) − (𝑈 · 𝑉)) = (((𝐻 − 𝑈) · (𝐼 − 𝑉)) + (((𝐻 − 𝑈) · 𝑉) + (𝑈 · (𝐼 − 𝑉))))) | 
| 42 | 2, 4 | jca 511 | . . . . . . . . 9
⊢ (𝜑 → (𝐻 ∈ ℝ ∧ 𝑈 ∈ ℝ)) | 
| 43 |  | resubcl 11573 | . . . . . . . . 9
⊢ ((𝐻 ∈ ℝ ∧ 𝑈 ∈ ℝ) → (𝐻 − 𝑈) ∈ ℝ) | 
| 44 | 42, 43 | syl 17 | . . . . . . . 8
⊢ (𝜑 → (𝐻 − 𝑈) ∈ ℝ) | 
| 45 | 7, 9 | jca 511 | . . . . . . . . 9
⊢ (𝜑 → (𝐼 ∈ ℝ ∧ 𝑉 ∈ ℝ)) | 
| 46 |  | resubcl 11573 | . . . . . . . . 9
⊢ ((𝐼 ∈ ℝ ∧ 𝑉 ∈ ℝ) → (𝐼 − 𝑉) ∈ ℝ) | 
| 47 | 45, 46 | syl 17 | . . . . . . . 8
⊢ (𝜑 → (𝐼 − 𝑉) ∈ ℝ) | 
| 48 | 44, 47 | jca 511 | . . . . . . 7
⊢ (𝜑 → ((𝐻 − 𝑈) ∈ ℝ ∧ (𝐼 − 𝑉) ∈ ℝ)) | 
| 49 |  | remulcl 11240 | . . . . . . 7
⊢ (((𝐻 − 𝑈) ∈ ℝ ∧ (𝐼 − 𝑉) ∈ ℝ) → ((𝐻 − 𝑈) · (𝐼 − 𝑉)) ∈ ℝ) | 
| 50 | 48, 49 | syl 17 | . . . . . 6
⊢ (𝜑 → ((𝐻 − 𝑈) · (𝐼 − 𝑉)) ∈ ℝ) | 
| 51 | 44, 9 | jca 511 | . . . . . . . . 9
⊢ (𝜑 → ((𝐻 − 𝑈) ∈ ℝ ∧ 𝑉 ∈ ℝ)) | 
| 52 |  | remulcl 11240 | . . . . . . . . 9
⊢ (((𝐻 − 𝑈) ∈ ℝ ∧ 𝑉 ∈ ℝ) → ((𝐻 − 𝑈) · 𝑉) ∈ ℝ) | 
| 53 | 51, 52 | syl 17 | . . . . . . . 8
⊢ (𝜑 → ((𝐻 − 𝑈) · 𝑉) ∈ ℝ) | 
| 54 | 4, 47 | jca 511 | . . . . . . . . 9
⊢ (𝜑 → (𝑈 ∈ ℝ ∧ (𝐼 − 𝑉) ∈ ℝ)) | 
| 55 |  | remulcl 11240 | . . . . . . . . 9
⊢ ((𝑈 ∈ ℝ ∧ (𝐼 − 𝑉) ∈ ℝ) → (𝑈 · (𝐼 − 𝑉)) ∈ ℝ) | 
| 56 | 54, 55 | syl 17 | . . . . . . . 8
⊢ (𝜑 → (𝑈 · (𝐼 − 𝑉)) ∈ ℝ) | 
| 57 | 53, 56 | jca 511 | . . . . . . 7
⊢ (𝜑 → (((𝐻 − 𝑈) · 𝑉) ∈ ℝ ∧ (𝑈 · (𝐼 − 𝑉)) ∈ ℝ)) | 
| 58 |  | readdcl 11238 | . . . . . . 7
⊢ ((((𝐻 − 𝑈) · 𝑉) ∈ ℝ ∧ (𝑈 · (𝐼 − 𝑉)) ∈ ℝ) → (((𝐻 − 𝑈) · 𝑉) + (𝑈 · (𝐼 − 𝑉))) ∈ ℝ) | 
| 59 | 57, 58 | syl 17 | . . . . . 6
⊢ (𝜑 → (((𝐻 − 𝑈) · 𝑉) + (𝑈 · (𝐼 − 𝑉))) ∈ ℝ) | 
| 60 | 50, 59 | jca 511 | . . . . 5
⊢ (𝜑 → (((𝐻 − 𝑈) · (𝐼 − 𝑉)) ∈ ℝ ∧ (((𝐻 − 𝑈) · 𝑉) + (𝑈 · (𝐼 − 𝑉))) ∈ ℝ)) | 
| 61 |  | readdcl 11238 | . . . . 5
⊢ ((((𝐻 − 𝑈) · (𝐼 − 𝑉)) ∈ ℝ ∧ (((𝐻 − 𝑈) · 𝑉) + (𝑈 · (𝐼 − 𝑉))) ∈ ℝ) → (((𝐻 − 𝑈) · (𝐼 − 𝑉)) + (((𝐻 − 𝑈) · 𝑉) + (𝑈 · (𝐼 − 𝑉)))) ∈ ℝ) | 
| 62 | 60, 61 | syl 17 | . . . 4
⊢ (𝜑 → (((𝐻 − 𝑈) · (𝐼 − 𝑉)) + (((𝐻 − 𝑈) · 𝑉) + (𝑈 · (𝐼 − 𝑉)))) ∈ ℝ) | 
| 63 |  | smfmullem1.y | . . . . . . . . . 10
⊢ 𝑌 = if(1 ≤ 𝑋, 1, 𝑋) | 
| 64 | 63 | a1i 11 | . . . . . . . . 9
⊢ (𝜑 → 𝑌 = if(1 ≤ 𝑋, 1, 𝑋)) | 
| 65 |  | 1rp 13038 | . . . . . . . . . . 11
⊢ 1 ∈
ℝ+ | 
| 66 | 65 | a1i 11 | . . . . . . . . . 10
⊢ (𝜑 → 1 ∈
ℝ+) | 
| 67 |  | smfmullem1.x | . . . . . . . . . . . 12
⊢ 𝑋 = ((𝐴 − (𝑈 · 𝑉)) / (1 + ((abs‘𝑈) + (abs‘𝑉)))) | 
| 68 | 67 | a1i 11 | . . . . . . . . . . 11
⊢ (𝜑 → 𝑋 = ((𝐴 − (𝑈 · 𝑉)) / (1 + ((abs‘𝑈) + (abs‘𝑉))))) | 
| 69 |  | smfmullem1.l | . . . . . . . . . . . . 13
⊢ (𝜑 → (𝑈 · 𝑉) < 𝐴) | 
| 70 | 4, 9 | remulcld 11291 | . . . . . . . . . . . . . 14
⊢ (𝜑 → (𝑈 · 𝑉) ∈ ℝ) | 
| 71 |  | smfmullem1.a | . . . . . . . . . . . . . 14
⊢ (𝜑 → 𝐴 ∈ ℝ) | 
| 72 |  | difrp 13073 | . . . . . . . . . . . . . 14
⊢ (((𝑈 · 𝑉) ∈ ℝ ∧ 𝐴 ∈ ℝ) → ((𝑈 · 𝑉) < 𝐴 ↔ (𝐴 − (𝑈 · 𝑉)) ∈
ℝ+)) | 
| 73 | 70, 71, 72 | syl2anc 584 | . . . . . . . . . . . . 13
⊢ (𝜑 → ((𝑈 · 𝑉) < 𝐴 ↔ (𝐴 − (𝑈 · 𝑉)) ∈
ℝ+)) | 
| 74 | 69, 73 | mpbid 232 | . . . . . . . . . . . 12
⊢ (𝜑 → (𝐴 − (𝑈 · 𝑉)) ∈
ℝ+) | 
| 75 |  | 1red 11262 | . . . . . . . . . . . . . 14
⊢ (𝜑 → 1 ∈
ℝ) | 
| 76 | 5 | abscld 15475 | . . . . . . . . . . . . . . 15
⊢ (𝜑 → (abs‘𝑈) ∈
ℝ) | 
| 77 | 10 | abscld 15475 | . . . . . . . . . . . . . . 15
⊢ (𝜑 → (abs‘𝑉) ∈
ℝ) | 
| 78 | 76, 77 | readdcld 11290 | . . . . . . . . . . . . . 14
⊢ (𝜑 → ((abs‘𝑈) + (abs‘𝑉)) ∈ ℝ) | 
| 79 | 75, 78 | readdcld 11290 | . . . . . . . . . . . . 13
⊢ (𝜑 → (1 + ((abs‘𝑈) + (abs‘𝑉))) ∈ ℝ) | 
| 80 |  | 0re 11263 | . . . . . . . . . . . . . . 15
⊢ 0 ∈
ℝ | 
| 81 | 80 | a1i 11 | . . . . . . . . . . . . . 14
⊢ (𝜑 → 0 ∈
ℝ) | 
| 82 | 66 | rpgt0d 13080 | . . . . . . . . . . . . . 14
⊢ (𝜑 → 0 < 1) | 
| 83 | 5 | absge0d 15483 | . . . . . . . . . . . . . . . 16
⊢ (𝜑 → 0 ≤ (abs‘𝑈)) | 
| 84 | 10 | absge0d 15483 | . . . . . . . . . . . . . . . . 17
⊢ (𝜑 → 0 ≤ (abs‘𝑉)) | 
| 85 | 76, 77 | addge01d 11851 | . . . . . . . . . . . . . . . . 17
⊢ (𝜑 → (0 ≤ (abs‘𝑉) ↔ (abs‘𝑈) ≤ ((abs‘𝑈) + (abs‘𝑉)))) | 
| 86 | 84, 85 | mpbid 232 | . . . . . . . . . . . . . . . 16
⊢ (𝜑 → (abs‘𝑈) ≤ ((abs‘𝑈) + (abs‘𝑉))) | 
| 87 | 81, 76, 78, 83, 86 | letrd 11418 | . . . . . . . . . . . . . . 15
⊢ (𝜑 → 0 ≤ ((abs‘𝑈) + (abs‘𝑉))) | 
| 88 | 75, 78 | addge01d 11851 | . . . . . . . . . . . . . . 15
⊢ (𝜑 → (0 ≤ ((abs‘𝑈) + (abs‘𝑉)) ↔ 1 ≤ (1 + ((abs‘𝑈) + (abs‘𝑉))))) | 
| 89 | 87, 88 | mpbid 232 | . . . . . . . . . . . . . 14
⊢ (𝜑 → 1 ≤ (1 +
((abs‘𝑈) +
(abs‘𝑉)))) | 
| 90 | 81, 75, 79, 82, 89 | ltletrd 11421 | . . . . . . . . . . . . 13
⊢ (𝜑 → 0 < (1 +
((abs‘𝑈) +
(abs‘𝑉)))) | 
| 91 | 79, 90 | elrpd 13074 | . . . . . . . . . . . 12
⊢ (𝜑 → (1 + ((abs‘𝑈) + (abs‘𝑉))) ∈
ℝ+) | 
| 92 | 74, 91 | rpdivcld 13094 | . . . . . . . . . . 11
⊢ (𝜑 → ((𝐴 − (𝑈 · 𝑉)) / (1 + ((abs‘𝑈) + (abs‘𝑉)))) ∈
ℝ+) | 
| 93 | 68, 92 | eqeltrd 2841 | . . . . . . . . . 10
⊢ (𝜑 → 𝑋 ∈
ℝ+) | 
| 94 | 66, 93 | ifcld 4572 | . . . . . . . . 9
⊢ (𝜑 → if(1 ≤ 𝑋, 1, 𝑋) ∈
ℝ+) | 
| 95 | 64, 94 | eqeltrd 2841 | . . . . . . . 8
⊢ (𝜑 → 𝑌 ∈
ℝ+) | 
| 96 | 95 | rpred 13077 | . . . . . . 7
⊢ (𝜑 → 𝑌 ∈ ℝ) | 
| 97 |  | resqcl 14164 | . . . . . . 7
⊢ (𝑌 ∈ ℝ → (𝑌↑2) ∈
ℝ) | 
| 98 | 96, 97 | syl 17 | . . . . . 6
⊢ (𝜑 → (𝑌↑2) ∈ ℝ) | 
| 99 | 96, 77 | remulcld 11291 | . . . . . . . 8
⊢ (𝜑 → (𝑌 · (abs‘𝑉)) ∈ ℝ) | 
| 100 | 96, 76 | remulcld 11291 | . . . . . . . 8
⊢ (𝜑 → (𝑌 · (abs‘𝑈)) ∈ ℝ) | 
| 101 | 99, 100 | jca 511 | . . . . . . 7
⊢ (𝜑 → ((𝑌 · (abs‘𝑉)) ∈ ℝ ∧ (𝑌 · (abs‘𝑈)) ∈ ℝ)) | 
| 102 |  | readdcl 11238 | . . . . . . 7
⊢ (((𝑌 · (abs‘𝑉)) ∈ ℝ ∧ (𝑌 · (abs‘𝑈)) ∈ ℝ) →
((𝑌 ·
(abs‘𝑉)) + (𝑌 · (abs‘𝑈))) ∈
ℝ) | 
| 103 | 101, 102 | syl 17 | . . . . . 6
⊢ (𝜑 → ((𝑌 · (abs‘𝑉)) + (𝑌 · (abs‘𝑈))) ∈ ℝ) | 
| 104 | 98, 103 | jca 511 | . . . . 5
⊢ (𝜑 → ((𝑌↑2) ∈ ℝ ∧ ((𝑌 · (abs‘𝑉)) + (𝑌 · (abs‘𝑈))) ∈ ℝ)) | 
| 105 |  | readdcl 11238 | . . . . 5
⊢ (((𝑌↑2) ∈ ℝ ∧
((𝑌 ·
(abs‘𝑉)) + (𝑌 · (abs‘𝑈))) ∈ ℝ) →
((𝑌↑2) + ((𝑌 · (abs‘𝑉)) + (𝑌 · (abs‘𝑈)))) ∈ ℝ) | 
| 106 | 104, 105 | syl 17 | . . . 4
⊢ (𝜑 → ((𝑌↑2) + ((𝑌 · (abs‘𝑉)) + (𝑌 · (abs‘𝑈)))) ∈ ℝ) | 
| 107 | 71, 70 | resubcld 11691 | . . . 4
⊢ (𝜑 → (𝐴 − (𝑈 · 𝑉)) ∈ ℝ) | 
| 108 | 96 | resqcld 14165 | . . . . 5
⊢ (𝜑 → (𝑌↑2) ∈ ℝ) | 
| 109 | 99, 100 | readdcld 11290 | . . . . 5
⊢ (𝜑 → ((𝑌 · (abs‘𝑉)) + (𝑌 · (abs‘𝑈))) ∈ ℝ) | 
| 110 | 11, 36 | eqeltrd 2841 | . . . . . . . 8
⊢ (𝜑 → ((𝐻 − 𝑈) · (𝐼 − 𝑉)) ∈ ℂ) | 
| 111 | 110 | abscld 15475 | . . . . . . 7
⊢ (𝜑 → (abs‘((𝐻 − 𝑈) · (𝐼 − 𝑉))) ∈ ℝ) | 
| 112 | 96, 96 | remulcld 11291 | . . . . . . 7
⊢ (𝜑 → (𝑌 · 𝑌) ∈ ℝ) | 
| 113 | 50 | leabsd 15453 | . . . . . . 7
⊢ (𝜑 → ((𝐻 − 𝑈) · (𝐼 − 𝑉)) ≤ (abs‘((𝐻 − 𝑈) · (𝐼 − 𝑉)))) | 
| 114 | 44 | recnd 11289 | . . . . . . . . 9
⊢ (𝜑 → (𝐻 − 𝑈) ∈ ℂ) | 
| 115 | 47 | recnd 11289 | . . . . . . . . 9
⊢ (𝜑 → (𝐼 − 𝑉) ∈ ℂ) | 
| 116 | 114, 115 | absmuld 15493 | . . . . . . . 8
⊢ (𝜑 → (abs‘((𝐻 − 𝑈) · (𝐼 − 𝑉))) = ((abs‘(𝐻 − 𝑈)) · (abs‘(𝐼 − 𝑉)))) | 
| 117 | 114 | abscld 15475 | . . . . . . . . 9
⊢ (𝜑 → (abs‘(𝐻 − 𝑈)) ∈ ℝ) | 
| 118 | 115 | abscld 15475 | . . . . . . . . 9
⊢ (𝜑 → (abs‘(𝐼 − 𝑉)) ∈ ℝ) | 
| 119 | 114 | absge0d 15483 | . . . . . . . . 9
⊢ (𝜑 → 0 ≤ (abs‘(𝐻 − 𝑈))) | 
| 120 | 4, 96 | resubcld 11691 | . . . . . . . . . . . 12
⊢ (𝜑 → (𝑈 − 𝑌) ∈ ℝ) | 
| 121 |  | smfmullem1.p | . . . . . . . . . . . . 13
⊢ (𝜑 → 𝑃 ∈ ((𝑈 − 𝑌)(,)𝑈)) | 
| 122 | 121 | elioored 45562 | . . . . . . . . . . . 12
⊢ (𝜑 → 𝑃 ∈ ℝ) | 
| 123 | 120 | rexrd 11311 | . . . . . . . . . . . . 13
⊢ (𝜑 → (𝑈 − 𝑌) ∈
ℝ*) | 
| 124 | 4 | rexrd 11311 | . . . . . . . . . . . . 13
⊢ (𝜑 → 𝑈 ∈
ℝ*) | 
| 125 |  | ioogtlb 45508 | . . . . . . . . . . . . 13
⊢ (((𝑈 − 𝑌) ∈ ℝ* ∧ 𝑈 ∈ ℝ*
∧ 𝑃 ∈ ((𝑈 − 𝑌)(,)𝑈)) → (𝑈 − 𝑌) < 𝑃) | 
| 126 | 123, 124,
121, 125 | syl3anc 1373 | . . . . . . . . . . . 12
⊢ (𝜑 → (𝑈 − 𝑌) < 𝑃) | 
| 127 | 122 | rexrd 11311 | . . . . . . . . . . . . 13
⊢ (𝜑 → 𝑃 ∈
ℝ*) | 
| 128 |  | smfmullem1.r | . . . . . . . . . . . . . . 15
⊢ (𝜑 → 𝑅 ∈ (𝑈(,)(𝑈 + 𝑌))) | 
| 129 | 128 | elioored 45562 | . . . . . . . . . . . . . 14
⊢ (𝜑 → 𝑅 ∈ ℝ) | 
| 130 | 129 | rexrd 11311 | . . . . . . . . . . . . 13
⊢ (𝜑 → 𝑅 ∈
ℝ*) | 
| 131 |  | ioogtlb 45508 | . . . . . . . . . . . . 13
⊢ ((𝑃 ∈ ℝ*
∧ 𝑅 ∈
ℝ* ∧ 𝐻
∈ (𝑃(,)𝑅)) → 𝑃 < 𝐻) | 
| 132 | 127, 130,
1, 131 | syl3anc 1373 | . . . . . . . . . . . 12
⊢ (𝜑 → 𝑃 < 𝐻) | 
| 133 | 120, 122,
2, 126, 132 | lttrd 11422 | . . . . . . . . . . 11
⊢ (𝜑 → (𝑈 − 𝑌) < 𝐻) | 
| 134 | 4, 96 | readdcld 11290 | . . . . . . . . . . . 12
⊢ (𝜑 → (𝑈 + 𝑌) ∈ ℝ) | 
| 135 |  | iooltub 45523 | . . . . . . . . . . . . 13
⊢ ((𝑃 ∈ ℝ*
∧ 𝑅 ∈
ℝ* ∧ 𝐻
∈ (𝑃(,)𝑅)) → 𝐻 < 𝑅) | 
| 136 | 127, 130,
1, 135 | syl3anc 1373 | . . . . . . . . . . . 12
⊢ (𝜑 → 𝐻 < 𝑅) | 
| 137 | 134 | rexrd 11311 | . . . . . . . . . . . . 13
⊢ (𝜑 → (𝑈 + 𝑌) ∈
ℝ*) | 
| 138 |  | iooltub 45523 | . . . . . . . . . . . . 13
⊢ ((𝑈 ∈ ℝ*
∧ (𝑈 + 𝑌) ∈ ℝ*
∧ 𝑅 ∈ (𝑈(,)(𝑈 + 𝑌))) → 𝑅 < (𝑈 + 𝑌)) | 
| 139 | 124, 137,
128, 138 | syl3anc 1373 | . . . . . . . . . . . 12
⊢ (𝜑 → 𝑅 < (𝑈 + 𝑌)) | 
| 140 | 2, 129, 134, 136, 139 | lttrd 11422 | . . . . . . . . . . 11
⊢ (𝜑 → 𝐻 < (𝑈 + 𝑌)) | 
| 141 | 133, 140 | jca 511 | . . . . . . . . . 10
⊢ (𝜑 → ((𝑈 − 𝑌) < 𝐻 ∧ 𝐻 < (𝑈 + 𝑌))) | 
| 142 | 2, 4, 96 | absdifltd 15472 | . . . . . . . . . 10
⊢ (𝜑 → ((abs‘(𝐻 − 𝑈)) < 𝑌 ↔ ((𝑈 − 𝑌) < 𝐻 ∧ 𝐻 < (𝑈 + 𝑌)))) | 
| 143 | 141, 142 | mpbird 257 | . . . . . . . . 9
⊢ (𝜑 → (abs‘(𝐻 − 𝑈)) < 𝑌) | 
| 144 | 115 | absge0d 15483 | . . . . . . . . 9
⊢ (𝜑 → 0 ≤ (abs‘(𝐼 − 𝑉))) | 
| 145 | 9, 96 | resubcld 11691 | . . . . . . . . . . . 12
⊢ (𝜑 → (𝑉 − 𝑌) ∈ ℝ) | 
| 146 |  | smfmullem1.s | . . . . . . . . . . . . 13
⊢ (𝜑 → 𝑆 ∈ ((𝑉 − 𝑌)(,)𝑉)) | 
| 147 | 146 | elioored 45562 | . . . . . . . . . . . 12
⊢ (𝜑 → 𝑆 ∈ ℝ) | 
| 148 | 145 | rexrd 11311 | . . . . . . . . . . . . 13
⊢ (𝜑 → (𝑉 − 𝑌) ∈
ℝ*) | 
| 149 | 9 | rexrd 11311 | . . . . . . . . . . . . 13
⊢ (𝜑 → 𝑉 ∈
ℝ*) | 
| 150 | 148, 149,
146 | ioogtlbd 45563 | . . . . . . . . . . . 12
⊢ (𝜑 → (𝑉 − 𝑌) < 𝑆) | 
| 151 | 147 | rexrd 11311 | . . . . . . . . . . . . 13
⊢ (𝜑 → 𝑆 ∈
ℝ*) | 
| 152 |  | smfmullem1.z | . . . . . . . . . . . . . . 15
⊢ (𝜑 → 𝑍 ∈ (𝑉(,)(𝑉 + 𝑌))) | 
| 153 | 152 | elioored 45562 | . . . . . . . . . . . . . 14
⊢ (𝜑 → 𝑍 ∈ ℝ) | 
| 154 | 153 | rexrd 11311 | . . . . . . . . . . . . 13
⊢ (𝜑 → 𝑍 ∈
ℝ*) | 
| 155 | 151, 154,
6 | ioogtlbd 45563 | . . . . . . . . . . . 12
⊢ (𝜑 → 𝑆 < 𝐼) | 
| 156 | 145, 147,
7, 150, 155 | lttrd 11422 | . . . . . . . . . . 11
⊢ (𝜑 → (𝑉 − 𝑌) < 𝐼) | 
| 157 | 9, 96 | readdcld 11290 | . . . . . . . . . . . 12
⊢ (𝜑 → (𝑉 + 𝑌) ∈ ℝ) | 
| 158 | 151, 154,
6 | iooltubd 45557 | . . . . . . . . . . . 12
⊢ (𝜑 → 𝐼 < 𝑍) | 
| 159 | 157 | rexrd 11311 | . . . . . . . . . . . . 13
⊢ (𝜑 → (𝑉 + 𝑌) ∈
ℝ*) | 
| 160 | 149, 159,
152 | iooltubd 45557 | . . . . . . . . . . . 12
⊢ (𝜑 → 𝑍 < (𝑉 + 𝑌)) | 
| 161 | 7, 153, 157, 158, 160 | lttrd 11422 | . . . . . . . . . . 11
⊢ (𝜑 → 𝐼 < (𝑉 + 𝑌)) | 
| 162 | 156, 161 | jca 511 | . . . . . . . . . 10
⊢ (𝜑 → ((𝑉 − 𝑌) < 𝐼 ∧ 𝐼 < (𝑉 + 𝑌))) | 
| 163 | 7, 9, 96 | absdifltd 15472 | . . . . . . . . . 10
⊢ (𝜑 → ((abs‘(𝐼 − 𝑉)) < 𝑌 ↔ ((𝑉 − 𝑌) < 𝐼 ∧ 𝐼 < (𝑉 + 𝑌)))) | 
| 164 | 162, 163 | mpbird 257 | . . . . . . . . 9
⊢ (𝜑 → (abs‘(𝐼 − 𝑉)) < 𝑌) | 
| 165 | 117, 96, 118, 96, 119, 143, 144, 164 | ltmul12ad 12209 | . . . . . . . 8
⊢ (𝜑 → ((abs‘(𝐻 − 𝑈)) · (abs‘(𝐼 − 𝑉))) < (𝑌 · 𝑌)) | 
| 166 | 116, 165 | eqbrtrd 5165 | . . . . . . 7
⊢ (𝜑 → (abs‘((𝐻 − 𝑈) · (𝐼 − 𝑉))) < (𝑌 · 𝑌)) | 
| 167 | 50, 111, 112, 113, 166 | lelttrd 11419 | . . . . . 6
⊢ (𝜑 → ((𝐻 − 𝑈) · (𝐼 − 𝑉)) < (𝑌 · 𝑌)) | 
| 168 | 96 | recnd 11289 | . . . . . . . 8
⊢ (𝜑 → 𝑌 ∈ ℂ) | 
| 169 | 168 | sqvald 14183 | . . . . . . 7
⊢ (𝜑 → (𝑌↑2) = (𝑌 · 𝑌)) | 
| 170 | 169 | eqcomd 2743 | . . . . . 6
⊢ (𝜑 → (𝑌 · 𝑌) = (𝑌↑2)) | 
| 171 | 167, 170 | breqtrd 5169 | . . . . 5
⊢ (𝜑 → ((𝐻 − 𝑈) · (𝐼 − 𝑉)) < (𝑌↑2)) | 
| 172 | 53 | recnd 11289 | . . . . . . . 8
⊢ (𝜑 → ((𝐻 − 𝑈) · 𝑉) ∈ ℂ) | 
| 173 | 172 | abscld 15475 | . . . . . . 7
⊢ (𝜑 → (abs‘((𝐻 − 𝑈) · 𝑉)) ∈ ℝ) | 
| 174 | 53 | leabsd 15453 | . . . . . . 7
⊢ (𝜑 → ((𝐻 − 𝑈) · 𝑉) ≤ (abs‘((𝐻 − 𝑈) · 𝑉))) | 
| 175 | 114, 10 | absmuld 15493 | . . . . . . . 8
⊢ (𝜑 → (abs‘((𝐻 − 𝑈) · 𝑉)) = ((abs‘(𝐻 − 𝑈)) · (abs‘𝑉))) | 
| 176 | 117, 96, 143 | ltled 11409 | . . . . . . . . 9
⊢ (𝜑 → (abs‘(𝐻 − 𝑈)) ≤ 𝑌) | 
| 177 | 117, 96, 77, 84, 176 | lemul1ad 12207 | . . . . . . . 8
⊢ (𝜑 → ((abs‘(𝐻 − 𝑈)) · (abs‘𝑉)) ≤ (𝑌 · (abs‘𝑉))) | 
| 178 | 175, 177 | eqbrtrd 5165 | . . . . . . 7
⊢ (𝜑 → (abs‘((𝐻 − 𝑈) · 𝑉)) ≤ (𝑌 · (abs‘𝑉))) | 
| 179 | 53, 173, 99, 174, 178 | letrd 11418 | . . . . . 6
⊢ (𝜑 → ((𝐻 − 𝑈) · 𝑉) ≤ (𝑌 · (abs‘𝑉))) | 
| 180 | 56 | recnd 11289 | . . . . . . . 8
⊢ (𝜑 → (𝑈 · (𝐼 − 𝑉)) ∈ ℂ) | 
| 181 | 180 | abscld 15475 | . . . . . . 7
⊢ (𝜑 → (abs‘(𝑈 · (𝐼 − 𝑉))) ∈ ℝ) | 
| 182 | 56 | leabsd 15453 | . . . . . . 7
⊢ (𝜑 → (𝑈 · (𝐼 − 𝑉)) ≤ (abs‘(𝑈 · (𝐼 − 𝑉)))) | 
| 183 | 5, 115 | absmuld 15493 | . . . . . . . . 9
⊢ (𝜑 → (abs‘(𝑈 · (𝐼 − 𝑉))) = ((abs‘𝑈) · (abs‘(𝐼 − 𝑉)))) | 
| 184 | 76 | recnd 11289 | . . . . . . . . . 10
⊢ (𝜑 → (abs‘𝑈) ∈
ℂ) | 
| 185 | 118 | recnd 11289 | . . . . . . . . . 10
⊢ (𝜑 → (abs‘(𝐼 − 𝑉)) ∈ ℂ) | 
| 186 | 184, 185 | mulcomd 11282 | . . . . . . . . 9
⊢ (𝜑 → ((abs‘𝑈) · (abs‘(𝐼 − 𝑉))) = ((abs‘(𝐼 − 𝑉)) · (abs‘𝑈))) | 
| 187 | 183, 186 | eqtrd 2777 | . . . . . . . 8
⊢ (𝜑 → (abs‘(𝑈 · (𝐼 − 𝑉))) = ((abs‘(𝐼 − 𝑉)) · (abs‘𝑈))) | 
| 188 | 118, 96, 164 | ltled 11409 | . . . . . . . . 9
⊢ (𝜑 → (abs‘(𝐼 − 𝑉)) ≤ 𝑌) | 
| 189 | 118, 96, 76, 83, 188 | lemul1ad 12207 | . . . . . . . 8
⊢ (𝜑 → ((abs‘(𝐼 − 𝑉)) · (abs‘𝑈)) ≤ (𝑌 · (abs‘𝑈))) | 
| 190 | 187, 189 | eqbrtrd 5165 | . . . . . . 7
⊢ (𝜑 → (abs‘(𝑈 · (𝐼 − 𝑉))) ≤ (𝑌 · (abs‘𝑈))) | 
| 191 | 56, 181, 100, 182, 190 | letrd 11418 | . . . . . 6
⊢ (𝜑 → (𝑈 · (𝐼 − 𝑉)) ≤ (𝑌 · (abs‘𝑈))) | 
| 192 | 53, 56, 99, 100, 179, 191 | leadd12dd 45328 | . . . . 5
⊢ (𝜑 → (((𝐻 − 𝑈) · 𝑉) + (𝑈 · (𝐼 − 𝑉))) ≤ ((𝑌 · (abs‘𝑉)) + (𝑌 · (abs‘𝑈)))) | 
| 193 | 50, 59, 108, 109, 171, 192 | ltleaddd 11884 | . . . 4
⊢ (𝜑 → (((𝐻 − 𝑈) · (𝐼 − 𝑉)) + (((𝐻 − 𝑈) · 𝑉) + (𝑈 · (𝐼 − 𝑉)))) < ((𝑌↑2) + ((𝑌 · (abs‘𝑉)) + (𝑌 · (abs‘𝑈))))) | 
| 194 | 96, 103 | readdcld 11290 | . . . . 5
⊢ (𝜑 → (𝑌 + ((𝑌 · (abs‘𝑉)) + (𝑌 · (abs‘𝑈)))) ∈ ℝ) | 
| 195 | 81, 117, 96, 119, 176 | letrd 11418 | . . . . . . . 8
⊢ (𝜑 → 0 ≤ 𝑌) | 
| 196 | 93 | rpred 13077 | . . . . . . . . . 10
⊢ (𝜑 → 𝑋 ∈ ℝ) | 
| 197 |  | min1 13231 | . . . . . . . . . 10
⊢ ((1
∈ ℝ ∧ 𝑋
∈ ℝ) → if(1 ≤ 𝑋, 1, 𝑋) ≤ 1) | 
| 198 | 75, 196, 197 | syl2anc 584 | . . . . . . . . 9
⊢ (𝜑 → if(1 ≤ 𝑋, 1, 𝑋) ≤ 1) | 
| 199 | 63, 198 | eqbrtrid 5178 | . . . . . . . 8
⊢ (𝜑 → 𝑌 ≤ 1) | 
| 200 | 81, 75, 96, 195, 199 | eliccd 45517 | . . . . . . 7
⊢ (𝜑 → 𝑌 ∈ (0[,]1)) | 
| 201 | 96 | sqrlearg 45566 | . . . . . . 7
⊢ (𝜑 → ((𝑌↑2) ≤ 𝑌 ↔ 𝑌 ∈ (0[,]1))) | 
| 202 | 200, 201 | mpbird 257 | . . . . . 6
⊢ (𝜑 → (𝑌↑2) ≤ 𝑌) | 
| 203 | 98, 96, 103, 202 | leadd1dd 11877 | . . . . 5
⊢ (𝜑 → ((𝑌↑2) + ((𝑌 · (abs‘𝑉)) + (𝑌 · (abs‘𝑈)))) ≤ (𝑌 + ((𝑌 · (abs‘𝑉)) + (𝑌 · (abs‘𝑈))))) | 
| 204 |  | 1cnd 11256 | . . . . . . . 8
⊢ (𝜑 → 1 ∈
ℂ) | 
| 205 | 77 | recnd 11289 | . . . . . . . . 9
⊢ (𝜑 → (abs‘𝑉) ∈
ℂ) | 
| 206 | 205, 184 | addcld 11280 | . . . . . . . 8
⊢ (𝜑 → ((abs‘𝑉) + (abs‘𝑈)) ∈ ℂ) | 
| 207 | 168, 204,
206 | adddid 11285 | . . . . . . 7
⊢ (𝜑 → (𝑌 · (1 + ((abs‘𝑉) + (abs‘𝑈)))) = ((𝑌 · 1) + (𝑌 · ((abs‘𝑉) + (abs‘𝑈))))) | 
| 208 | 168 | mulridd 11278 | . . . . . . . 8
⊢ (𝜑 → (𝑌 · 1) = 𝑌) | 
| 209 | 168, 205,
184 | adddid 11285 | . . . . . . . 8
⊢ (𝜑 → (𝑌 · ((abs‘𝑉) + (abs‘𝑈))) = ((𝑌 · (abs‘𝑉)) + (𝑌 · (abs‘𝑈)))) | 
| 210 | 208, 209 | oveq12d 7449 | . . . . . . 7
⊢ (𝜑 → ((𝑌 · 1) + (𝑌 · ((abs‘𝑉) + (abs‘𝑈)))) = (𝑌 + ((𝑌 · (abs‘𝑉)) + (𝑌 · (abs‘𝑈))))) | 
| 211 | 207, 210 | eqtr2d 2778 | . . . . . 6
⊢ (𝜑 → (𝑌 + ((𝑌 · (abs‘𝑉)) + (𝑌 · (abs‘𝑈)))) = (𝑌 · (1 + ((abs‘𝑉) + (abs‘𝑈))))) | 
| 212 | 77, 76 | readdcld 11290 | . . . . . . . . 9
⊢ (𝜑 → ((abs‘𝑉) + (abs‘𝑈)) ∈ ℝ) | 
| 213 | 75, 212 | readdcld 11290 | . . . . . . . 8
⊢ (𝜑 → (1 + ((abs‘𝑉) + (abs‘𝑈))) ∈ ℝ) | 
| 214 | 77, 76 | addge01d 11851 | . . . . . . . . . . . . 13
⊢ (𝜑 → (0 ≤ (abs‘𝑈) ↔ (abs‘𝑉) ≤ ((abs‘𝑉) + (abs‘𝑈)))) | 
| 215 | 83, 214 | mpbid 232 | . . . . . . . . . . . 12
⊢ (𝜑 → (abs‘𝑉) ≤ ((abs‘𝑉) + (abs‘𝑈))) | 
| 216 | 81, 77, 212, 84, 215 | letrd 11418 | . . . . . . . . . . 11
⊢ (𝜑 → 0 ≤ ((abs‘𝑉) + (abs‘𝑈))) | 
| 217 | 75, 212 | addge01d 11851 | . . . . . . . . . . 11
⊢ (𝜑 → (0 ≤ ((abs‘𝑉) + (abs‘𝑈)) ↔ 1 ≤ (1 + ((abs‘𝑉) + (abs‘𝑈))))) | 
| 218 | 216, 217 | mpbid 232 | . . . . . . . . . 10
⊢ (𝜑 → 1 ≤ (1 +
((abs‘𝑉) +
(abs‘𝑈)))) | 
| 219 | 81, 75, 213, 82, 218 | ltletrd 11421 | . . . . . . . . 9
⊢ (𝜑 → 0 < (1 +
((abs‘𝑉) +
(abs‘𝑈)))) | 
| 220 | 81, 213, 219 | ltled 11409 | . . . . . . . 8
⊢ (𝜑 → 0 ≤ (1 +
((abs‘𝑉) +
(abs‘𝑈)))) | 
| 221 |  | min2 13232 | . . . . . . . . . 10
⊢ ((1
∈ ℝ ∧ 𝑋
∈ ℝ) → if(1 ≤ 𝑋, 1, 𝑋) ≤ 𝑋) | 
| 222 | 75, 196, 221 | syl2anc 584 | . . . . . . . . 9
⊢ (𝜑 → if(1 ≤ 𝑋, 1, 𝑋) ≤ 𝑋) | 
| 223 | 64, 222 | eqbrtrd 5165 | . . . . . . . 8
⊢ (𝜑 → 𝑌 ≤ 𝑋) | 
| 224 | 96, 196, 213, 220, 223 | lemul1ad 12207 | . . . . . . 7
⊢ (𝜑 → (𝑌 · (1 + ((abs‘𝑉) + (abs‘𝑈)))) ≤ (𝑋 · (1 + ((abs‘𝑉) + (abs‘𝑈))))) | 
| 225 | 68 | oveq1d 7446 | . . . . . . . 8
⊢ (𝜑 → (𝑋 · (1 + ((abs‘𝑉) + (abs‘𝑈)))) = (((𝐴 − (𝑈 · 𝑉)) / (1 + ((abs‘𝑈) + (abs‘𝑉)))) · (1 + ((abs‘𝑉) + (abs‘𝑈))))) | 
| 226 | 184, 205 | addcomd 11463 | . . . . . . . . . . 11
⊢ (𝜑 → ((abs‘𝑈) + (abs‘𝑉)) = ((abs‘𝑉) + (abs‘𝑈))) | 
| 227 | 226 | oveq2d 7447 | . . . . . . . . . 10
⊢ (𝜑 → (1 + ((abs‘𝑈) + (abs‘𝑉))) = (1 + ((abs‘𝑉) + (abs‘𝑈)))) | 
| 228 | 227 | oveq2d 7447 | . . . . . . . . 9
⊢ (𝜑 → ((𝐴 − (𝑈 · 𝑉)) / (1 + ((abs‘𝑈) + (abs‘𝑉)))) = ((𝐴 − (𝑈 · 𝑉)) / (1 + ((abs‘𝑉) + (abs‘𝑈))))) | 
| 229 | 228 | oveq1d 7446 | . . . . . . . 8
⊢ (𝜑 → (((𝐴 − (𝑈 · 𝑉)) / (1 + ((abs‘𝑈) + (abs‘𝑉)))) · (1 + ((abs‘𝑉) + (abs‘𝑈)))) = (((𝐴 − (𝑈 · 𝑉)) / (1 + ((abs‘𝑉) + (abs‘𝑈)))) · (1 + ((abs‘𝑉) + (abs‘𝑈))))) | 
| 230 | 107 | recnd 11289 | . . . . . . . . 9
⊢ (𝜑 → (𝐴 − (𝑈 · 𝑉)) ∈ ℂ) | 
| 231 | 204, 206 | addcld 11280 | . . . . . . . . 9
⊢ (𝜑 → (1 + ((abs‘𝑉) + (abs‘𝑈))) ∈ ℂ) | 
| 232 | 81, 219 | gtned 11396 | . . . . . . . . 9
⊢ (𝜑 → (1 + ((abs‘𝑉) + (abs‘𝑈))) ≠ 0) | 
| 233 | 230, 231,
232 | divcan1d 12044 | . . . . . . . 8
⊢ (𝜑 → (((𝐴 − (𝑈 · 𝑉)) / (1 + ((abs‘𝑉) + (abs‘𝑈)))) · (1 + ((abs‘𝑉) + (abs‘𝑈)))) = (𝐴 − (𝑈 · 𝑉))) | 
| 234 | 225, 229,
233 | 3eqtrd 2781 | . . . . . . 7
⊢ (𝜑 → (𝑋 · (1 + ((abs‘𝑉) + (abs‘𝑈)))) = (𝐴 − (𝑈 · 𝑉))) | 
| 235 | 224, 234 | breqtrd 5169 | . . . . . 6
⊢ (𝜑 → (𝑌 · (1 + ((abs‘𝑉) + (abs‘𝑈)))) ≤ (𝐴 − (𝑈 · 𝑉))) | 
| 236 | 211, 235 | eqbrtrd 5165 | . . . . 5
⊢ (𝜑 → (𝑌 + ((𝑌 · (abs‘𝑉)) + (𝑌 · (abs‘𝑈)))) ≤ (𝐴 − (𝑈 · 𝑉))) | 
| 237 | 106, 194,
107, 203, 236 | letrd 11418 | . . . 4
⊢ (𝜑 → ((𝑌↑2) + ((𝑌 · (abs‘𝑉)) + (𝑌 · (abs‘𝑈)))) ≤ (𝐴 − (𝑈 · 𝑉))) | 
| 238 | 62, 106, 107, 193, 237 | ltletrd 11421 | . . 3
⊢ (𝜑 → (((𝐻 − 𝑈) · (𝐼 − 𝑉)) + (((𝐻 − 𝑈) · 𝑉) + (𝑈 · (𝐼 − 𝑉)))) < (𝐴 − (𝑈 · 𝑉))) | 
| 239 | 41, 238 | eqbrtrd 5165 | . 2
⊢ (𝜑 → ((𝐻 · 𝐼) − (𝑈 · 𝑉)) < (𝐴 − (𝑈 · 𝑉))) | 
| 240 | 2, 7 | remulcld 11291 | . . 3
⊢ (𝜑 → (𝐻 · 𝐼) ∈ ℝ) | 
| 241 | 240, 71, 70 | ltsub1d 11872 | . 2
⊢ (𝜑 → ((𝐻 · 𝐼) < 𝐴 ↔ ((𝐻 · 𝐼) − (𝑈 · 𝑉)) < (𝐴 − (𝑈 · 𝑉)))) | 
| 242 | 239, 241 | mpbird 257 | 1
⊢ (𝜑 → (𝐻 · 𝐼) < 𝐴) |