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