One, Multiplication with rational elements

- fixed bug in One( IsElementOfGradedRelativeRingRep )
- added mulitplication( IsRat, IsElementOfGradedRelativeRingRep )