src/HOL/Library/Product_ord.thy
changeset 28562 4e74209f113e
parent 28519 095fe24b48fd
child 30738 0842e906300c
     1.1 --- a/src/HOL/Library/Product_ord.thy	Fri Oct 10 06:45:50 2008 +0200
     1.2 +++ b/src/HOL/Library/Product_ord.thy	Fri Oct 10 06:45:53 2008 +0200
     1.3 @@ -13,16 +13,16 @@
     1.4  begin
     1.5  
     1.6  definition
     1.7 -  prod_le_def [code func del]: "x \<le> y \<longleftrightarrow> fst x < fst y \<or> fst x = fst y \<and> snd x \<le> snd y"
     1.8 +  prod_le_def [code del]: "x \<le> y \<longleftrightarrow> fst x < fst y \<or> fst x = fst y \<and> snd x \<le> snd y"
     1.9  
    1.10  definition
    1.11 -  prod_less_def [code func del]: "x < y \<longleftrightarrow> fst x < fst y \<or> fst x = fst y \<and> snd x < snd y"
    1.12 +  prod_less_def [code del]: "x < y \<longleftrightarrow> fst x < fst y \<or> fst x = fst y \<and> snd x < snd y"
    1.13  
    1.14  instance ..
    1.15  
    1.16  end
    1.17  
    1.18 -lemma [code func]:
    1.19 +lemma [code]:
    1.20    "(x1\<Colon>'a\<Colon>{ord, eq}, y1) \<le> (x2, y2) \<longleftrightarrow> x1 < x2 \<or> x1 = x2 \<and> y1 \<le> y2"
    1.21    "(x1\<Colon>'a\<Colon>{ord, eq}, y1) < (x2, y2) \<longleftrightarrow> x1 < x2 \<or> x1 = x2 \<and> y1 < y2"
    1.22    unfolding prod_le_def prod_less_def by simp_all