# HG changeset patch
# User nipkow
# Date 1347932033 -7200
# Node ID 1095f240146a3539502d7fa13a038ebe9d673609
# Parent  3f4104ccca776f9070aeea0acec1aa82ccfe9356
tuned

diff -r 3f4104ccca77 -r 1095f240146a src/HOL/IMP/Abs_Int1_const.thy
--- a/src/HOL/IMP/Abs_Int1_const.thy	Tue Sep 18 03:24:51 2012 +0200
+++ b/src/HOL/IMP/Abs_Int1_const.thy	Tue Sep 18 03:33:53 2012 +0200
@@ -133,7 +133,7 @@
 
 interpretation Abs_Int_measure
 where \<gamma> = \<gamma>_const and num' = Const and plus' = plus_const
-and m = m_const and h = "2"
+and m = m_const and h = "1"
 proof
   case goal1 thus ?case by(auto simp: m_const_def split: const.splits)
 next
diff -r 3f4104ccca77 -r 1095f240146a src/HOL/IMP/Abs_Int1_parity.thy
--- a/src/HOL/IMP/Abs_Int1_parity.thy	Tue Sep 18 03:24:51 2012 +0200
+++ b/src/HOL/IMP/Abs_Int1_parity.thy	Tue Sep 18 03:33:53 2012 +0200
@@ -155,7 +155,7 @@
 
 interpretation Abs_Int_measure
 where \<gamma> = \<gamma>_parity and num' = num_parity and plus' = plus_parity
-and m = m_parity and h = "2"
+and m = m_parity and h = "1"
 proof
   case goal1 thus ?case by(auto simp add: m_parity_def le_parity_def)
 next