diff -r 9859d69101eb -r 54ea68b5a92f src/HOL/ex/NormalForm.thy --- a/src/HOL/ex/NormalForm.thy Fri Mar 02 15:43:24 2007 +0100 +++ b/src/HOL/ex/NormalForm.thy Fri Mar 02 15:43:25 2007 +0100 @@ -104,11 +104,9 @@ lemma "(2::int) <= 3" by normalization lemma "abs ((-4::int) + 2 * 1) = 2" by normalization lemma "4 - 42 * abs (3 + (-7\int)) = -164" by normalization -normal_form "min 0 x" -normal_form "min 0 (x::nat)" lemma "(if (0\nat) \ (x\nat) then 0\nat else x) = 0" by normalization - -normal_form "nat 4 = Suc (Suc (Suc (Suc 0)))" +lemma "4 = Suc (Suc (Suc (Suc 0)))" by normalization +lemma "nat 4 = Suc (Suc (Suc (Suc 0)))" by normalization normal_form "Suc 0 \ set ms"