]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/software/matita/library/nat/factorial.ma
update in groud_2 and models
[helm.git] / helm / software / matita / library / nat / factorial.ma
index 14217bbcbdee58a7dba618d68642da3eb315d37c..9c1a4e97d7183042e9ebe5b6ff4a7c0d862f40ba 100644 (file)
@@ -12,8 +12,6 @@
 (*                                                                        *)
 (**************************************************************************)
 
-set "baseuri" "cic:/matita/nat/factorial".
-
 include "nat/le_arith.ma".
 
 let rec fact n \def
@@ -21,7 +19,7 @@ let rec fact n \def
   [ O \Rightarrow (S O)
   | (S m) \Rightarrow (S m)*(fact m)].
 
-interpretation "factorial" 'fact n = (cic:/matita/nat/factorial/fact.con n).
+interpretation "factorial" 'fact n = (fact n).
 
 theorem le_SO_fact : \forall n. (S O) \le n!.
 intro.elim n.simplify.apply le_n.