src/HOL/Import/import_package.ML
changeset 17626 1c1557f7ae5c
parent 17490 ec62f340e811
child 17644 bd59bfd4bf37
--- a/src/HOL/Import/import_package.ML	Sat Sep 24 13:11:05 2005 +0200
+++ b/src/HOL/Import/import_package.ML	Sat Sep 24 13:26:40 2005 +0200
@@ -39,7 +39,6 @@
      fn thy =>
      fn th =>
 	let
-	    val message = writeln
             val sg = sign_of_thm th
 	    val prem = hd (prems_of th)
 	    val _ = message ("Import trying to prove " ^ (string_of_cterm (cterm_of sg prem)))