hide const linorder.less_eq_less.max linorder.less_eq_less.min;
authorwenzelm
Sun, 10 Dec 2006 15:30:34 +0100
changeset 21737 f2be09171c9c
parent 21736 ccb2346ee416
child 21738 ec8a18be3f61
hide const linorder.less_eq_less.max linorder.less_eq_less.min;
src/HOL/Orderings.thy
--- a/src/HOL/Orderings.thy	Sun Dec 10 15:30:33 2006 +0100
+++ b/src/HOL/Orderings.thy	Sun Dec 10 15:30:34 2006 +0100
@@ -868,6 +868,8 @@
   max :: "['a::ord, 'a] => 'a"
   "max a b == (if a <= b then b else a)"
 
+hide const linorder.less_eq_less.max linorder.less_eq_less.min  (* FIXME !? *)
+
 lemma min_linorder:
   "linorder.min (op \<le> \<Colon> 'a\<Colon>linorder \<Rightarrow> 'a \<Rightarrow> bool) = min"
   by (rule+) (simp add: min_def linorder.min_def)