src/HOL/Library/Option_ord.thy
changeset 28562 4e74209f113e
parent 27368 9f90ac19e32b
child 30662 396be15b95d5
     1.1 --- a/src/HOL/Library/Option_ord.thy	Fri Oct 10 06:45:50 2008 +0200
     1.2 +++ b/src/HOL/Library/Option_ord.thy	Fri Oct 10 06:45:53 2008 +0200
     1.3 @@ -13,10 +13,10 @@
     1.4  begin
     1.5  
     1.6  definition less_eq_option where
     1.7 -  [code func 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 +  [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.9  
    1.10  definition less_option where
    1.11 -  [code func 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 +  [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.13  
    1.14  lemma less_eq_option_None [simp]: "None \<le> x"
    1.15    by (simp add: less_eq_option_def)