author | wenzelm |
Thu, 04 Oct 2001 15:40:31 +0200 | |
changeset 11684 | abd396ca7ef9 |
parent 11683 | f2268239b93f |
child 11685 | c786d9ce558e |
--- a/src/HOL/simpdata.ML Thu Oct 04 15:40:05 2001 +0200 +++ b/src/HOL/simpdata.ML Thu Oct 04 15:40:31 2001 +0200 @@ -390,8 +390,6 @@ addsplits [split_if]; fun hol_simplify rews = Simplifier.full_simplify (HOL_basic_ss addsimps rews); -fun hol_rewrite_cterm rews = - #2 o Thm.dest_comb o #prop o Thm.crep_thm o Simplifier.full_rewrite (HOL_basic_ss addsimps rews); (*Simplifies x assuming c and y assuming ~c*)