From 286bfdb1ee60abe9d7b9357abf9b21dab63512dc Mon Sep 17 00:00:00 2001
From: herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Wed, 27 Oct 2004 17:45:50 +0000
Subject: Factorisation cut_replacing

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6263 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 tactics/setoid_replace.ml | 29 +++++++----------------------
 1 file changed, 7 insertions(+), 22 deletions(-)

diff --git a/tactics/setoid_replace.ml b/tactics/setoid_replace.ml
index 357e9fa0a..b374a1845 100644
--- a/tactics/setoid_replace.ml
+++ b/tactics/setoid_replace.ml
@@ -1747,14 +1747,8 @@ let general_s_rewrite_in id lft2rgt c ~new_goals gl =
   else
    Termops.replace_term c2 c1 hyp
  in
-  tclTHENS
-   (cut new_hyp)
-   [ (* Try to insert the new hyp at the same place *)
-     tclORELSE (intro_replacing id)
-       (tclTHEN (clear [id]) (introduction id));
-     tclTHENLAST
-      (general_s_rewrite (not lft2rgt) c ~new_goals)
-      (exact_check (mkVar id))] gl
+ cut_replacing id new_hyp
+   (tclTHENLAST (general_s_rewrite (not lft2rgt) c ~new_goals)) gl
 
 let setoid_replace relation c1 c2 ~new_goals gl =
  try
@@ -1792,14 +1786,10 @@ let setoid_replace relation c1 c2 ~new_goals gl =
 let setoid_replace_in id relation c1 c2 ~new_goals gl =
  let hyp = pf_type_of gl (mkVar id) in
  let new_hyp = Termops.replace_term c1 c2 hyp in
-  tclTHENS
-   (cut new_hyp)
-   [ (* Try to insert the new hyp at the same place *)
-     tclORELSE (intro_replacing id)
-       (tclTHEN (clear [id]) (introduction id));
-     tclTHENLASTn
-      (setoid_replace relation c2 c1 ~new_goals)
-      [| exact_check (mkVar id); tclIDTAC |] ] gl
+ cut_replacing id new_hyp
+   (fun exact -> tclTHENLASTn
+     (setoid_replace relation c2 c1 ~new_goals)
+     [| exact; tclIDTAC |]) gl
 
 (* [setoid_]{reflexivity,symmetry,transitivity} tactics *)
 
@@ -1840,12 +1830,7 @@ let setoid_symmetry_in id gl =
   let _,he,c1,c2 = analyse_hypothesis gl (mkVar id) in
    mkApp (he, [| c2 ; c1 |])
  in
-  tclTHENS
-   (cut new_hyp)
-   [ (* Try to insert the new hyp at the same place *)
-     tclORELSE (intro_replacing id)
-       (tclTHEN (clear [id]) (introduction id));
-     tclTHENS setoid_symmetry [ exact_check (mkVar id) ] ] gl
+ cut_replacing id new_hyp (tclTHEN setoid_symmetry) gl
 
 let setoid_transitivity c gl =
  try
-- 
cgit v1.2.3