From 19a8469f7accf0671bc0270c66d7725ae57f6720 Mon Sep 17 00:00:00 2001 From: letouzey Date: Thu, 5 Oct 2006 12:38:33 +0000 Subject: revision de la semantique de rewrite ... in . details dans la doc git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9211 85f007b7-540e-0410-9357-904b9bb8a0f7 --- theories/Init/Tactics.v | 23 +++-------------------- 1 file changed, 3 insertions(+), 20 deletions(-) (limited to 'theories') diff --git a/theories/Init/Tactics.v b/theories/Init/Tactics.v index 9750be0dfb..7b03a56c5f 100644 --- a/theories/Init/Tactics.v +++ b/theories/Init/Tactics.v @@ -49,24 +49,7 @@ Ltac f_equal := | _ => idtac end. -(* Rewriting in all hypothesis. *) +(* Rewriting in all hypothesis several times everywhere *) -Ltac rewrite_all Eq := match type of Eq with - ?a = ?b => - generalize Eq; clear Eq; - match goal with - | H : context [a] |- _ => intro Eq; rewrite Eq in H; rewrite_all Eq - | _ => intro Eq; try rewrite Eq - end - end. - -Ltac rewrite_all_rev Eq := match type of Eq with - ?a = ?b => - generalize Eq; clear Eq; - match goal with - | H : context [b] |- _ => intro Eq; rewrite <- Eq in H; rewrite_all_rev Eq - | _ => intro Eq; try rewrite <- Eq - end - end. - -Tactic Notation "rewrite_all" "<-" constr(H) := rewrite_all_rev H. +Tactic Notation "rewrite_all" constr(eq) := repeat rewrite eq in *. +Tactic Notation "rewrite_all" "<-" constr(eq) := repeat rewrite <- eq in *. -- cgit v1.2.3