src/HOL/Inductive.thy
changeset 51679 e7316560928b
parent 51678 1e33b81c328a
child 51692 ecd34f863242
     1.1 --- a/src/HOL/Inductive.thy	Fri Apr 05 22:08:42 2013 +0200
     1.2 +++ b/src/HOL/Inductive.thy	Sat Apr 06 01:42:07 2013 +0200
     1.3 @@ -275,11 +275,16 @@
     1.4  ML_file "Tools/Datatype/datatype_data.ML" setup Datatype_Data.setup
     1.5  
     1.6  consts
     1.7 -  case_guard :: "bool \<Rightarrow> 'a \<Rightarrow> 'a"
     1.8 +  case_guard :: "bool \<Rightarrow> 'a \<Rightarrow> ('a \<Rightarrow> 'b) \<Rightarrow> 'b"
     1.9    case_nil :: "'a \<Rightarrow> 'b"
    1.10    case_cons :: "('a \<Rightarrow> 'b) \<Rightarrow> ('a \<Rightarrow> 'b) \<Rightarrow> 'a \<Rightarrow> 'b"
    1.11    case_elem :: "'a \<Rightarrow> 'b \<Rightarrow> 'a \<Rightarrow> 'b"
    1.12    case_abs :: "('c \<Rightarrow> 'b) \<Rightarrow> 'b"
    1.13 +declare [[coercion_args case_guard - + -]]
    1.14 +declare [[coercion_args case_cons - -]]
    1.15 +declare [[coercion_args case_abs -]]
    1.16 +declare [[coercion_args case_elem - +]]
    1.17 +
    1.18  ML_file "Tools/case_translation.ML"
    1.19  setup Case_Translation.setup
    1.20