import Common.Real.Floor import Common.Real.Sequence