let V be Z_Module; :: thesis: for W being with_Linear_Compl Submodule of V
for L being Linear_Compl of W
for v being VECTOR of V holds (v |-- (W,L)) `2 = (v |-- (L,W)) `1

let W be with_Linear_Compl Submodule of V; :: thesis: for L being Linear_Compl of W
for v being VECTOR of V holds (v |-- (W,L)) `2 = (v |-- (L,W)) `1

let L be Linear_Compl of W; :: thesis: for v being VECTOR of V holds (v |-- (W,L)) `2 = (v |-- (L,W)) `1
V is_the_direct_sum_of W,L by Th124;
hence for v being VECTOR of V holds (v |-- (W,L)) `2 = (v |-- (L,W)) `1 by Th137; :: thesis: verum