src/HOL/Inductive.thy
changeset 51674 2b1498a2ce85
parent 51673 4dfa00e264d8
child 51678 1e33b81c328a
     1.1 --- a/src/HOL/Inductive.thy	Tue Jan 22 14:33:45 2013 +0100
     1.2 +++ b/src/HOL/Inductive.thy	Fri Apr 05 22:08:42 2013 +0200
     1.3 @@ -275,6 +275,7 @@
     1.4  ML_file "Tools/Datatype/datatype_data.ML" setup Datatype_Data.setup
     1.5  
     1.6  consts
     1.7 +  case_guard :: "'a \<Rightarrow> 'a"
     1.8    case_nil :: "'a \<Rightarrow> 'b"
     1.9    case_cons :: "('a \<Rightarrow> 'b) \<Rightarrow> ('a \<Rightarrow> 'b) \<Rightarrow> 'a \<Rightarrow> 'b"
    1.10    case_elem :: "'a \<Rightarrow> 'b \<Rightarrow> 'a \<Rightarrow> 'b"