# HG changeset patch
# User chaieb
# Date 1199352460 -3600
# Node ID 331d8ce79ee2f2f126f83921df3cccd0e1f60769
# Parent  0298341876d0cc49aaec657145b1841f8119afb6
Tuned (type information in Lemmas)

diff -r 0298341876d0 -r 331d8ce79ee2 src/HOL/ex/PresburgerEx.thy
--- a/src/HOL/ex/PresburgerEx.thy	Thu Jan 03 10:27:34 2008 +0100
+++ b/src/HOL/ex/PresburgerEx.thy	Thu Jan 03 10:27:40 2008 +0100
@@ -9,7 +9,7 @@
 imports Presburger
 begin
 
-lemma "\<And>m n ja ia. \<lbrakk>\<not> m \<le> j; \<not> n \<le> i; e \<noteq> 0; Suc j \<le> ja\<rbrakk> \<Longrightarrow> \<exists>m. \<forall>ja ia. m \<le> ja \<longrightarrow> (if j = ja \<and> i = ia then e else 0) = 0" by presburger
+lemma "\<And>m n ja ia. \<lbrakk>\<not> m \<le> j; \<not> (n::nat) \<le> i; (e::nat) \<noteq> 0; Suc j \<le> ja\<rbrakk> \<Longrightarrow> \<exists>m. \<forall>ja ia. m \<le> ja \<longrightarrow> (if j = ja \<and> i = ia then e else 0) = 0" by presburger
 lemma "(0::nat) < emBits mod 8 \<Longrightarrow> 8 + emBits div 8 * 8 - emBits = 8 - emBits mod 8" 
 by presburger
 lemma "(0::nat) < emBits mod 8 \<Longrightarrow> 8 + emBits div 8 * 8 - emBits = 8 - emBits mod 8"