X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2Ftests%2Ffguidi.ma;h=284a700e71f6e02fc0b2e6f313c2a9c65692068c;hb=e32693f30563379989b75b53c3be088396b732da;hp=623e327f904b0e3d5411567e133cf23d9a511368;hpb=d513d6872096bfe51f8fa3ced917131e954130e1;p=helm.git diff --git a/helm/matita/tests/fguidi.ma b/helm/matita/tests/fguidi.ma index 623e327f9..284a700e7 100644 --- a/helm/matita/tests/fguidi.ma +++ b/helm/matita/tests/fguidi.ma @@ -89,6 +89,8 @@ theorem le_gen_S_S_cc: \forall m,n. (le m n) \to (le (S m) (S n)). intros. auto. qed. +(* theorem pippo: \forall m,n. (le (S m) (S n)) \to (le m n). intros. -lapply le_gen_S_x. \ No newline at end of file +lapply le_gen_S_x. +*)