diff -r f04b33ce250f -r a4dc62a46ee4 Ord.thy --- a/Ord.thy Tue Oct 24 14:59:17 1995 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,25 +0,0 @@ -(* Title: HOL/Ord.thy - ID: $Id$ - Author: Tobias Nipkow, Cambridge University Computer Laboratory - Copyright 1993 University of Cambridge - -The type class for ordered types (* FIXME improve comment *) -*) - -Ord = HOL + - -axclass - ord < term - -consts - "<", "<=" :: "['a::ord, 'a] => bool" (infixl 50) - mono :: "['a::ord => 'b::ord] => bool" (*monotonicity*) - min, max :: "['a::ord, 'a] => 'a" - -defs - mono_def "mono(f) == (!A B. A <= B --> f(A) <= f(B))" - min_def "min(a, b) == if(a <= b, a, b)" - max_def "max(a, b) == if(a <= b, b, a)" - -end -