src/HOL/Hyperreal/Fact.thy
changeset 15131 c69542757a4d
parent 15094 a7d1a3fdc30d
child 15140 322485b816ac
     1.1 --- a/src/HOL/Hyperreal/Fact.thy	Mon Aug 16 14:21:54 2004 +0200
     1.2 +++ b/src/HOL/Hyperreal/Fact.thy	Mon Aug 16 14:22:27 2004 +0200
     1.3 @@ -6,7 +6,9 @@
     1.4  
     1.5  header{*Factorial Function*}
     1.6  
     1.7 -theory Fact = Real:
     1.8 +theory Fact
     1.9 +import Real
    1.10 +begin
    1.11  
    1.12  consts fact :: "nat => nat"
    1.13  primrec
    1.14 @@ -71,4 +73,4 @@
    1.15  by (case_tac "m", auto)
    1.16  
    1.17  
    1.18 -end
    1.19 \ No newline at end of file
    1.20 +end