src/HOL/thy_syntax.ML
changeset 4536 74f7c556fd90
parent 4226 38c91213f26b
child 4873 b5999638979e
     1.1 --- a/src/HOL/thy_syntax.ML	Thu Jan 08 18:09:07 1998 +0100
     1.2 +++ b/src/HOL/thy_syntax.ML	Thu Jan 08 18:09:47 1998 +0100
     1.3 @@ -169,7 +169,7 @@
     1.4      \val split_"^tname^"_case_asm = prove_goal thy (#2(split_"^tname^"_eqns))\n\
     1.5      \  (fn _ => [#exhaust_tac (datatype_info thy (Sign.intern_tycon (sign_of thy) "
     1.6        ^ quote tname ^ ")) \""^tname^"0\" 1,\n\
     1.7 -    \            ALLGOALS Asm_simp_tac]);\n\
     1.8 +    \            ALLGOALS (asm_simp_tac (simpset() delsimps [split_paired_Ex]))]);\n\
     1.9      \val thy = thy\n";
    1.10  
    1.11  (*