src/FOL/simpdata.ML
changeset 4203 ca73de799b73
parent 4189 b8c7a6bc6c16
child 4325 e72cba5af6c5
     1.1 --- a/src/FOL/simpdata.ML	Wed Nov 12 12:22:56 1997 +0100
     1.2 +++ b/src/FOL/simpdata.ML	Wed Nov 12 12:23:37 1997 +0100
     1.3 @@ -183,8 +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 +val split_asm_tac = mk_case_split_asm_tac split_tac 
    1.10 +			(disjE,conjE,exE,contrapos,contrapos2,notnotD);
    1.11  
    1.12  (*** Standard simpsets ***)
    1.13