X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fdama%2Fdivisible_group.ma;h=3a79b11bbd969a884307f4a6a86d08e63cbcfff8;hb=10d3194c1b42dfa72e51000ff2cc217f937b43ac;hp=4f54545c8fbd74c6817037fdba164b6580f9615f;hpb=5c1b44dfefa085fbb56e23047652d3650be9d855;p=helm.git

diff --git a/helm/software/matita/dama/divisible_group.ma b/helm/software/matita/dama/divisible_group.ma
index 4f54545c8..3a79b11bb 100644
--- a/helm/software/matita/dama/divisible_group.ma
+++ b/helm/software/matita/dama/divisible_group.ma
@@ -50,8 +50,8 @@ qed.
 lemma div1: ∀G:dgroup.∀x:G.x/O ≈ x.
 intro G; cases G; unfold divide; intros; simplify;
 cases (f x O); simplify; simplify in H; intro; apply H;
-apply (ap_rewl ???? (plus_comm ???));
-apply (ap_rewl ???w (zero_neutral ??)); assumption;
+apply (Ap≪ ? (plus_comm ???));
+apply (Ap≪ w (zero_neutral ??)); assumption;
 qed.
 
 lemma apmul_ap: ∀G:dgroup.∀x,y:G.∀n.S n * x # S n * y → x # y.