Proof of Theorem normlem9at
Step | Hyp | Ref
| Expression |
1 | | oveq1 7262 |
. . . 4
⊢ (𝐴 = if(𝐴 ∈ ℋ, 𝐴, 0ℎ) → (𝐴 −ℎ
𝐵) = (if(𝐴 ∈ ℋ, 𝐴, 0ℎ)
−ℎ 𝐵)) |
2 | 1, 1 | oveq12d 7273 |
. . 3
⊢ (𝐴 = if(𝐴 ∈ ℋ, 𝐴, 0ℎ) → ((𝐴 −ℎ
𝐵)
·ih (𝐴 −ℎ 𝐵)) = ((if(𝐴 ∈ ℋ, 𝐴, 0ℎ)
−ℎ 𝐵) ·ih
(if(𝐴 ∈ ℋ, 𝐴, 0ℎ)
−ℎ 𝐵))) |
3 | | id 22 |
. . . . . 6
⊢ (𝐴 = if(𝐴 ∈ ℋ, 𝐴, 0ℎ) → 𝐴 = if(𝐴 ∈ ℋ, 𝐴, 0ℎ)) |
4 | 3, 3 | oveq12d 7273 |
. . . . 5
⊢ (𝐴 = if(𝐴 ∈ ℋ, 𝐴, 0ℎ) → (𝐴
·ih 𝐴) = (if(𝐴 ∈ ℋ, 𝐴, 0ℎ)
·ih if(𝐴 ∈ ℋ, 𝐴, 0ℎ))) |
5 | 4 | oveq1d 7270 |
. . . 4
⊢ (𝐴 = if(𝐴 ∈ ℋ, 𝐴, 0ℎ) → ((𝐴
·ih 𝐴) + (𝐵 ·ih 𝐵)) = ((if(𝐴 ∈ ℋ, 𝐴, 0ℎ)
·ih if(𝐴 ∈ ℋ, 𝐴, 0ℎ)) + (𝐵
·ih 𝐵))) |
6 | | oveq1 7262 |
. . . . 5
⊢ (𝐴 = if(𝐴 ∈ ℋ, 𝐴, 0ℎ) → (𝐴
·ih 𝐵) = (if(𝐴 ∈ ℋ, 𝐴, 0ℎ)
·ih 𝐵)) |
7 | | oveq2 7263 |
. . . . 5
⊢ (𝐴 = if(𝐴 ∈ ℋ, 𝐴, 0ℎ) → (𝐵
·ih 𝐴) = (𝐵 ·ih
if(𝐴 ∈ ℋ, 𝐴,
0ℎ))) |
8 | 6, 7 | oveq12d 7273 |
. . . 4
⊢ (𝐴 = if(𝐴 ∈ ℋ, 𝐴, 0ℎ) → ((𝐴
·ih 𝐵) + (𝐵 ·ih 𝐴)) = ((if(𝐴 ∈ ℋ, 𝐴, 0ℎ)
·ih 𝐵) + (𝐵 ·ih
if(𝐴 ∈ ℋ, 𝐴,
0ℎ)))) |
9 | 5, 8 | oveq12d 7273 |
. . 3
⊢ (𝐴 = if(𝐴 ∈ ℋ, 𝐴, 0ℎ) → (((𝐴
·ih 𝐴) + (𝐵 ·ih 𝐵)) − ((𝐴 ·ih 𝐵) + (𝐵 ·ih 𝐴))) = (((if(𝐴 ∈ ℋ, 𝐴, 0ℎ)
·ih if(𝐴 ∈ ℋ, 𝐴, 0ℎ)) + (𝐵
·ih 𝐵)) − ((if(𝐴 ∈ ℋ, 𝐴, 0ℎ)
·ih 𝐵) + (𝐵 ·ih
if(𝐴 ∈ ℋ, 𝐴,
0ℎ))))) |
10 | 2, 9 | eqeq12d 2754 |
. 2
⊢ (𝐴 = if(𝐴 ∈ ℋ, 𝐴, 0ℎ) → (((𝐴 −ℎ
𝐵)
·ih (𝐴 −ℎ 𝐵)) = (((𝐴 ·ih 𝐴) + (𝐵 ·ih 𝐵)) − ((𝐴 ·ih 𝐵) + (𝐵 ·ih 𝐴))) ↔ ((if(𝐴 ∈ ℋ, 𝐴, 0ℎ)
−ℎ 𝐵) ·ih
(if(𝐴 ∈ ℋ, 𝐴, 0ℎ)
−ℎ 𝐵)) = (((if(𝐴 ∈ ℋ, 𝐴, 0ℎ)
·ih if(𝐴 ∈ ℋ, 𝐴, 0ℎ)) + (𝐵
·ih 𝐵)) − ((if(𝐴 ∈ ℋ, 𝐴, 0ℎ)
·ih 𝐵) + (𝐵 ·ih
if(𝐴 ∈ ℋ, 𝐴,
0ℎ)))))) |
11 | | oveq2 7263 |
. . . 4
⊢ (𝐵 = if(𝐵 ∈ ℋ, 𝐵, 0ℎ) → (if(𝐴 ∈ ℋ, 𝐴, 0ℎ)
−ℎ 𝐵) = (if(𝐴 ∈ ℋ, 𝐴, 0ℎ)
−ℎ if(𝐵 ∈ ℋ, 𝐵, 0ℎ))) |
12 | 11, 11 | oveq12d 7273 |
. . 3
⊢ (𝐵 = if(𝐵 ∈ ℋ, 𝐵, 0ℎ) → ((if(𝐴 ∈ ℋ, 𝐴, 0ℎ)
−ℎ 𝐵) ·ih
(if(𝐴 ∈ ℋ, 𝐴, 0ℎ)
−ℎ 𝐵)) = ((if(𝐴 ∈ ℋ, 𝐴, 0ℎ)
−ℎ if(𝐵 ∈ ℋ, 𝐵, 0ℎ))
·ih (if(𝐴 ∈ ℋ, 𝐴, 0ℎ)
−ℎ if(𝐵 ∈ ℋ, 𝐵, 0ℎ)))) |
13 | | id 22 |
. . . . . 6
⊢ (𝐵 = if(𝐵 ∈ ℋ, 𝐵, 0ℎ) → 𝐵 = if(𝐵 ∈ ℋ, 𝐵, 0ℎ)) |
14 | 13, 13 | oveq12d 7273 |
. . . . 5
⊢ (𝐵 = if(𝐵 ∈ ℋ, 𝐵, 0ℎ) → (𝐵
·ih 𝐵) = (if(𝐵 ∈ ℋ, 𝐵, 0ℎ)
·ih if(𝐵 ∈ ℋ, 𝐵, 0ℎ))) |
15 | 14 | oveq2d 7271 |
. . . 4
⊢ (𝐵 = if(𝐵 ∈ ℋ, 𝐵, 0ℎ) → ((if(𝐴 ∈ ℋ, 𝐴, 0ℎ)
·ih if(𝐴 ∈ ℋ, 𝐴, 0ℎ)) + (𝐵
·ih 𝐵)) = ((if(𝐴 ∈ ℋ, 𝐴, 0ℎ)
·ih if(𝐴 ∈ ℋ, 𝐴, 0ℎ)) + (if(𝐵 ∈ ℋ, 𝐵, 0ℎ)
·ih if(𝐵 ∈ ℋ, 𝐵, 0ℎ)))) |
16 | | oveq2 7263 |
. . . . 5
⊢ (𝐵 = if(𝐵 ∈ ℋ, 𝐵, 0ℎ) → (if(𝐴 ∈ ℋ, 𝐴, 0ℎ)
·ih 𝐵) = (if(𝐴 ∈ ℋ, 𝐴, 0ℎ)
·ih if(𝐵 ∈ ℋ, 𝐵, 0ℎ))) |
17 | | oveq1 7262 |
. . . . 5
⊢ (𝐵 = if(𝐵 ∈ ℋ, 𝐵, 0ℎ) → (𝐵
·ih if(𝐴 ∈ ℋ, 𝐴, 0ℎ)) = (if(𝐵 ∈ ℋ, 𝐵, 0ℎ)
·ih if(𝐴 ∈ ℋ, 𝐴, 0ℎ))) |
18 | 16, 17 | oveq12d 7273 |
. . . 4
⊢ (𝐵 = if(𝐵 ∈ ℋ, 𝐵, 0ℎ) → ((if(𝐴 ∈ ℋ, 𝐴, 0ℎ)
·ih 𝐵) + (𝐵 ·ih
if(𝐴 ∈ ℋ, 𝐴, 0ℎ))) =
((if(𝐴 ∈ ℋ,
𝐴, 0ℎ)
·ih if(𝐵 ∈ ℋ, 𝐵, 0ℎ)) + (if(𝐵 ∈ ℋ, 𝐵, 0ℎ)
·ih if(𝐴 ∈ ℋ, 𝐴, 0ℎ)))) |
19 | 15, 18 | oveq12d 7273 |
. . 3
⊢ (𝐵 = if(𝐵 ∈ ℋ, 𝐵, 0ℎ) → (((if(𝐴 ∈ ℋ, 𝐴, 0ℎ)
·ih if(𝐴 ∈ ℋ, 𝐴, 0ℎ)) + (𝐵
·ih 𝐵)) − ((if(𝐴 ∈ ℋ, 𝐴, 0ℎ)
·ih 𝐵) + (𝐵 ·ih
if(𝐴 ∈ ℋ, 𝐴, 0ℎ)))) =
(((if(𝐴 ∈ ℋ,
𝐴, 0ℎ)
·ih if(𝐴 ∈ ℋ, 𝐴, 0ℎ)) + (if(𝐵 ∈ ℋ, 𝐵, 0ℎ)
·ih if(𝐵 ∈ ℋ, 𝐵, 0ℎ))) − ((if(𝐴 ∈ ℋ, 𝐴, 0ℎ)
·ih if(𝐵 ∈ ℋ, 𝐵, 0ℎ)) + (if(𝐵 ∈ ℋ, 𝐵, 0ℎ)
·ih if(𝐴 ∈ ℋ, 𝐴, 0ℎ))))) |
20 | 12, 19 | eqeq12d 2754 |
. 2
⊢ (𝐵 = if(𝐵 ∈ ℋ, 𝐵, 0ℎ) → (((if(𝐴 ∈ ℋ, 𝐴, 0ℎ)
−ℎ 𝐵) ·ih
(if(𝐴 ∈ ℋ, 𝐴, 0ℎ)
−ℎ 𝐵)) = (((if(𝐴 ∈ ℋ, 𝐴, 0ℎ)
·ih if(𝐴 ∈ ℋ, 𝐴, 0ℎ)) + (𝐵
·ih 𝐵)) − ((if(𝐴 ∈ ℋ, 𝐴, 0ℎ)
·ih 𝐵) + (𝐵 ·ih
if(𝐴 ∈ ℋ, 𝐴, 0ℎ))))
↔ ((if(𝐴 ∈
ℋ, 𝐴,
0ℎ) −ℎ if(𝐵 ∈ ℋ, 𝐵, 0ℎ))
·ih (if(𝐴 ∈ ℋ, 𝐴, 0ℎ)
−ℎ if(𝐵 ∈ ℋ, 𝐵, 0ℎ))) = (((if(𝐴 ∈ ℋ, 𝐴, 0ℎ)
·ih if(𝐴 ∈ ℋ, 𝐴, 0ℎ)) + (if(𝐵 ∈ ℋ, 𝐵, 0ℎ)
·ih if(𝐵 ∈ ℋ, 𝐵, 0ℎ))) − ((if(𝐴 ∈ ℋ, 𝐴, 0ℎ)
·ih if(𝐵 ∈ ℋ, 𝐵, 0ℎ)) + (if(𝐵 ∈ ℋ, 𝐵, 0ℎ)
·ih if(𝐴 ∈ ℋ, 𝐴,
0ℎ)))))) |
21 | | ifhvhv0 29285 |
. . 3
⊢ if(𝐴 ∈ ℋ, 𝐴, 0ℎ) ∈
ℋ |
22 | | ifhvhv0 29285 |
. . 3
⊢ if(𝐵 ∈ ℋ, 𝐵, 0ℎ) ∈
ℋ |
23 | 21, 22, 21, 22 | normlem9 29381 |
. 2
⊢
((if(𝐴 ∈
ℋ, 𝐴,
0ℎ) −ℎ if(𝐵 ∈ ℋ, 𝐵, 0ℎ))
·ih (if(𝐴 ∈ ℋ, 𝐴, 0ℎ)
−ℎ if(𝐵 ∈ ℋ, 𝐵, 0ℎ))) = (((if(𝐴 ∈ ℋ, 𝐴, 0ℎ)
·ih if(𝐴 ∈ ℋ, 𝐴, 0ℎ)) + (if(𝐵 ∈ ℋ, 𝐵, 0ℎ)
·ih if(𝐵 ∈ ℋ, 𝐵, 0ℎ))) − ((if(𝐴 ∈ ℋ, 𝐴, 0ℎ)
·ih if(𝐵 ∈ ℋ, 𝐵, 0ℎ)) + (if(𝐵 ∈ ℋ, 𝐵, 0ℎ)
·ih if(𝐴 ∈ ℋ, 𝐴, 0ℎ)))) |
24 | 10, 20, 23 | dedth2h 4515 |
1
⊢ ((𝐴 ∈ ℋ ∧ 𝐵 ∈ ℋ) → ((𝐴 −ℎ
𝐵)
·ih (𝐴 −ℎ 𝐵)) = (((𝐴 ·ih 𝐴) + (𝐵 ·ih 𝐵)) − ((𝐴 ·ih 𝐵) + (𝐵 ·ih 𝐴)))) |