-- | Return the lineage of frames, the last entry always being the newtonian frame
parentBasesChain :: Bases -> [Bases]
parentBasesChain NewtonianBases = [NewtonianBases]
parentBasesChain :: Bases -> [Bases]
parentBasesChain NewtonianBases = [NewtonianBases]
parentBasesChain NewtonianBases = [NewtonianBases]