For internal spidr use only.
data ShapedType : Type
MkShapedType : GCAnyPtr -> ShapedType
Cast RankedTensorType ShapedType