for R being Ring holds the_Values_of (SCM R) = (SCM-VAL R) * SCM-OK by Lm1;