<ℚ+*> ∈ Rng
{ (MemTypeCD THENA Auto) }
<ℚ+*> ∈ RngSig
.....set predicate..... 
IsRing(|<ℚ+*>|;+<ℚ+*>0;-<ℚ+*>*;1)