src/FOL/simpdata.ML
changeset 4189 b8c7a6bc6c16
parent 4188 1025a27b08f9
child 4203 ca73de799b73
     1.1 --- a/src/FOL/simpdata.ML	Fri Nov 07 18:02:15 1997 +0100
     1.2 +++ b/src/FOL/simpdata.ML	Fri Nov 07 18:05:25 1997 +0100
     1.3 @@ -183,6 +183,8 @@
     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  (*** Standard simpsets ***)
    1.11