List.ML

--- a/List.ML	Wed Dec 14 10:32:07 1994 +0100
+++ b/List.ML	Wed Dec 14 11:17:18 1994 +0100
@@ -10,10 +10,10 @@
 
 val [Nil_not_Cons,Cons_not_Nil] = list.distinct;
 
-bind_thm("Cons_neq_Nil", standard (Cons_not_Nil RS notE));
+bind_thm("Cons_neq_Nil", Cons_not_Nil RS notE);
 bind_thm("Nil_neq_Cons", sym RS Cons_neq_Nil);
 
-bind_thm("Cons_inject", standard ((hd list.inject) RS iffD1 RS conjE));
+bind_thm("Cons_inject", (hd list.inject) RS iffD1 RS conjE);
 
 val list_ss = HOL_ss addsimps list.simps;