src/ZF/Resid/Confluence.thy
author paulson
Mon, 21 May 2001 14:51:46 +0200
changeset 11319 8b84ee2cc79c
parent 1478 2b8c2a7547ab
child 12593 cd35fe5947d4
permissions -rw-r--r--
X-symbols for ZF
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1478
2b8c2a7547ab expanded tabs
clasohm
parents: 1401
diff changeset
     1
(*  Title:      Confluence.thy
1048
5ba0314f8214 New example by Ole Rasmussen
lcp
parents:
diff changeset
     2
    ID:         $Id$
1478
2b8c2a7547ab expanded tabs
clasohm
parents: 1401
diff changeset
     3
    Author:     Ole Rasmussen
1048
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
1478
2b8c2a7547ab expanded tabs
clasohm
parents: 1401
diff changeset
    11
  confluence    :: i=>o
2b8c2a7547ab expanded tabs
clasohm
parents: 1401
diff changeset
    12
  strip         :: o
1048
5ba0314f8214 New example by Ole Rasmussen
lcp
parents:
diff changeset
    13
5ba0314f8214 New example by Ole Rasmussen
lcp
parents:
diff changeset
    14
defs
1155
928a16e02f9f removed \...\ inside strings
clasohm
parents: 1048
diff changeset
    15
  confluence_def "confluence(R) ==   
11319
8b84ee2cc79c X-symbols for ZF
paulson
parents: 1478
diff changeset
    16
                  \\<forall>x y. <x,y>:R --> (\\<forall>z.<x,z>:R -->   
8b84ee2cc79c X-symbols for ZF
paulson
parents: 1478
diff changeset
    17
                                         (\\<exists>u.<y,u>:R & <z,u>:R))"
8b84ee2cc79c X-symbols for ZF
paulson
parents: 1478
diff changeset
    18
  strip_def      "strip == \\<forall>x y. (x ===> y) --> (\\<forall>z.(x =1=> z) -->   
8b84ee2cc79c X-symbols for ZF
paulson
parents: 1478
diff changeset
    19
                                         (\\<exists>u.(y =1=> u) & (z===>u)))" 
1048
5ba0314f8214 New example by Ole Rasmussen
lcp
parents:
diff changeset
    20
end
5ba0314f8214 New example by Ole Rasmussen
lcp
parents:
diff changeset
    21