optVectorExpr :: (Num b) => LinearSpace a b -> LinearSpaceOpt a b
optVectorExpr x = LinearComb (vectorExpr2lc x)
optVectorExpr :: (Num b) => LinearSpace a b -> LinearSpaceOpt a b
optVectorExpr x = LinearComb (vectorExpr2lc x)
optVectorExpr x = LinearComb (vectorExpr2lc x)