X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Flibrary%2Fnat%2Fexp.ma;h=c6e2a008ba565a043360d1bad656b1fe037b7141;hb=7288b45eacf9f7dcd118b3b89b81ff19ae9d6ce5;hp=52793cb5a77b21d853ff56cac6868ff4c9e24905;hpb=3f5a0152427fd9a89e7239befd259d27b97aaef5;p=helm.git diff --git a/helm/software/matita/library/nat/exp.ma b/helm/software/matita/library/nat/exp.ma index 52793cb5a..c6e2a008b 100644 --- a/helm/software/matita/library/nat/exp.ma +++ b/helm/software/matita/library/nat/exp.ma @@ -12,8 +12,6 @@ (* *) (**************************************************************************) -set "baseuri" "cic:/matita/nat/exp". - include "nat/div_and_mod.ma". include "nat/lt_arith.ma". @@ -22,7 +20,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 = (exp a b). theorem exp_plus_times : \forall n,p,q:nat. n \sup (p + q) = (n \sup p) * (n \sup q).