src/HOL/RelPow.thy
author clasohm
Wed Mar 13 11:55:25 1996 +0100 (1996-03-13 ago)
changeset 1574 5a63ab90ee8a
parent 1496 c443b2adaf52
child 1824 44254696843a
permissions -rw-r--r--
modified primrec so it can be used in MiniML/Type.thy
nipkow@1496
     1
(*  Title:      HOL/RelPow.thy
nipkow@1496
     2
    ID:         $Id$
nipkow@1496
     3
    Author:     Tobias Nipkow
nipkow@1496
     4
    Copyright   1996  TU Muenchen
nipkow@1496
     5
nipkow@1496
     6
R^n = R O ... O R, the n-fold composition of R
nipkow@1496
     7
*)
nipkow@1496
     8
nipkow@1496
     9
RelPow = Nat +
nipkow@1496
    10
nipkow@1496
    11
consts
nipkow@1496
    12
  "^" :: "('a * 'a) set => nat => ('a * 'a) set" (infixr 100)
nipkow@1496
    13
defs
nipkow@1496
    14
  rel_pow_def "R^n == nat_rec n id (%m S. R O S)"
nipkow@1496
    15
end