Mercurial Mercurial > repos > isabelle / file revision
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/HOL/BCV/Types0.thy
author wenzelm
Wed, 27 Oct 1999 18:12:40 +0200
changeset 7956 edaca60a54cd
parent 7626 5997f35954d7
permissions -rw-r--r--
tuned msg;

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

Types for the register machine
*)

Types0 = SemiLattice +

datatype typ = Atyp | Btyp | Ctyp | Top

instance typ :: ord
instance typ :: plus

defs
le_typ "t1 <= t2 == (t1=t2) | (t1=Atyp & t2=Btyp) | (t2=Top)"
less_typ "(t1::typ) < t2 == t1 <= t2 & t1 ~= t2"
plus_typ "t1 + t2 == if t1<=t2 then t2 else if t2 <= t1 then t1 else Top"

end
isabelle