claudio, please have a look at this

[helm.git] / helm / software / matita / tests / demodulation_matita.ma

diff --git a/helm/software/matita/tests/demodulation_matita.ma b/helm/software/matita/tests/demodulation_matita.ma
index 0f4827e462239248826e77bcaba84fdf61f7c504..1556359ae7417ae0981bce328ec77839dbee6ed2 100644 (file)
--- a/helm/software/matita/tests/demodulation_matita.ma
+++ b/helm/software/matita/tests/demodulation_matita.ma
@@ -12,12 +12,13 @@
 (*                                                                        *)
 (**************************************************************************)
 
-set "baseuri" "cic:/matita/demodulation_matita/".
+
 
 include "nat/minus.ma".
 
 theorem p2: \forall x,y:nat. x+x = (S(S O))*x.
-intros.demodulate.reflexivity.
+intros.
+demodulate by times_n_Sm times_n_O sym_times plus_n_O.
 qed.
 
 theorem p4: \forall x:nat. (x+(S O))*(x-(S O))=x*x - (S O).