Reduction of CAST from string to interval is incorrect

Consider the following SQL expression:

SELECT CAST('1' AS INTERVAL HOURS)

RexSimplify.simplifyCast reduces this to a RelLiteral with value 1 and type INTERVAL HOURS. However, the representation of short intervals should use the canonical value of the interval in milliseconds, so the correct value should be 3600000.