diff options
| author | Théo Zimmermann | 2019-06-03 16:27:52 +0200 |
|---|---|---|
| committer | Théo Zimmermann | 2019-06-03 16:27:52 +0200 |
| commit | 147666df9d71056e614acbab0b0b5935a085bf32 (patch) | |
| tree | 3c7e5b33cc60f56eaa359b90b3918053354cdfd4 /vernac | |
| parent | 5465bbf5525ce82fd3063f6cbd0bb651cc5f4d24 (diff) | |
| parent | 6a5dcbbfea1af0308a4d49e7c5bcea26d74a739d (diff) | |
Merge PR #10277: Remove Show Script (deprecated in 8.10)
Reviewed-by: Zimmi48
Reviewed-by: gares
Diffstat (limited to 'vernac')
| -rw-r--r-- | vernac/g_proofs.mlg | 1 | ||||
| -rw-r--r-- | vernac/ppvernac.ml | 1 | ||||
| -rw-r--r-- | vernac/vernacentries.ml | 2 | ||||
| -rw-r--r-- | vernac/vernacexpr.ml | 1 |
4 files changed, 0 insertions, 5 deletions
diff --git a/vernac/g_proofs.mlg b/vernac/g_proofs.mlg index ecc7d3ff88..ea35ea782d 100644 --- a/vernac/g_proofs.mlg +++ b/vernac/g_proofs.mlg @@ -88,7 +88,6 @@ GRAMMAR EXTEND Gram | IDENT "Show" -> { VernacShow (ShowGoal OpenSubgoals) } | IDENT "Show"; n = natural -> { VernacShow (ShowGoal (NthGoal n)) } | IDENT "Show"; id = ident -> { VernacShow (ShowGoal (GoalId id)) } - | IDENT "Show"; IDENT "Script" -> { VernacShow ShowScript } | IDENT "Show"; IDENT "Existentials" -> { VernacShow ShowExistentials } | IDENT "Show"; IDENT "Universes" -> { VernacShow ShowUniverses } | IDENT "Show"; IDENT "Conjectures" -> { VernacShow ShowProofNames } diff --git a/vernac/ppvernac.ml b/vernac/ppvernac.ml index e307c0c268..535a0fa02c 100644 --- a/vernac/ppvernac.ml +++ b/vernac/ppvernac.ml @@ -628,7 +628,6 @@ open Pputils let pr_showable = function | ShowGoal n -> keyword "Show" ++ pr_goal_reference n | ShowProof -> keyword "Show Proof" - | ShowScript -> keyword "Show Script" | ShowExistentials -> keyword "Show Existentials" | ShowUniverses -> keyword "Show Universes" | ShowProofNames -> keyword "Show Conjectures" diff --git a/vernac/vernacentries.ml b/vernac/vernacentries.ml index 22427621e6..337cb233a2 100644 --- a/vernac/vernacentries.ml +++ b/vernac/vernacentries.ml @@ -2169,7 +2169,6 @@ let vernac_show ~pstate = begin function | ShowProof -> show_proof ~pstate | ShowMatch id -> show_match id - | ShowScript -> assert false (* Only the stm knows the script *) | _ -> user_err (str "This command requires an open proof.") end @@ -2190,7 +2189,6 @@ let vernac_show ~pstate = | ShowIntros all -> show_intro ~pstate all | ShowProof -> show_proof ~pstate:(Some pstate) | ShowMatch id -> show_match id - | ShowScript -> assert false (* Only the stm knows the script *) end let vernac_check_guard ~pstate = diff --git a/vernac/vernacexpr.ml b/vernac/vernacexpr.ml index df1d08ad0f..b8946fad23 100644 --- a/vernac/vernacexpr.ml +++ b/vernac/vernacexpr.ml @@ -81,7 +81,6 @@ type locatable = type showable = | ShowGoal of goal_reference | ShowProof - | ShowScript | ShowExistentials | ShowUniverses | ShowProofNames |