src/HOL/BCV/SemiLattice.thy
author wenzelm
Tue, 07 Dec 1999 17:14:49 +0100
changeset 8052 6ae3ca78a558
parent 7626 5997f35954d7
permissions -rw-r--r--
tuned;

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