diff options
| author | letouzey | 2009-07-24 13:27:45 +0000 |
|---|---|---|
| committer | letouzey | 2009-07-24 13:27:45 +0000 |
| commit | 7b15f852051889165d5f12a769a5d58349f693c2 (patch) | |
| tree | 03be915d9e0b37d01f257197cfd1cde1a49e4861 /plugins | |
| 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 'plugins')
| -rw-r--r-- | plugins/interface/xlate.ml | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/plugins/interface/xlate.ml b/plugins/interface/xlate.ml index 1f4038cbbf..6f9e673a92 100644 --- a/plugins/interface/xlate.ml +++ b/plugins/interface/xlate.ml @@ -1039,21 +1039,6 @@ and xlate_tac = | TacRewrite(_,_,_,Some _) -> xlate_error "TODO: rewrite by" | TacRewrite(false,_,cl,_) -> xlate_error "TODO: rewrite of several hyps at once" | TacRewrite(true,_,cl,_) -> xlate_error "TODO: erewrite" - | TacExtend (_,"conditional_rewrite", [t; b; cbindl]) -> - let t = out_gen rawwit_main_tactic t in - let b = out_gen Extraargs.rawwit_orient b in - let (c,bindl) = out_gen rawwit_constr_with_bindings cbindl in - let c = xlate_formula c and bindl = xlate_bindings bindl in - if b then CT_condrewrite_lr (xlate_tactic t, c, bindl, ctv_ID_OPT_NONE) - else CT_condrewrite_rl (xlate_tactic t, c, bindl, ctv_ID_OPT_NONE) - | TacExtend (_,"conditional_rewrite", [t; b; cbindl; id]) -> - let t = out_gen rawwit_main_tactic t in - let b = out_gen Extraargs.rawwit_orient b in - let (c,bindl) = out_gen rawwit_constr_with_bindings cbindl in - let c = xlate_formula c and bindl = xlate_bindings bindl in - let id = ctf_ID_OPT_SOME (xlate_ident (snd (out_gen rawwit_var id))) in - if b then CT_condrewrite_lr (xlate_tactic t, c, bindl, id) - else CT_condrewrite_rl (xlate_tactic t, c, bindl, id) | TacExtend (_,"dependent_rewrite", [b; c]) -> let b = out_gen Extraargs.rawwit_orient b in let c = xlate_formula (out_gen rawwit_constr c) in |