singleton ::
  Unit a -> Vector a -> LeftTransformation a
singleton a v =
  LeftTransformation (1 + V.length v) $
    V.singleton $ LeftTransformationColumn 0 a v
singleton ::
  Unit a -> Vector a -> LeftTransformation a
singleton a v =
  LeftTransformation (1 + V.length v) $
    V.singleton $ LeftTransformationColumn 0 a v
singleton a v =
  LeftTransformation (1 + V.length v) $
    V.singleton $ LeftTransformationColumn 0 a v