src/HOL/SMT.thy
 changeset 41126 e0bd443c0fdd parent 41125 4a9eec045f2a child 41127 2ea84c8535c6
```--- a/src/HOL/SMT.thy	Wed Dec 15 08:39:24 2010 +0100
+++ b/src/HOL/SMT.thy	Wed Dec 15 08:39:24 2010 +0100
@@ -130,18 +130,20 @@
definition z3mod :: "int \<Rightarrow> int \<Rightarrow> int" where
"z3mod k l = (if 0 \<le> l then k mod l else k mod (-l))"

-lemma div_by_z3div: "k div l = (
-     if k = 0 \<or> l = 0 then 0
-     else if (0 < k \<and> 0 < l) \<or> (k < 0 \<and> 0 < l) then z3div k l
-     else z3div (-k) (-l))"
-  by (auto simp add: z3div_def)
+lemma div_by_z3div:
+  "\<forall>k l. k div l = (
+    if k = 0 \<or> l = 0 then 0
+    else if (0 < k \<and> 0 < l) \<or> (k < 0 \<and> 0 < l) then z3div k l
+    else z3div (-k) (-l))"
+  by (auto simp add: z3div_def trigger_def)

-lemma mod_by_z3mod: "k mod l = (
-     if l = 0 then k
-     else if k = 0 then 0
-     else if (0 < k \<and> 0 < l) \<or> (k < 0 \<and> 0 < l) then z3mod k l
-     else - z3mod (-k) (-l))"
-  by (auto simp add: z3mod_def)
+lemma mod_by_z3mod:
+  "\<forall>k l. k mod l = (
+    if l = 0 then k
+    else if k = 0 then 0
+    else if (0 < k \<and> 0 < l) \<or> (k < 0 \<and> 0 < l) then z3mod k l
+    else - z3mod (-k) (-l))"
+  by (auto simp add: z3mod_def trigger_def)

```