(def wider-than
"If the argument is a numeric primitive Class, returns a set of primitive Classes
that are narrower than the given one"
{Long/TYPE #{Integer/TYPE Short/TYPE Byte/TYPE}
Integer/TYPE #{Short/TYPE Byte/TYPE}
Float/TYPE #{Integer/TYPE Short/TYPE Byte/TYPE Long/TYPE}
Double/TYPE #{Integer/TYPE Short/TYPE Byte/TYPE Long/TYPE Float/TYPE}
Short/TYPE #{Byte/TYPE}
Byte/TYPE #{}})