From d603bb578ef71d938c49326e2e4a8392042f607c Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 24 Oct 2006 12:56:16 +0000
Subject: Ajout de la tactique 'remember'

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9268 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 theories/Init/Tactics.v | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'theories')

diff --git a/theories/Init/Tactics.v b/theories/Init/Tactics.v
index 7b03a56c5f..9a2856128a 100644
--- a/theories/Init/Tactics.v
+++ b/theories/Init/Tactics.v
@@ -53,3 +53,12 @@ Ltac f_equal :=
 
 Tactic Notation "rewrite_all" constr(eq) := repeat rewrite eq in *.
 Tactic Notation "rewrite_all" "<-" constr(eq) := repeat rewrite <- eq in *.
+
+(* Keeping a copy of an expression *)
+
+Ltac remembertac x a :=
+  let x := fresh x in
+  let H := fresh "Heq" x in
+  (set (x:=a) in *; assert (H: x=a) by reflexivity; clearbody x).
+
+Tactic Notation "remember" constr(c) "as" ident(x) := remembertac x c.
-- 
cgit v1.2.3