src/HOL/Hyperreal/Fact.thy
author paulson
Fri, 05 Dec 2003 18:10:59 +0100
changeset 14277 ad66687ece6e
parent 12196 a3be6b3a9c0b
child 15094 a7d1a3fdc30d
permissions -rw-r--r--
more field division lemmas transferred from Real to Ring_and_Field

(*  Title       : Fact.thy 
    Author      : Jacques D. Fleuriot
    Copyright   : 1998  University of Cambridge
    Description : Factorial function
*)

Fact = NatStar + 

consts fact :: nat => nat 
primrec 
   fact_0     "fact 0 = 1"
   fact_Suc   "fact (Suc n) = (Suc n) * fact n" 

end