vectorExpr2lc :: (Num b) => LinearSpace a b -> [(b,LinearSpace a b)]
vectorExpr2lc (Vector x)  = [(1,Vector x)]
vectorExpr2lc :: (Num b) => LinearSpace a b -> [(b,LinearSpace a b)]
vectorExpr2lc (Vector x)  = [(1,Vector x)]
vectorExpr2lc (Vector x)  = [(1,Vector x)]