src/HOL/RelPow.thy
author nipkow
Tue Apr 08 10:48:42 1997 +0200 (1997-04-08)
changeset 2919 953a47dc0519
parent 2740 2c549ae2563b
child 3370 5c5fdce3a4e4
permissions -rw-r--r--
Dep. on Provers/nat_transitive
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)
pusch@2740
    13
pusch@2740
    14
primrec "op ^" nat
pusch@2740
    15
  "R^0 = id"
pusch@2740
    16
  "R^(Suc n) = R O (R^n)"
pusch@2740
    17
nipkow@1496
    18
end