src/HOL/RelPow.thy
author wenzelm
Thu Jan 23 14:19:16 1997 +0100 (1997-01-23)
changeset 2545 d10abc8c11fb
parent 1824 44254696843a
child 2740 2c549ae2563b
permissions -rw-r--r--
added AxClasses test;
     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
    14   rel_pow_def "R^n == nat_rec id (%m S. R O S) n"
    15 end