author | wenzelm |
Tue, 13 Jun 2000 18:33:34 +0200 | |
changeset 9058 | 7856a01119fb |
parent 8957 | 26b6e8f43305 |
child 10212 | 33fe2d701ddd |
permissions | -rw-r--r-- |
(* Title: HOL/SetInterval.thy ID: $Id$ Author: Tobias Nipkow Copyright 2000 TU Muenchen lessThan, greaterThan, atLeast, atMost *) SetInterval = equalities + Arith + constdefs lessThan :: "('a::ord) => 'a set" ("(1{.._'(})") "{..u(} == {x. x<u}" atMost :: "('a::ord) => 'a set" ("(1{.._})") "{..u} == {x. x<=u}" greaterThan :: "('a::ord) => 'a set" ("(1{')_..})") "{)l..} == {x. l<x}" atLeast :: "('a::ord) => 'a set" ("(1{_..})") "{l..} == {x. l<=x}" end