diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-07-24 13:27:45 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-07-24 13:27:45 +0000 |
| commit | 7b15f852051889165d5f12a769a5d58349f693c2 (patch) | |
| tree | 03be915d9e0b37d01f257197cfd1cde1a49e4861 /tactics/equality.ml | |
| parent | 810d1013f4e554bacd096800d4282c239ed59455 (diff) | |
Remove the barely-used/obsolete/undocumented syntax "conditional <tac> rewrite"
I wonder how many of us were aware of the existence of such syntax ;-)
Anyway, it is now subsumed by "rewrite by".
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12248 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/equality.ml')
| -rw-r--r-- | tactics/equality.ml | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/tactics/equality.ml b/tactics/equality.ml index 89a3704ee..3cf5cfd73 100644 --- a/tactics/equality.ml +++ b/tactics/equality.ml @@ -290,22 +290,9 @@ let general_multi_multi_rewrite with_evars l cl tac = | (l2r,m,c)::l -> tclTHENFIRST (doN l2r c m) (loop l) in loop l -(* Conditional rewriting, the success of a rewriting is related - to the resolution of the conditions by a given tactic *) - -let conditional_rewrite lft2rgt tac (c,bl) = - tclTHENSFIRSTn - (general_rewrite_ebindings lft2rgt all_occurrences (c,bl) false) - [|tclIDTAC|] (tclCOMPLETE tac) - let rewriteLR = general_rewrite true all_occurrences let rewriteRL = general_rewrite false all_occurrences -let conditional_rewrite_in lft2rgt id tac (c,bl) = - tclTHENSFIRSTn - (general_rewrite_ebindings_in lft2rgt all_occurrences id (c,bl) false) - [|tclIDTAC|] (tclCOMPLETE tac) - (* Replacing tactics *) (* eq,sym_eq : equality on Type and its symmetry theorem |