diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-05-16 16:49:27 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-05-16 16:49:27 +0000 |
| commit | 79311e8734b5970afa3db069e9452c2521713895 (patch) | |
| tree | 13c6a9390fcbda9a2fe6fa67ab33055108ffd18f /tactics/equality.ml | |
| parent | 1cafd3f142f42c0b0d4d143419f4f6984c64e276 (diff) | |
Retrait du i pour tclTHEN_i et correction bugs Decompose
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@434 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/equality.ml')
| -rw-r--r-- | tactics/equality.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tactics/equality.ml b/tactics/equality.ml index 5ecf3a39a..b4cc547d1 100644 --- a/tactics/equality.ml +++ b/tactics/equality.ml @@ -142,7 +142,7 @@ let h_replace c1 c2 = v_replace [(Constr c1);(Constr c2)] let conditional_rewrite lft2rgt tac (c,bl) = tclTHEN_i (general_rewrite_bindings lft2rgt (c,bl)) - (fun i -> if i=1 then tclIDTAC else tclCOMPLETE tac) 1 + (fun i -> if i=1 then tclIDTAC else tclCOMPLETE tac) let dyn_conditional_rewrite lft2rgt = function | [(Tacexp tac); (Command com);(Bindings binds)] -> @@ -1470,7 +1470,7 @@ let rewriteRL_in_tac = hide_tactic "RewriteRLin" (dyn_rewrite_in false) let conditional_rewrite_in lft2rgt id tac (c,bl) = tclTHEN_i (general_rewrite_in lft2rgt id (c,bl)) - (fun i -> if i=1 then tclIDTAC else tclCOMPLETE tac) 1 + (fun i -> if i=1 then tclIDTAC else tclCOMPLETE tac) let dyn_conditional_rewrite_in lft2rgt = function | [(Tacexp tac); Identifier id; (Command com);(Bindings binds)] -> |