Proof of Theorem nvabs
| Step | Hyp | Ref | Expression | 
|---|
| 1 |  | nvabs.1 | . . . . 5
⊢ 𝑋 = (BaseSet‘𝑈) | 
| 2 |  | nvabs.2 | . . . . 5
⊢ 𝐺 = ( +𝑣
‘𝑈) | 
| 3 |  | nvabs.4 | . . . . 5
⊢ 𝑆 = (
·𝑠OLD ‘𝑈) | 
| 4 |  | nvabs.6 | . . . . 5
⊢ 𝑁 =
(normCV‘𝑈) | 
| 5 | 1, 2, 3, 4 | nvdif 30686 | . . . 4
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (𝑁‘(𝐴𝐺(-1𝑆𝐵))) = (𝑁‘(𝐵𝐺(-1𝑆𝐴)))) | 
| 6 | 5 | negeqd 11503 | . . 3
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → -(𝑁‘(𝐴𝐺(-1𝑆𝐵))) = -(𝑁‘(𝐵𝐺(-1𝑆𝐴)))) | 
| 7 | 1, 4 | nvcl 30681 | . . . . 5
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐵 ∈ 𝑋) → (𝑁‘𝐵) ∈ ℝ) | 
| 8 | 7 | 3adant2 1131 | . . . 4
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (𝑁‘𝐵) ∈ ℝ) | 
| 9 | 1, 4 | nvcl 30681 | . . . . 5
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋) → (𝑁‘𝐴) ∈ ℝ) | 
| 10 | 9 | 3adant3 1132 | . . . 4
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (𝑁‘𝐴) ∈ ℝ) | 
| 11 |  | simp1 1136 | . . . . . 6
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → 𝑈 ∈ NrmCVec) | 
| 12 |  | neg1cn 12381 | . . . . . . . . . 10
⊢ -1 ∈
ℂ | 
| 13 | 1, 3 | nvscl 30646 | . . . . . . . . . 10
⊢ ((𝑈 ∈ NrmCVec ∧ -1 ∈
ℂ ∧ 𝐴 ∈
𝑋) → (-1𝑆𝐴) ∈ 𝑋) | 
| 14 | 12, 13 | mp3an2 1450 | . . . . . . . . 9
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋) → (-1𝑆𝐴) ∈ 𝑋) | 
| 15 | 14 | 3adant2 1131 | . . . . . . . 8
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐵 ∈ 𝑋 ∧ 𝐴 ∈ 𝑋) → (-1𝑆𝐴) ∈ 𝑋) | 
| 16 | 1, 2 | nvgcl 30640 | . . . . . . . 8
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐵 ∈ 𝑋 ∧ (-1𝑆𝐴) ∈ 𝑋) → (𝐵𝐺(-1𝑆𝐴)) ∈ 𝑋) | 
| 17 | 15, 16 | syld3an3 1410 | . . . . . . 7
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐵 ∈ 𝑋 ∧ 𝐴 ∈ 𝑋) → (𝐵𝐺(-1𝑆𝐴)) ∈ 𝑋) | 
| 18 | 17 | 3com23 1126 | . . . . . 6
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (𝐵𝐺(-1𝑆𝐴)) ∈ 𝑋) | 
| 19 | 1, 4 | nvcl 30681 | . . . . . 6
⊢ ((𝑈 ∈ NrmCVec ∧ (𝐵𝐺(-1𝑆𝐴)) ∈ 𝑋) → (𝑁‘(𝐵𝐺(-1𝑆𝐴))) ∈ ℝ) | 
| 20 | 11, 18, 19 | syl2anc 584 | . . . . 5
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (𝑁‘(𝐵𝐺(-1𝑆𝐴))) ∈ ℝ) | 
| 21 | 20 | renegcld 11691 | . . . 4
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → -(𝑁‘(𝐵𝐺(-1𝑆𝐴))) ∈ ℝ) | 
| 22 | 1, 2 | nvcom 30641 | . . . . . . . . 9
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ (𝐵𝐺(-1𝑆𝐴)) ∈ 𝑋) → (𝐴𝐺(𝐵𝐺(-1𝑆𝐴))) = ((𝐵𝐺(-1𝑆𝐴))𝐺𝐴)) | 
| 23 | 18, 22 | syld3an3 1410 | . . . . . . . 8
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (𝐴𝐺(𝐵𝐺(-1𝑆𝐴))) = ((𝐵𝐺(-1𝑆𝐴))𝐺𝐴)) | 
| 24 |  | simprr 772 | . . . . . . . . . . . 12
⊢ ((𝑈 ∈ NrmCVec ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋)) → 𝐵 ∈ 𝑋) | 
| 25 | 14 | adantrr 717 | . . . . . . . . . . . 12
⊢ ((𝑈 ∈ NrmCVec ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋)) → (-1𝑆𝐴) ∈ 𝑋) | 
| 26 |  | simprl 770 | . . . . . . . . . . . 12
⊢ ((𝑈 ∈ NrmCVec ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋)) → 𝐴 ∈ 𝑋) | 
| 27 | 24, 25, 26 | 3jca 1128 | . . . . . . . . . . 11
⊢ ((𝑈 ∈ NrmCVec ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋)) → (𝐵 ∈ 𝑋 ∧ (-1𝑆𝐴) ∈ 𝑋 ∧ 𝐴 ∈ 𝑋)) | 
| 28 | 1, 2 | nvass 30642 | . . . . . . . . . . 11
⊢ ((𝑈 ∈ NrmCVec ∧ (𝐵 ∈ 𝑋 ∧ (-1𝑆𝐴) ∈ 𝑋 ∧ 𝐴 ∈ 𝑋)) → ((𝐵𝐺(-1𝑆𝐴))𝐺𝐴) = (𝐵𝐺((-1𝑆𝐴)𝐺𝐴))) | 
| 29 | 27, 28 | syldan 591 | . . . . . . . . . 10
⊢ ((𝑈 ∈ NrmCVec ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋)) → ((𝐵𝐺(-1𝑆𝐴))𝐺𝐴) = (𝐵𝐺((-1𝑆𝐴)𝐺𝐴))) | 
| 30 | 29 | 3impb 1114 | . . . . . . . . 9
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → ((𝐵𝐺(-1𝑆𝐴))𝐺𝐴) = (𝐵𝐺((-1𝑆𝐴)𝐺𝐴))) | 
| 31 |  | eqid 2736 | . . . . . . . . . . . 12
⊢
(0vec‘𝑈) = (0vec‘𝑈) | 
| 32 | 1, 2, 3, 31 | nvlinv 30672 | . . . . . . . . . . 11
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋) → ((-1𝑆𝐴)𝐺𝐴) = (0vec‘𝑈)) | 
| 33 | 32 | 3adant3 1132 | . . . . . . . . . 10
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → ((-1𝑆𝐴)𝐺𝐴) = (0vec‘𝑈)) | 
| 34 | 33 | oveq2d 7448 | . . . . . . . . 9
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (𝐵𝐺((-1𝑆𝐴)𝐺𝐴)) = (𝐵𝐺(0vec‘𝑈))) | 
| 35 | 1, 2, 31 | nv0rid 30655 | . . . . . . . . . 10
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐵 ∈ 𝑋) → (𝐵𝐺(0vec‘𝑈)) = 𝐵) | 
| 36 | 35 | 3adant2 1131 | . . . . . . . . 9
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (𝐵𝐺(0vec‘𝑈)) = 𝐵) | 
| 37 | 30, 34, 36 | 3eqtrd 2780 | . . . . . . . 8
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → ((𝐵𝐺(-1𝑆𝐴))𝐺𝐴) = 𝐵) | 
| 38 | 23, 37 | eqtrd 2776 | . . . . . . 7
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (𝐴𝐺(𝐵𝐺(-1𝑆𝐴))) = 𝐵) | 
| 39 | 38 | fveq2d 6909 | . . . . . 6
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (𝑁‘(𝐴𝐺(𝐵𝐺(-1𝑆𝐴)))) = (𝑁‘𝐵)) | 
| 40 | 1, 2, 4 | nvtri 30690 | . . . . . . 7
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ (𝐵𝐺(-1𝑆𝐴)) ∈ 𝑋) → (𝑁‘(𝐴𝐺(𝐵𝐺(-1𝑆𝐴)))) ≤ ((𝑁‘𝐴) + (𝑁‘(𝐵𝐺(-1𝑆𝐴))))) | 
| 41 | 18, 40 | syld3an3 1410 | . . . . . 6
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (𝑁‘(𝐴𝐺(𝐵𝐺(-1𝑆𝐴)))) ≤ ((𝑁‘𝐴) + (𝑁‘(𝐵𝐺(-1𝑆𝐴))))) | 
| 42 | 39, 41 | eqbrtrrd 5166 | . . . . 5
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (𝑁‘𝐵) ≤ ((𝑁‘𝐴) + (𝑁‘(𝐵𝐺(-1𝑆𝐴))))) | 
| 43 | 10 | recnd 11290 | . . . . . 6
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (𝑁‘𝐴) ∈ ℂ) | 
| 44 | 20 | recnd 11290 | . . . . . 6
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (𝑁‘(𝐵𝐺(-1𝑆𝐴))) ∈ ℂ) | 
| 45 | 43, 44 | subnegd 11628 | . . . . 5
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → ((𝑁‘𝐴) − -(𝑁‘(𝐵𝐺(-1𝑆𝐴)))) = ((𝑁‘𝐴) + (𝑁‘(𝐵𝐺(-1𝑆𝐴))))) | 
| 46 | 42, 45 | breqtrrd 5170 | . . . 4
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (𝑁‘𝐵) ≤ ((𝑁‘𝐴) − -(𝑁‘(𝐵𝐺(-1𝑆𝐴))))) | 
| 47 | 8, 10, 21, 46 | lesubd 11868 | . . 3
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → -(𝑁‘(𝐵𝐺(-1𝑆𝐴))) ≤ ((𝑁‘𝐴) − (𝑁‘𝐵))) | 
| 48 | 6, 47 | eqbrtrd 5164 | . 2
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → -(𝑁‘(𝐴𝐺(-1𝑆𝐵))) ≤ ((𝑁‘𝐴) − (𝑁‘𝐵))) | 
| 49 |  | simp2 1137 | . . . . . . 7
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → 𝐴 ∈ 𝑋) | 
| 50 | 1, 3 | nvscl 30646 | . . . . . . . . 9
⊢ ((𝑈 ∈ NrmCVec ∧ -1 ∈
ℂ ∧ 𝐵 ∈
𝑋) → (-1𝑆𝐵) ∈ 𝑋) | 
| 51 | 12, 50 | mp3an2 1450 | . . . . . . . 8
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐵 ∈ 𝑋) → (-1𝑆𝐵) ∈ 𝑋) | 
| 52 | 51 | 3adant2 1131 | . . . . . . 7
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (-1𝑆𝐵) ∈ 𝑋) | 
| 53 |  | simp3 1138 | . . . . . . 7
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → 𝐵 ∈ 𝑋) | 
| 54 | 1, 2 | nvass 30642 | . . . . . . 7
⊢ ((𝑈 ∈ NrmCVec ∧ (𝐴 ∈ 𝑋 ∧ (-1𝑆𝐵) ∈ 𝑋 ∧ 𝐵 ∈ 𝑋)) → ((𝐴𝐺(-1𝑆𝐵))𝐺𝐵) = (𝐴𝐺((-1𝑆𝐵)𝐺𝐵))) | 
| 55 | 11, 49, 52, 53, 54 | syl13anc 1373 | . . . . . 6
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → ((𝐴𝐺(-1𝑆𝐵))𝐺𝐵) = (𝐴𝐺((-1𝑆𝐵)𝐺𝐵))) | 
| 56 | 1, 2, 3, 31 | nvlinv 30672 | . . . . . . . 8
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐵 ∈ 𝑋) → ((-1𝑆𝐵)𝐺𝐵) = (0vec‘𝑈)) | 
| 57 | 56 | 3adant2 1131 | . . . . . . 7
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → ((-1𝑆𝐵)𝐺𝐵) = (0vec‘𝑈)) | 
| 58 | 57 | oveq2d 7448 | . . . . . 6
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (𝐴𝐺((-1𝑆𝐵)𝐺𝐵)) = (𝐴𝐺(0vec‘𝑈))) | 
| 59 | 1, 2, 31 | nv0rid 30655 | . . . . . . 7
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋) → (𝐴𝐺(0vec‘𝑈)) = 𝐴) | 
| 60 | 59 | 3adant3 1132 | . . . . . 6
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (𝐴𝐺(0vec‘𝑈)) = 𝐴) | 
| 61 | 55, 58, 60 | 3eqtrd 2780 | . . . . 5
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → ((𝐴𝐺(-1𝑆𝐵))𝐺𝐵) = 𝐴) | 
| 62 | 61 | fveq2d 6909 | . . . 4
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (𝑁‘((𝐴𝐺(-1𝑆𝐵))𝐺𝐵)) = (𝑁‘𝐴)) | 
| 63 | 1, 2 | nvgcl 30640 | . . . . . 6
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ (-1𝑆𝐵) ∈ 𝑋) → (𝐴𝐺(-1𝑆𝐵)) ∈ 𝑋) | 
| 64 | 52, 63 | syld3an3 1410 | . . . . 5
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (𝐴𝐺(-1𝑆𝐵)) ∈ 𝑋) | 
| 65 | 1, 2, 4 | nvtri 30690 | . . . . 5
⊢ ((𝑈 ∈ NrmCVec ∧ (𝐴𝐺(-1𝑆𝐵)) ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (𝑁‘((𝐴𝐺(-1𝑆𝐵))𝐺𝐵)) ≤ ((𝑁‘(𝐴𝐺(-1𝑆𝐵))) + (𝑁‘𝐵))) | 
| 66 | 64, 65 | syld3an2 1412 | . . . 4
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (𝑁‘((𝐴𝐺(-1𝑆𝐵))𝐺𝐵)) ≤ ((𝑁‘(𝐴𝐺(-1𝑆𝐵))) + (𝑁‘𝐵))) | 
| 67 | 62, 66 | eqbrtrrd 5166 | . . 3
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (𝑁‘𝐴) ≤ ((𝑁‘(𝐴𝐺(-1𝑆𝐵))) + (𝑁‘𝐵))) | 
| 68 | 1, 4 | nvcl 30681 | . . . . 5
⊢ ((𝑈 ∈ NrmCVec ∧ (𝐴𝐺(-1𝑆𝐵)) ∈ 𝑋) → (𝑁‘(𝐴𝐺(-1𝑆𝐵))) ∈ ℝ) | 
| 69 | 11, 64, 68 | syl2anc 584 | . . . 4
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (𝑁‘(𝐴𝐺(-1𝑆𝐵))) ∈ ℝ) | 
| 70 | 10, 8, 69 | lesubaddd 11861 | . . 3
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (((𝑁‘𝐴) − (𝑁‘𝐵)) ≤ (𝑁‘(𝐴𝐺(-1𝑆𝐵))) ↔ (𝑁‘𝐴) ≤ ((𝑁‘(𝐴𝐺(-1𝑆𝐵))) + (𝑁‘𝐵)))) | 
| 71 | 67, 70 | mpbird 257 | . 2
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → ((𝑁‘𝐴) − (𝑁‘𝐵)) ≤ (𝑁‘(𝐴𝐺(-1𝑆𝐵)))) | 
| 72 | 10, 8 | resubcld 11692 | . . 3
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → ((𝑁‘𝐴) − (𝑁‘𝐵)) ∈ ℝ) | 
| 73 | 72, 69 | absled 15470 | . 2
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → ((abs‘((𝑁‘𝐴) − (𝑁‘𝐵))) ≤ (𝑁‘(𝐴𝐺(-1𝑆𝐵))) ↔ (-(𝑁‘(𝐴𝐺(-1𝑆𝐵))) ≤ ((𝑁‘𝐴) − (𝑁‘𝐵)) ∧ ((𝑁‘𝐴) − (𝑁‘𝐵)) ≤ (𝑁‘(𝐴𝐺(-1𝑆𝐵)))))) | 
| 74 | 48, 71, 73 | mpbir2and 713 | 1
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (abs‘((𝑁‘𝐴) − (𝑁‘𝐵))) ≤ (𝑁‘(𝐴𝐺(-1𝑆𝐵)))) |