author | paulson |
Fri, 15 Sep 2000 15:30:50 +0200 | |
changeset 9970 | dfe4747c8318 |
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