src/HOL/Hyperreal/Fact.thy
author paulson
Thu Nov 15 16:12:49 2001 +0100 (2001-11-15)
changeset 12196 a3be6b3a9c0b
child 15094 a7d1a3fdc30d
permissions -rw-r--r--
new theories from Jacques Fleuriot
paulson@12196
     1
(*  Title       : Fact.thy 
paulson@12196
     2
    Author      : Jacques D. Fleuriot
paulson@12196
     3
    Copyright   : 1998  University of Cambridge
paulson@12196
     4
    Description : Factorial function
paulson@12196
     5
*)
paulson@12196
     6
paulson@12196
     7
Fact = NatStar + 
paulson@12196
     8
paulson@12196
     9
consts fact :: nat => nat 
paulson@12196
    10
primrec 
paulson@12196
    11
   fact_0     "fact 0 = 1"
paulson@12196
    12
   fact_Suc   "fact (Suc n) = (Suc n) * fact n" 
paulson@12196
    13
paulson@12196
    14
end