Simplified proof because of better simplifier.
authornipkow
Thu, 16 Oct 1997 14:12:58 +0200
changeset 3897 7cd00b628e32
parent 3896 ee8ebb74ec00
child 3898 f6bf42312e9e
Simplified proof because of better simplifier.
src/HOL/MiniML/Type.ML
--- a/src/HOL/MiniML/Type.ML	Thu Oct 16 14:12:15 1997 +0200
+++ b/src/HOL/MiniML/Type.ML	Thu Oct 16 14:12:58 1997 +0200
@@ -26,7 +26,6 @@
 by (typ.induct_tac "t'" 1);
  by (Simp_tac 1);
 by (Asm_full_simp_tac 1);
-by (Fast_tac 1);
 qed_spec_mp "mk_scheme_injective";
 
 goal thy "!!t. free_tv (mk_scheme t) = free_tv t";