X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=helm%2Fsoftware%2Fmatita%2Flibrary_auto%2Fnat%2Fexp.ma;h=12c132186af1d2fd481b3c75a9838b1e37bf81b9;hb=af1498c45e1266fc08923eeaeb5c3cb7fc7776e6;hp=55352d04670a90e33a352689c18093b545288044;hpb=e61cdf77937ad2ff62af178ae1cb14af0629d0f2;p=helm.git diff --git a/helm/software/matita/library_auto/nat/exp.ma b/helm/software/matita/library_auto/nat/exp.ma index 55352d046..12c132186 100644 --- a/helm/software/matita/library_auto/nat/exp.ma +++ b/helm/software/matita/library_auto/nat/exp.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -set "baseuri" "cic:/matita/nat/exp". +set "baseuri" "cic:/matita/library_auto/nat/exp". include "nat/div_and_mod.ma". @@ -21,7 +21,7 @@ let rec exp n m on m\def [ O \Rightarrow (S O) | (S p) \Rightarrow (times n (exp n p)) ]. -interpretation "natural exponent" 'exp a b = (cic:/matita/nat/exp/exp.con a b). +interpretation "natural exponent" 'exp a b = (cic:/matita/library_auto/nat/exp/exp.con a b). theorem exp_plus_times : \forall n,p,q:nat. n \sup (p + q) = (n \sup p) * (n \sup q).