# HG changeset patch # User bulwahn # Date 1335780891 -7200 # Node ID 732ea1f08e3f0091d1d91a164f91f9f5df30d672 # Parent 3c54878ed67bb2654c8d5298db21303df5176310 removing obsolete setup for sets now that sets are executable diff -r 3c54878ed67b -r 732ea1f08e3f src/HOL/Library/Predicate_Compile_Alternative_Defs.thy --- a/src/HOL/Library/Predicate_Compile_Alternative_Defs.thy Mon Apr 30 10:08:00 2012 +0200 +++ b/src/HOL/Library/Predicate_Compile_Alternative_Defs.thy Mon Apr 30 12:14:51 2012 +0200 @@ -29,15 +29,7 @@ declare Ball_def[code_pred_inline] declare Bex_def[code_pred_inline] -section {* Set operations *} - -declare eq_reflection[OF empty_def, code_pred_inline] - -declare subset_iff[code_pred_inline] - -declare Int_def[code_pred_inline] -declare eq_reflection[OF Un_def, code_pred_inline] -declare eq_reflection[OF UNION_eq, code_pred_inline] +section {* Operations on Predicates *} lemma Diff[code_pred_inline]: "(A - B) = (%x. A x \ \ B x)" @@ -51,7 +43,6 @@ "A = B \ (\x. A x \ B x) \ (\x. B x \ A x)" by (auto simp add: fun_eq_iff) - section {* Setup for Numerals *} setup {* Predicate_Compile_Data.ignore_consts [@{const_name numeral}, @{const_name neg_numeral}] *}