src/HOL/simpdata.ML
changeset 4189 b8c7a6bc6c16
parent 4188 1025a27b08f9
child 4205 96632970d203
     1.1 --- a/src/HOL/simpdata.ML	Fri Nov 07 18:02:15 1997 +0100
     1.2 +++ b/src/HOL/simpdata.ML	Fri Nov 07 18:05:25 1997 +0100
     1.3 @@ -364,6 +364,9 @@
     1.4  fun split_inside_tac splits = mktac (map mk_meta_eq splits)
     1.5  end;
     1.6  
     1.7 +val split_prem_tac = mk_case_split_prem_tac split_tac disjE conjE exE contrapos
     1.8 +					    contrapos2 notnotD;
     1.9 +
    1.10  infix 4 addsplits;
    1.11  fun ss addsplits splits = ss addloop (split_tac splits);
    1.12