src/ZF/Resid/Confluence.thy
author lcp
Tue, 25 Apr 1995 11:14:03 +0200
changeset 1072 0140ff702b23
parent 1048 5ba0314f8214
child 1155 928a16e02f9f
permissions -rw-r--r--
updated version
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1048
5ba0314f8214 New example by Ole Rasmussen
lcp
parents:
diff changeset
     1
(*  Title: 	Confluence.thy
5ba0314f8214 New example by Ole Rasmussen
lcp
parents:
diff changeset
     2
    ID:         $Id$
5ba0314f8214 New example by Ole Rasmussen
lcp
parents:
diff changeset
     3
    Author: 	Ole Rasmussen
5ba0314f8214 New example by Ole Rasmussen
lcp
parents:
diff changeset
     4
    Copyright   1995  University of Cambridge
5ba0314f8214 New example by Ole Rasmussen
lcp
parents:
diff changeset
     5
    Logic Image: ZF
5ba0314f8214 New example by Ole Rasmussen
lcp
parents:
diff changeset
     6
*)
5ba0314f8214 New example by Ole Rasmussen
lcp
parents:
diff changeset
     7
5ba0314f8214 New example by Ole Rasmussen
lcp
parents:
diff changeset
     8
Confluence = Reduction+
5ba0314f8214 New example by Ole Rasmussen
lcp
parents:
diff changeset
     9
5ba0314f8214 New example by Ole Rasmussen
lcp
parents:
diff changeset
    10
consts
5ba0314f8214 New example by Ole Rasmussen
lcp
parents:
diff changeset
    11
  confluence	:: "i=>o"
5ba0314f8214 New example by Ole Rasmussen
lcp
parents:
diff changeset
    12
  strip		:: "o"
5ba0314f8214 New example by Ole Rasmussen
lcp
parents:
diff changeset
    13
5ba0314f8214 New example by Ole Rasmussen
lcp
parents:
diff changeset
    14
defs
5ba0314f8214 New example by Ole Rasmussen
lcp
parents:
diff changeset
    15
  confluence_def "confluence(R) ==   \
5ba0314f8214 New example by Ole Rasmussen
lcp
parents:
diff changeset
    16
\		  ALL x y. <x,y>:R --> (ALL z.<x,z>:R -->   \
5ba0314f8214 New example by Ole Rasmussen
lcp
parents:
diff changeset
    17
\		                         (EX u.<y,u>:R & <z,u>:R))"
5ba0314f8214 New example by Ole Rasmussen
lcp
parents:
diff changeset
    18
  strip_def      "strip == ALL x y. (x ===> y) --> (ALL z.(x =1=> z) -->   \
5ba0314f8214 New example by Ole Rasmussen
lcp
parents:
diff changeset
    19
\		                         (EX u.(y =1=> u) & (z===>u)))" 
5ba0314f8214 New example by Ole Rasmussen
lcp
parents:
diff changeset
    20
end
5ba0314f8214 New example by Ole Rasmussen
lcp
parents:
diff changeset
    21