src/HOL/Library/Product_ord.thy
changeset 19736 d8d0f8f51d69
parent 17200 3a4d03d1a31b
child 21458 475b321982f7
     1.1 --- a/src/HOL/Library/Product_ord.thy	Sat May 27 17:42:00 2006 +0200
     1.2 +++ b/src/HOL/Library/Product_ord.thy	Sat May 27 17:42:02 2006 +0200
     1.3 @@ -9,20 +9,19 @@
     1.4  imports Main
     1.5  begin
     1.6  
     1.7 -instance "*" :: (ord,ord) ord ..
     1.8 +instance "*" :: (ord, ord) ord ..
     1.9  
    1.10  defs (overloaded)
    1.11 -  prod_le_def: "(x \<le> y) \<equiv> (fst x < fst y) | (fst x = fst y & snd x \<le> snd y)" 
    1.12 +  prod_le_def: "(x \<le> y) \<equiv> (fst x < fst y) | (fst x = fst y & snd x \<le> snd y)"
    1.13    prod_less_def: "(x < y) \<equiv> (fst x < fst y) | (fst x = fst y & snd x < snd y)"
    1.14  
    1.15  
    1.16  lemmas prod_ord_defs = prod_less_def prod_le_def
    1.17  
    1.18 -instance "*" :: (order,order) order 
    1.19 -  apply (intro_classes, unfold prod_ord_defs)
    1.20 -  by (auto intro: order_less_trans)
    1.21 +instance * :: (order, order) order
    1.22 +  by default (auto simp: prod_ord_defs intro: order_less_trans)
    1.23  
    1.24 -instance "*":: (linorder,linorder)linorder
    1.25 -  by (intro_classes, unfold prod_le_def, auto)
    1.26 +instance * :: (linorder, linorder) linorder
    1.27 +  by default (auto simp: prod_le_def)
    1.28  
    1.29 -end
    1.30 \ No newline at end of file
    1.31 +end