diff options
| author | letouzey | 2012-03-30 09:47:54 +0000 |
|---|---|---|
| committer | letouzey | 2012-03-30 09:47:54 +0000 |
| commit | 534cbe4f02392c45567ea30d02b53751482ed767 (patch) | |
| tree | 551492b23a09f05a41e65fe60040cdfd40e761a3 /parsing | |
| parent | a99754e41a7b80d2e2a464e6614ccf3026ef4df0 (diff) | |
Remove code of obsolete tactics : superauto, autotdb, cdhyp, dhyp, dconcl
No grammar entries for these tactics since coq 8.0
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15102 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/g_proofs.ml4 | 14 | ||||
| -rw-r--r-- | parsing/g_tactic.ml4 | 7 | ||||
| -rw-r--r-- | parsing/pptactic.ml | 5 | ||||
| -rw-r--r-- | parsing/ppvernac.ml | 6 |
4 files changed, 2 insertions, 30 deletions
diff --git a/parsing/g_proofs.ml4 b/parsing/g_proofs.ml4 index 3851619809..9adcde1113 100644 --- a/parsing/g_proofs.ml4 +++ b/parsing/g_proofs.ml4 @@ -23,11 +23,6 @@ let thm_token = G_vernac.thm_token GEXTEND Gram GLOBAL: command; - destruct_location : - [ [ IDENT "Conclusion" -> Tacexpr.ConclLocation () - | discard = [ IDENT "Discardable" -> true | -> false ]; "Hypothesis" - -> Tacexpr.HypLocation discard ] ] - ; opt_hintbases: [ [ -> [] | ":"; l = LIST1 [id = IDENT -> id ] -> l ] ] @@ -115,14 +110,7 @@ GEXTEND Gram | IDENT "Constructors"; lc = LIST1 global -> HintsConstructors lc | IDENT "Extern"; n = natural; c = OPT constr_pattern ; "=>"; tac = tactic -> - HintsExtern (n,c,tac) - | IDENT "Destruct"; - id = ident; ":="; - pri = natural; - dloc = destruct_location; - hyptyp = constr_pattern; - "=>"; tac = tactic -> - HintsDestruct(id,pri,dloc,hyptyp,tac) ] ] + HintsExtern (n,c,tac) ] ] ; constr_body: [ [ ":="; c = lconstr -> c diff --git a/parsing/g_tactic.ml4 b/parsing/g_tactic.ml4 index 7d5e976d37..7dc166750c 100644 --- a/parsing/g_tactic.ml4 +++ b/parsing/g_tactic.ml4 @@ -602,13 +602,6 @@ GEXTEND Gram | IDENT "auto"; n = OPT int_or_var; lems = auto_using; db = hintbases -> TacAuto (n,lems,db) -(* Obsolete since V8.0 - | IDENT "autotdb"; n = OPT natural -> TacAutoTDB n - | IDENT "cdhyp"; id = identref -> TacDestructHyp (true,id) - | IDENT "dhyp"; id = identref -> TacDestructHyp (false,id) - | IDENT "dconcl" -> TacDestructConcl - | IDENT "superauto"; l = autoargs -> TacSuperAuto l -*) | IDENT "auto"; IDENT "decomp"; p = OPT natural; lems = auto_using -> TacDAuto (None,p,lems) | IDENT "auto"; n = OPT int_or_var; IDENT "decomp"; p = OPT natural; diff --git a/parsing/pptactic.ml b/parsing/pptactic.ml index 2f80afdbe6..465d0b76a8 100644 --- a/parsing/pptactic.ml +++ b/parsing/pptactic.ml @@ -632,11 +632,6 @@ let rec pr_atom0 = function (* Main tactic printer *) and pr_atom1 = function - | TacAutoTDB _ | TacDestructHyp _ | TacDestructConcl - | TacSuperAuto _ | TacExtend (_, - ("GTauto"|"GIntuition"|"TSimplif"| - "LinearIntuition"),_) -> - errorlabstrm "Obsolete V8" (str "Tactic is not ported to V8.0") | TacExtend (loc,s,l) -> pr_with_comments loc (pr_extend 1 s l) | TacAlias (loc,s,l,_) -> diff --git a/parsing/ppvernac.ml b/parsing/ppvernac.ml index f9f565dcea..75442631c4 100644 --- a/parsing/ppvernac.ml +++ b/parsing/ppvernac.ml @@ -205,11 +205,7 @@ let pr_hints local db h pr_c pr_pat = let pat = match c with None -> mt () | Some pat -> pr_pat pat in str "Extern" ++ spc() ++ int n ++ spc() ++ pat ++ str" =>" ++ spc() ++ pr_raw_tactic tac - | HintsDestruct(name,i,loc,c,tac) -> - str "Destruct " ++ pr_id name ++ str" :=" ++ spc() ++ - hov 0 (int i ++ spc() ++ pr_destruct_location loc ++ spc() ++ - pr_c c ++ str " =>") ++ spc() ++ - pr_raw_tactic tac in + in hov 2 (str"Hint "++pr_locality local ++ pph ++ opth) let pr_with_declaration pr_c = function |