src/HOL/Library/Option_ord.thy
changeset 37765 26bdfb7b680b
parent 30662 396be15b95d5
child 43815 4f6e2965d821
     1.1 --- a/src/HOL/Library/Option_ord.thy	Mon Jul 12 08:58:12 2010 +0200
     1.2 +++ b/src/HOL/Library/Option_ord.thy	Mon Jul 12 08:58:13 2010 +0200
     1.3 @@ -12,10 +12,10 @@
     1.4  begin
     1.5  
     1.6  definition less_eq_option where
     1.7 -  [code del]: "x \<le> y \<longleftrightarrow> (case x of None \<Rightarrow> True | Some x \<Rightarrow> (case y of None \<Rightarrow> False | Some y \<Rightarrow> x \<le> y))"
     1.8 +  "x \<le> y \<longleftrightarrow> (case x of None \<Rightarrow> True | Some x \<Rightarrow> (case y of None \<Rightarrow> False | Some y \<Rightarrow> x \<le> y))"
     1.9  
    1.10  definition less_option where
    1.11 -  [code del]: "x < y \<longleftrightarrow> (case y of None \<Rightarrow> False | Some y \<Rightarrow> (case x of None \<Rightarrow> True | Some x \<Rightarrow> x < y))"
    1.12 +  "x < y \<longleftrightarrow> (case y of None \<Rightarrow> False | Some y \<Rightarrow> (case x of None \<Rightarrow> True | Some x \<Rightarrow> x < y))"
    1.13  
    1.14  lemma less_eq_option_None [simp]: "None \<le> x"
    1.15    by (simp add: less_eq_option_def)