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=c9f2c6984ee6d31aeb1ddc8ab9b96b936b19a9e0;hpb=c445ba5534cccde19016c92660ab52777af221c0;p=helm.git diff --git a/helm/software/matita/library/nat/exp.ma b/helm/software/matita/library/nat/exp.ma index c9f2c6984..c6e2a008b 100644 --- a/helm/software/matita/library/nat/exp.ma +++ b/helm/software/matita/library/nat/exp.ma @@ -20,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).