1
(* Title: IntPower.thy
2
ID: $Id$
3
Author: Thomas M. Rasmussen
4
Copyright 2000 University of Cambridge
5
6
Integer powers
7
*)
8
9
IntPower = IntDiv +
10
11
instance
12
int :: {power}
13
14
primrec
15
power_0 "p ^ 0 = #1"
16
power_Suc "p ^ (Suc n) = (p::int) * (p ^ n)"
17
18
end