diff -r 44a5388d1d30 -r 273f57049bd1 Nominal-General/nominal_library.ML --- a/Nominal-General/nominal_library.ML Mon Jul 19 08:55:49 2010 +0100 +++ b/Nominal-General/nominal_library.ML Tue Jul 20 06:14:16 2010 +0100 @@ -61,7 +61,7 @@ fun last2 [] = raise Empty | last2 [_] = raise Empty - | last2 [x, y] = (x,y) + | last2 [x, y] = (x, y) | last2 (_ :: xs) = last2 xs fun dest_listT (Type (@{type_name list}, [T])) = T