]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/matita/library/nat/plus.ma
ocaml 3.09 transition
[helm.git] / helm / matita / library / nat / plus.ma
index 8043d9a526663efc3b2b526fb35466cf49fe20be..d595dad19113cb6626ec4e58cc1e8a2d389be2b1 100644 (file)
@@ -43,7 +43,7 @@ simplify.rewrite > H.apply plus_n_Sm.
 qed.
 
 theorem associative_plus : associative nat plus.
-simplify.intros.elim x.
+unfold associative.intros.elim x.
 simplify.reflexivity.
 simplify.apply eq_f.assumption.
 qed.