author | paulson |
Sun, 23 Apr 2000 11:41:06 +0200 | |
changeset 8769 | 981ebe7f1f10 |
parent 8768 | 9f18aba48519 |
child 8770 | bfab4d4b7516 |
--- a/src/HOL/UNITY/Lift.ML Sun Apr 23 11:39:56 2000 +0200 +++ b/src/HOL/UNITY/Lift.ML Sun Apr 23 11:41:06 2000 +0200 @@ -224,9 +224,7 @@ by (Blast_tac 1); qed "E_thm16a"; -(*Must sometimes delete them because they introduce multiplication*) -val metric_ss = simpset() delsimprocs [Int_CC.sum_conv, Int_CC.rel_conv] - addsimps metric_simps; +val metric_ss = simpset() addsimps metric_simps; (*lem_lift_5_1 has ~goingup instead of goingdown*)