author | paulson |
Wed, 21 Aug 1996 13:22:23 +0200 | |
changeset 1933 | 8b24773de6db |
parent 1824 | 44254696843a |
child 2740 | 2c549ae2563b |
permissions | -rw-r--r-- |
1496 | 1 |
(* Title: HOL/RelPow.thy |
2 |
ID: $Id$ |
|
3 |
Author: Tobias Nipkow |
|
4 |
Copyright 1996 TU Muenchen |
|
5 |
||
6 |
R^n = R O ... O R, the n-fold composition of R |
|
7 |
*) |
|
8 |
||
9 |
RelPow = Nat + |
|
10 |
||
11 |
consts |
|
12 |
"^" :: "('a * 'a) set => nat => ('a * 'a) set" (infixr 100) |
|
13 |
defs |
|
1824 | 14 |
rel_pow_def "R^n == nat_rec id (%m S. R O S) n" |
1496 | 15 |
end |