author | clasohm |
Fri, 01 Dec 1995 12:03:13 +0100 | |
changeset 1376 | 92f83b9d17e1 |
parent 1151 | c820b3cc3df0 |
child 1476 | 608483c2122a |
permissions | -rw-r--r-- |
969 | 1 |
(* Title: HOL/ex/lex-prod.thy |
2 |
ID: $Id$ |
|
3 |
Author: Tobias Nipkow, TU Munich |
|
4 |
Copyright 1993 TU Munich |
|
5 |
||
6 |
The lexicographic product of two relations. |
|
7 |
*) |
|
8 |
||
9 |
LexProd = WF + Prod + |
|
10 |
consts "**" :: "[('a*'a)set, ('b*'b)set] => (('a*'b)*('a*'b))set" (infixl 70) |
|
11 |
rules |
|
1151 | 12 |
lex_prod_def "ra**rb == {p. ? a a' b b'. |
13 |
p = ((a,b),(a',b')) & ((a,a') : ra | a=a' & (b,b') : rb)}" |
|
969 | 14 |
end |
15 |