src/HOL/Real/RealPow.thy

loads the new simproc extract_common_term

(*  Title       : HOL/Real/RealPow.thy
    ID          : $Id$
    Author      : Jacques D. Fleuriot  
    Copyright   : 1998  University of Cambridge
    Description : Natural powers theory

*)

theory RealPow = RealAbs:

(*belongs to theory RealAbs*)
lemmas [arith_split] = abs_split


instance real :: power ..

primrec (realpow)
     realpow_0:   "r ^ 0       = #1"
     realpow_Suc: "r ^ (Suc n) = (r::real) * (r ^ n)"

end