--- a/src/HOL/Datatype.thy Sat Sep 17 18:11:17 2005 +0200 +++ b/src/HOL/Datatype.thy Sat Sep 17 18:11:18 2005 +0200 @@ -206,4 +206,6 @@ apply (simp split add: sum.split) done +lemmas [code] = imp_conv_disj + end