src/HOL/BCV/SemiLattice.thy
author wenzelm
Sun, 31 Oct 1999 20:11:23 +0100
changeset 7990 0a604b2fc2b1
parent 7626 5997f35954d7
permissions -rw-r--r--
updated;

(*  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