X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2Ftests%2Ffguidi.ma;h=19f527e8f722099e501b571db8f5fba9911a3181;hb=0c2b65693a5a7a2881ebb6dfcaa432f4f9fd22a4;hp=a665ca85dfd57f0153514d616686e39315dd6dcd;hpb=dc93c2cd98a57f17a452a461c6bcfaa7ec185427;p=helm.git diff --git a/helm/matita/tests/fguidi.ma b/helm/matita/tests/fguidi.ma index a665ca85d..19f527e8f 100644 --- a/helm/matita/tests/fguidi.ma +++ b/helm/matita/tests/fguidi.ma @@ -46,7 +46,7 @@ intros. apply False_ind. cut (is_S O). auto paramodulation. elim H. exact I. qed. theorem eq_gen_S_O_cc: (\forall P:Prop. P) \to \forall x. (S x = O). -intros. auto. (* paramodulation non trova la prova *) +intros. auto. qed. theorem eq_gen_S_S: \forall m,n. (S m) = (S n) \to m = n.