# HG changeset patch
# User berghofe
# Date 1177420642 -7200
# Node ID 18fbba942a802bf008c707e5e184f0a653cdf2d0
# Parent  41162a270151e3eab9a27d0fa92cdbf00cfefc75
sum_case is now authentic.

diff -r 41162a270151 -r 18fbba942a80 src/HOL/Bali/Basis.thy
--- a/src/HOL/Bali/Basis.thy	Tue Apr 24 15:15:52 2007 +0200
+++ b/src/HOL/Bali/Basis.thy	Tue Apr 24 15:17:22 2007 +0200
@@ -216,7 +216,7 @@
 syntax
   fun_sum :: "('a => 'c) => ('b => 'c) => (('a+'b) => 'c)" (infixr "'(+')"80)
 translations
- "fun_sum" == "sum_case"
+ "fun_sum" == "CONST sum_case"
 
 consts    the_Inl  :: "'a + 'b \<Rightarrow> 'a"
           the_Inr  :: "'a + 'b \<Rightarrow> 'b"