src/HOL/Tools/datatype_realizer.ML
changeset 23590 ad95084a5c63
parent 23577 c5b93c69afd3
child 24699 c6674504103f
     1.1 --- a/src/HOL/Tools/datatype_realizer.ML	Thu Jul 05 19:59:01 2007 +0200
     1.2 +++ b/src/HOL/Tools/datatype_realizer.ML	Thu Jul 05 20:01:26 2007 +0200
     1.3 @@ -122,7 +122,7 @@
     1.4        (fn prems =>
     1.5           [rewrite_goals_tac (map mk_meta_eq [fst_conv, snd_conv]),
     1.6            rtac (cterm_instantiate inst induction) 1,
     1.7 -          ALLGOALS ObjectLogic.atomize_tac,
     1.8 +          ALLGOALS ObjectLogic.atomize_prems_tac,
     1.9            rewrite_goals_tac (o_def :: map mk_meta_eq rec_rewrites),
    1.10            REPEAT ((resolve_tac prems THEN_ALL_NEW (fn i =>
    1.11              REPEAT (etac allE i) THEN atac i)) 1)]);