Metamath Proof Explorer


Theorem hosubcl

Description: Mapping of difference of Hilbert space operators. (Contributed by NM, 23-Aug-2006) (New usage is discouraged.)

Ref Expression
Assertion hosubcl ⊢ S : ℋ ⟶ ℋ ∧ T : ℋ ⟶ ℋ → S - op T : ℋ ⟶ ℋ

Proof

Step Hyp Ref Expression
1 oveq1 ⊢ S = if S : ℋ ⟶ ℋ S 0 hop → S - op T = if S : ℋ ⟶ ℋ S 0 hop - op T
2 1 feq1d ⊢ S = if S : ℋ ⟶ ℋ S 0 hop → S - op T : ℋ ⟶ ℋ ↔ if S : ℋ ⟶ ℋ S 0 hop - op T : ℋ ⟶ ℋ
3 oveq2 ⊢ T = if T : ℋ ⟶ ℋ T 0 hop → if S : ℋ ⟶ ℋ S 0 hop - op T = if S : ℋ ⟶ ℋ S 0 hop - op if T : ℋ ⟶ ℋ T 0 hop
4 3 feq1d ⊢ T = if T : ℋ ⟶ ℋ T 0 hop → if S : ℋ ⟶ ℋ S 0 hop - op T : ℋ ⟶ ℋ ↔ if S : ℋ ⟶ ℋ S 0 hop - op if T : ℋ ⟶ ℋ T 0 hop : ℋ ⟶ ℋ
5 ho0f ⊢ 0 hop : ℋ ⟶ ℋ
6 5 elimf ⊢ if S : ℋ ⟶ ℋ S 0 hop : ℋ ⟶ ℋ
7 5 elimf ⊢ if T : ℋ ⟶ ℋ T 0 hop : ℋ ⟶ ℋ
8 6 7 hosubcli ⊢ if S : ℋ ⟶ ℋ S 0 hop - op if T : ℋ ⟶ ℋ T 0 hop : ℋ ⟶ ℋ
9 2 4 8 dedth2h ⊢ S : ℋ ⟶ ℋ ∧ T : ℋ ⟶ ℋ → S - op T : ℋ ⟶ ℋ