X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Flibrary%2Fnat%2Feuler_theorem.ma;h=1e5988b35de64d1a9eba560dadd53e6929e98f15;hb=018a168b0ca16c5951106162e515d7949366d754;hp=ab7d8242e1e5752573c61e187807a4aeeecfdbab;hpb=3ed7d56cf4fab7401f8b400c45b2e35579ba71dd;p=helm.git diff --git a/helm/software/matita/library/nat/euler_theorem.ma b/helm/software/matita/library/nat/euler_theorem.ma index ab7d8242e..1e5988b35 100644 --- a/helm/software/matita/library/nat/euler_theorem.ma +++ b/helm/software/matita/library/nat/euler_theorem.ma @@ -55,7 +55,6 @@ intro.apply (nat_case n) qed. *) - (*this obvious property is useful because simplify, sometimes, "simplifies too much", and doesn't allow to obtain this simple result. *) @@ -136,7 +135,6 @@ elim (m) ] qed. - lemma totient_card: \forall n. totient n = card n (\lambda i.eqb (gcd i n) (S O)). intros.