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/ZF/Rel.thy
author paulson
Tue, 18 Jun 2002 18:45:07 +0200
changeset 13220 62c899c77151
parent 13168 afcbca3498b0
permissions -rw-r--r--
tidying

(*  Title:      ZF/Rel.thy
    ID:         $Id$
    Author:     Lawrence C Paulson, Cambridge University Computer Laboratory
    Copyright   1994  University of Cambridge

Relations in Zermelo-Fraenkel Set Theory 
*)

Rel = equalities +
consts
    refl     :: "[i,i]=>o"
    irrefl   :: "[i,i]=>o"
    equiv    :: "[i,i]=>o"
    sym      :: "i=>o"
    asym     :: "i=>o"
    antisym  :: "i=>o"
    trans    :: "i=>o"
    trans_on :: "[i,i]=>o"  ("trans[_]'(_')")

defs
  refl_def     "refl(A,r) == (ALL x: A. <x,x> : r)"

  irrefl_def   "irrefl(A,r) == ALL x: A. <x,x> ~: r"

  sym_def      "sym(r) == ALL x y. <x,y>: r --> <y,x>: r"

  asym_def     "asym(r) == ALL x y. <x,y>:r --> ~ <y,x>:r"

  antisym_def  "antisym(r) == ALL x y.<x,y>:r --> <y,x>:r --> x=y"

  trans_def    "trans(r) == ALL x y z. <x,y>: r --> <y,z>: r --> <x,z>: r"

  trans_on_def "trans[A](r) == ALL x:A. ALL y:A. ALL z:A.       
                          <x,y>: r --> <y,z>: r --> <x,z>: r"

  equiv_def    "equiv(A,r) == r <= A*A & refl(A,r) & sym(r) & trans(r)"

end
isabelle