X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2Flibrary_auto%2Fauto%2Fnat%2Ffactorial.ma;h=3796592c771fa3a0037c14fc63e0822336b7b62e;hb=ced2abc1e3fe84d5bbfa9ccb2ebf46f253279ebe;hp=a5610aef1e0641099772dcad46282278b9816a4e;hpb=bbb9215a02e1321d01a11c0ead6d0d218d047f68;p=helm.git diff --git a/helm/software/matita/contribs/library_auto/auto/nat/factorial.ma b/helm/software/matita/contribs/library_auto/auto/nat/factorial.ma index a5610aef1..3796592c7 100644 --- a/helm/software/matita/contribs/library_auto/auto/nat/factorial.ma +++ b/helm/software/matita/contribs/library_auto/auto/nat/factorial.ma @@ -21,7 +21,7 @@ let rec fact n \def [ O \Rightarrow (S O) | (S m) \Rightarrow (S m)*(fact m)]. -interpretation "factorial" 'fact n = (cic:/matita/library_autobatch/nat/factorial/fact.con n). +interpretation "factorial" 'fact n = (fact n). theorem le_SO_fact : \forall n. (S O) \le n!. intro.