Metamath Proof Explorer


Theorem hocsubdir

Description: Distributive law for Hilbert space operator difference. (Contributed by NM, 23-Aug-2006) (New usage is discouraged.)

Ref Expression
Assertion hocsubdir ⊢ R : ℋ ⟶ ℋ ∧ S : ℋ ⟶ ℋ ∧ T : ℋ ⟶ ℋ → R - op S ∘ T = R ∘ T - op S ∘ T

Proof

Step Hyp Ref Expression
1 oveq1 ⊢ R = if R : ℋ ⟶ ℋ R 0 hop → R - op S = if R : ℋ ⟶ ℋ R 0 hop - op S
2 1 coeq1d ⊢ R = if R : ℋ ⟶ ℋ R 0 hop → R - op S ∘ T = if R : ℋ ⟶ ℋ R 0 hop - op S ∘ T
3 coeq1 ⊢ R = if R : ℋ ⟶ ℋ R 0 hop → R ∘ T = if R : ℋ ⟶ ℋ R 0 hop ∘ T
4 3 oveq1d ⊢ R = if R : ℋ ⟶ ℋ R 0 hop → R ∘ T - op S ∘ T = if R : ℋ ⟶ ℋ R 0 hop ∘ T - op S ∘ T
5 2 4 eqeq12d ⊢ R = if R : ℋ ⟶ ℋ R 0 hop → R - op S ∘ T = R ∘ T - op S ∘ T ↔ if R : ℋ ⟶ ℋ R 0 hop - op S ∘ T = if R : ℋ ⟶ ℋ R 0 hop ∘ T - op S ∘ T
6 oveq2 ⊢ S = if S : ℋ ⟶ ℋ S 0 hop → if R : ℋ ⟶ ℋ R 0 hop - op S = if R : ℋ ⟶ ℋ R 0 hop - op if S : ℋ ⟶ ℋ S 0 hop
7 6 coeq1d ⊢ S = if S : ℋ ⟶ ℋ S 0 hop → if R : ℋ ⟶ ℋ R 0 hop - op S ∘ T = if R : ℋ ⟶ ℋ R 0 hop - op if S : ℋ ⟶ ℋ S 0 hop ∘ T
8 coeq1 ⊢ S = if S : ℋ ⟶ ℋ S 0 hop → S ∘ T = if S : ℋ ⟶ ℋ S 0 hop ∘ T
9 8 oveq2d ⊢ S = if S : ℋ ⟶ ℋ S 0 hop → if R : ℋ ⟶ ℋ R 0 hop ∘ T - op S ∘ T = if R : ℋ ⟶ ℋ R 0 hop ∘ T - op if S : ℋ ⟶ ℋ S 0 hop ∘ T
10 7 9 eqeq12d ⊢ S = if S : ℋ ⟶ ℋ S 0 hop → if R : ℋ ⟶ ℋ R 0 hop - op S ∘ T = if R : ℋ ⟶ ℋ R 0 hop ∘ T - op S ∘ T ↔ if R : ℋ ⟶ ℋ R 0 hop - op if S : ℋ ⟶ ℋ S 0 hop ∘ T = if R : ℋ ⟶ ℋ R 0 hop ∘ T - op if S : ℋ ⟶ ℋ S 0 hop ∘ T
11 coeq2 ⊢ T = if T : ℋ ⟶ ℋ T 0 hop → if R : ℋ ⟶ ℋ R 0 hop - op if S : ℋ ⟶ ℋ S 0 hop ∘ T = if R : ℋ ⟶ ℋ R 0 hop - op if S : ℋ ⟶ ℋ S 0 hop ∘ if T : ℋ ⟶ ℋ T 0 hop
12 coeq2 ⊢ T = if T : ℋ ⟶ ℋ T 0 hop → if R : ℋ ⟶ ℋ R 0 hop ∘ T = if R : ℋ ⟶ ℋ R 0 hop ∘ if T : ℋ ⟶ ℋ T 0 hop
13 coeq2 ⊢ T = if T : ℋ ⟶ ℋ T 0 hop → if S : ℋ ⟶ ℋ S 0 hop ∘ T = if S : ℋ ⟶ ℋ S 0 hop ∘ if T : ℋ ⟶ ℋ T 0 hop
14 12 13 oveq12d ⊢ T = if T : ℋ ⟶ ℋ T 0 hop → if R : ℋ ⟶ ℋ R 0 hop ∘ T - op if S : ℋ ⟶ ℋ S 0 hop ∘ T = if R : ℋ ⟶ ℋ R 0 hop ∘ if T : ℋ ⟶ ℋ T 0 hop - op if S : ℋ ⟶ ℋ S 0 hop ∘ if T : ℋ ⟶ ℋ T 0 hop
15 11 14 eqeq12d ⊢ T = if T : ℋ ⟶ ℋ T 0 hop → if R : ℋ ⟶ ℋ R 0 hop - op if S : ℋ ⟶ ℋ S 0 hop ∘ T = if R : ℋ ⟶ ℋ R 0 hop ∘ T - op if S : ℋ ⟶ ℋ S 0 hop ∘ T ↔ if R : ℋ ⟶ ℋ R 0 hop - op if S : ℋ ⟶ ℋ S 0 hop ∘ if T : ℋ ⟶ ℋ T 0 hop = if R : ℋ ⟶ ℋ R 0 hop ∘ if T : ℋ ⟶ ℋ T 0 hop - op if S : ℋ ⟶ ℋ S 0 hop ∘ if T : ℋ ⟶ ℋ T 0 hop
16 ho0f ⊢ 0 hop : ℋ ⟶ ℋ
17 16 elimf ⊢ if R : ℋ ⟶ ℋ R 0 hop : ℋ ⟶ ℋ
18 16 elimf ⊢ if S : ℋ ⟶ ℋ S 0 hop : ℋ ⟶ ℋ
19 16 elimf ⊢ if T : ℋ ⟶ ℋ T 0 hop : ℋ ⟶ ℋ
20 17 18 19 hocsubdiri ⊢ if R : ℋ ⟶ ℋ R 0 hop - op if S : ℋ ⟶ ℋ S 0 hop ∘ if T : ℋ ⟶ ℋ T 0 hop = if R : ℋ ⟶ ℋ R 0 hop ∘ if T : ℋ ⟶ ℋ T 0 hop - op if S : ℋ ⟶ ℋ S 0 hop ∘ if T : ℋ ⟶ ℋ T 0 hop
21 5 10 15 20 dedth3h ⊢ R : ℋ ⟶ ℋ ∧ S : ℋ ⟶ ℋ ∧ T : ℋ ⟶ ℋ → R - op S ∘ T = R ∘ T - op S ∘ T