X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FgTopLevel%2FproofEngine.ml;h=5f0ba8aaa97ee00f7c085f70386e17b5244e3484;hb=d2c60bae1c4badba0a0f29e3fd2faed6d3a1869e;hp=64d68a37e53adc2aa635bd2b77fd31dea6c254c1;hpb=c7eb56246dc1199f098ed6c8c77aa08fea9a62f8;p=helm.git

diff --git a/helm/gTopLevel/proofEngine.ml b/helm/gTopLevel/proofEngine.ml
index 64d68a37e..5f0ba8aaa 100644
--- a/helm/gTopLevel/proofEngine.ml
+++ b/helm/gTopLevel/proofEngine.ml
@@ -274,4 +274,4 @@ let clear hyp = apply_tactic (ProofEngineStructuralRules.clear ~hyp)
 let elim_type term = apply_tactic (Ring.elim_type_tac ~term)
 let ring () = apply_tactic Ring.ring_tac
 let fourier () = apply_tactic FourierR.fourier_tac
-let rewrite term = apply_tactic (FourierR.rewrite_tac ~term)
+let rewrite_simpl term = apply_tactic (FourierR.rewrite_simpl_tac ~term)