src/HOL/BCV/SemiLattice.thy
author kleing
Tue, 18 Jul 2000 13:16:48 +0200
changeset 9381 a0491eed2270
parent 7626 5997f35954d7
permissions -rw-r--r--
MicroJava structure changed

(*  Title:      HOL/BCV/SemiLattice.thy
    ID:         $Id$
    Author:     Tobias Nipkow
    Copyright   1999 TUM

Semilattices
*)

SemiLattice = Plus +

constdefs
 semilat :: "('a::{order,plus} set) => bool"
"semilat A == (!x:A. !y:A. x <= x+y)  &
          (!x:A. !y:A. y <= x+y)  &
          (!x:A. !y:A. !z:A. x <= z & y <= z --> x+y <= z) &
          (!x:A. !y:A. x+y : A)"

end