X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Flibrary%2Fnat%2Fcount.ma;h=73e251bf6b35929353622914eb364e393ad85a5f;hb=e880d6eab5e1700f4a625ddcd7d0fa8f0cce2dcc;hp=2abcf25c3b1f43245c61bd8d7d046c663b1a259d;hpb=ebb14e0084aecd167bc42245625c4eb3167df9d5;p=helm.git diff --git a/helm/software/matita/library/nat/count.ma b/helm/software/matita/library/nat/count.ma index 2abcf25c3..73e251bf6 100644 --- a/helm/software/matita/library/nat/count.ma +++ b/helm/software/matita/library/nat/count.ma @@ -12,8 +12,6 @@ (* *) (**************************************************************************) -set "baseuri" "cic:/matita/nat/count". - include "nat/relevant_equations.ma". include "nat/sigma_and_pi.ma". include "nat/permutation.ma". @@ -35,7 +33,7 @@ theorem sigma_plus: \forall n,p,m:nat.\forall f:nat \to nat. sigma (S (p+n)) f m = sigma p (\lambda x.(f ((S n) + x))) m + sigma n f m. intros. elim p. simplify. -rewrite < (sym_plus n m).reflexivity. +reflexivity. simplify. rewrite > assoc_plus in \vdash (? ? ? %). rewrite < H.