changeset 10648 | a8c647cfa31f |
parent 10606 | e3229a37d53f |
child 10752 | c4f1bf2acf4c |
--- a/src/HOL/Real/RealDef.thy Tue Dec 12 11:59:25 2000 +0100 +++ b/src/HOL/Real/RealDef.thy Tue Dec 12 12:01:19 2000 +0100 @@ -37,7 +37,7 @@ "R - (S::real) == R + - S" real_inverse_def - "inverse (R::real) == (@S. R ~= 0 & S*R = 1r)" + "inverse (R::real) == (SOME S. (R = 0 & S = 0) | S * R = 1r)" real_divide_def "R / (S::real) == R * inverse S"