Proof of Theorem hstoht
| Step | Hyp | Ref
| Expression |
| 1 | | his7t 8951 |
. . . . . . . 8
⊢ (((S ‘A)
∈ ℋ ⋀ (S
‘A) ∈ ℋ ⋀ (S
‘(⊥ ‘A)) ∈ ℋ ) → ((S
‘A)
·ih ((S
‘A) +h (S ‘(⊥
‘A)))) = (((S ‘A)
·ih (S
‘A)) + ((S ‘A)
·ih (S
‘(⊥ ‘A))))) |
| 2 | | hstclt 10139 |
. . . . . . . 8
⊢ ((S ∈ CHStates ⋀ A ∈ Cℋ ) → (S ‘A)
∈ ℋ
) |
| 3 | | hstclt 10139 |
. . . . . . . . 9
⊢ ((S ∈ CHStates ⋀ (⊥
‘A) ∈ Cℋ ) → (S ‘(⊥
‘A)) ∈ ℋ ) |
| 4 | | chocclt 9179 |
. . . . . . . . 9
⊢ (A ∈ Cℋ → (⊥ ‘A)
∈ Cℋ ) |
| 5 | 3, 4 | sylan2 453 |
. . . . . . . 8
⊢ ((S ∈ CHStates ⋀ A ∈ Cℋ ) → (S ‘(⊥
‘A)) ∈ ℋ ) |
| 6 | 1, 2, 2, 5 | syl3anc 860 |
. . . . . . 7
⊢ ((S ∈ CHStates ⋀ A ∈ Cℋ ) → ((S ‘A)
·ih ((S
‘A) +h (S ‘(⊥
‘A)))) = (((S ‘A)
·ih (S
‘A)) + ((S ‘A)
·ih (S
‘(⊥ ‘A))))) |
| 7 | | normsqt 8996 |
. . . . . . . . . 10
⊢ ((S ‘A)
∈ ℋ →
((normh ‘(S
‘A))↑2) = ((S ‘A)
·ih (S
‘A))) |
| 8 | 2, 7 | syl 10 |
. . . . . . . . 9
⊢ ((S ∈ CHStates ⋀ A ∈ Cℋ ) →
((normh ‘(S
‘A))↑2) = ((S ‘A)
·ih (S
‘A))) |
| 9 | 8 | eqcomd 1483 |
. . . . . . . 8
⊢ ((S ∈ CHStates ⋀ A ∈ Cℋ ) → ((S ‘A)
·ih (S
‘A)) = ((normh
‘(S ‘A))↑2)) |
| 10 | | ococt 9243 |
. . . . . . . . . . . 12
⊢ (A ∈ Cℋ → (⊥ ‘(⊥
‘A)) = A) |
| 11 | | eqimss2 2113 |
. . . . . . . . . . . 12
⊢ ((⊥ ‘(⊥
‘A)) = A → A ⊆ (⊥
‘(⊥ ‘A))) |
| 12 | 10, 11 | syl 10 |
. . . . . . . . . . 11
⊢ (A ∈ Cℋ → A ⊆ (⊥ ‘(⊥
‘A))) |
| 13 | 4, 12 | jca 288 |
. . . . . . . . . 10
⊢ (A ∈ Cℋ → ((⊥ ‘A)
∈ Cℋ ⋀ A ⊆ (⊥
‘(⊥ ‘A)))) |
| 14 | 13 | adantl 390 |
. . . . . . . . 9
⊢ ((S ∈ CHStates ⋀ A ∈ Cℋ ) → ((⊥ ‘A)
∈ Cℋ ⋀ A ⊆ (⊥
‘(⊥ ‘A)))) |
| 15 | | hstortht 10142 |
. . . . . . . . 9
⊢ (((S ∈ CHStates ⋀ A ∈ Cℋ ) ⋀ ((⊥
‘A) ∈ Cℋ ⋀ A ⊆ (⊥
‘(⊥ ‘A)))) → ((S
‘A)
·ih (S
‘(⊥ ‘A))) = 0) |
| 16 | 14, 15 | mpdan 706 |
. . . . . . . 8
⊢ ((S ∈ CHStates ⋀ A ∈ Cℋ ) → ((S ‘A)
·ih (S
‘(⊥ ‘A))) = 0) |
| 17 | 9, 16 | opreq12d 3984 |
. . . . . . 7
⊢ ((S ∈ CHStates ⋀ A ∈ Cℋ ) → (((S ‘A)
·ih (S
‘A)) + ((S ‘A)
·ih (S
‘(⊥ ‘A)))) = (((normh ‘(S ‘A))↑2) + 0)) |
| 18 | | normclt 8986 |
. . . . . . . . . . 11
⊢ ((S ‘A)
∈ ℋ →
(normh ‘(S
‘A)) ∈ ℝ) |
| 19 | 2, 18 | syl 10 |
. . . . . . . . . 10
⊢ ((S ∈ CHStates ⋀ A ∈ Cℋ ) →
(normh ‘(S
‘A)) ∈ ℝ) |
| 20 | | resqclt 6622 |
. . . . . . . . . 10
⊢ ((normh
‘(S ‘A)) ∈ ℝ → ((normh
‘(S ‘A))↑2) ∈
ℝ) |
| 21 | 19, 20 | syl 10 |
. . . . . . . . 9
⊢ ((S ∈ CHStates ⋀ A ∈ Cℋ ) →
((normh ‘(S
‘A))↑2) ∈ ℝ) |
| 22 | 21 | recnd 5327 |
. . . . . . . 8
⊢ ((S ∈ CHStates ⋀ A ∈ Cℋ ) →
((normh ‘(S
‘A))↑2) ∈ ℂ) |
| 23 | | ax0id 5293 |
. . . . . . . 8
⊢ (((normh
‘(S ‘A))↑2) ∈
ℂ → (((normh
‘(S ‘A))↑2) + 0) = ((normh
‘(S ‘A))↑2)) |
| 24 | 22, 23 | syl 10 |
. . . . . . 7
⊢ ((S ∈ CHStates ⋀ A ∈ Cℋ ) →
(((normh ‘(S
‘A))↑2) + 0) =
((normh ‘(S
‘A))↑2)) |
| 25 | 6, 17, 24 | 3eqtrrd 1515 |
. . . . . 6
⊢ ((S ∈ CHStates ⋀ A ∈ Cℋ ) →
((normh ‘(S
‘A))↑2) = ((S ‘A)
·ih ((S
‘A) +h (S ‘(⊥
‘A))))) |
| 26 | | hstoct 10144 |
. . . . . . 7
⊢ ((S ∈ CHStates ⋀ A ∈ Cℋ ) → ((S ‘A)
+h (S ‘(⊥ ‘A)))
= (S ‘ ℋ )) |
| 27 | 26 | opreq2d 3982 |
. . . . . 6
⊢ ((S ∈ CHStates ⋀ A ∈ Cℋ ) → ((S ‘A)
·ih ((S
‘A) +h (S ‘(⊥
‘A)))) = ((S ‘A)
·ih (S
‘ ℋ ))) |
| 28 | 25, 27 | eqtrd 1510 |
. . . . 5
⊢ ((S ∈ CHStates ⋀ A ∈ Cℋ ) →
((normh ‘(S
‘A))↑2) = ((S ‘A)
·ih (S
‘ ℋ ))) |
| 29 | | id 59 |
. . . . 5
⊢ (((S ‘A)
·ih (S
‘ ℋ )) = 0 → ((S ‘A)
·ih (S
‘ ℋ )) = 0) |
| 30 | 28, 29 | sylan9eq 1530 |
. . . 4
⊢ (((S ∈ CHStates ⋀ A ∈ Cℋ ) ⋀ ((S
‘A)
·ih (S
‘ ℋ )) = 0) →
((normh ‘(S
‘A))↑2) = 0) |
| 31 | 30 | 3impa 830 |
. . 3
⊢ ((S ∈ CHStates ⋀ A ∈ Cℋ ⋀ ((S
‘A)
·ih (S
‘ ℋ )) = 0) →
((normh ‘(S
‘A))↑2) = 0) |
| 32 | 19 | recnd 5327 |
. . . . 5
⊢ ((S ∈ CHStates ⋀ A ∈ Cℋ ) →
(normh ‘(S
‘A)) ∈ ℂ) |
| 33 | | sqeq0t 6614 |
. . . . 5
⊢ ((normh
‘(S ‘A)) ∈ ℂ → (((normh
‘(S ‘A))↑2) = 0 ↔ (normh
‘(S ‘A)) = 0)) |
| 34 | 32, 33 | syl 10 |
. . . 4
⊢ ((S ∈ CHStates ⋀ A ∈ Cℋ ) →
(((normh ‘(S
‘A))↑2) = 0 ↔
(normh ‘(S
‘A)) = 0)) |
| 35 | 34 | 3adant3 801 |
. . 3
⊢ ((S ∈ CHStates ⋀ A ∈ Cℋ ⋀ ((S
‘A)
·ih (S
‘ ℋ )) = 0) →
(((normh ‘(S
‘A))↑2) = 0 ↔
(normh ‘(S
‘A)) = 0)) |
| 36 | 31, 35 | mpbid 195 |
. 2
⊢ ((S ∈ CHStates ⋀ A ∈ Cℋ ⋀ ((S
‘A)
·ih (S
‘ ℋ )) = 0) →
(normh ‘(S
‘A)) = 0) |
| 37 | | hst0ht 10150 |
. . 3
⊢ ((S ∈ CHStates ⋀ A ∈ Cℋ ) →
((normh ‘(S
‘A)) = 0 ↔ (S ‘A) =
0h)) |
| 38 | 37 | 3adant3 801 |
. 2
⊢ ((S ∈ CHStates ⋀ A ∈ Cℋ ⋀ ((S
‘A)
·ih (S
‘ ℋ )) = 0) →
((normh ‘(S
‘A)) = 0 ↔ (S ‘A) =
0h)) |
| 39 | 36, 38 | mpbid 195 |
1
⊢ ((S ∈ CHStates ⋀ A ∈ Cℋ ⋀ ((S
‘A)
·ih (S
‘ ℋ )) = 0) → (S ‘A) =
0h) |