diff options
-rw-r--r-- | grammar/coqpp_parse.mly | 1 | ||||
-rw-r--r-- | plugins/ltac/coretactics.mlg | 2 |
2 files changed, 2 insertions, 1 deletions
diff --git a/grammar/coqpp_parse.mly b/grammar/coqpp_parse.mly index d7fcc122c..baafd633c 100644 --- a/grammar/coqpp_parse.mly +++ b/grammar/coqpp_parse.mly @@ -42,7 +42,6 @@ let parse_user_entry s sep = let rec parse s sep = function | [] -> let () = without_sep ignore sep () in - let s = match s with "hyp" -> "var" | _ -> s in begin match starts s "tactic" with | Some ("0"|"1"|"2"|"3"|"4"|"5") -> Uentryl ("tactic", int_of_string s) | Some _ | None -> Uentry s diff --git a/plugins/ltac/coretactics.mlg b/plugins/ltac/coretactics.mlg index a7331223e..6388906f5 100644 --- a/plugins/ltac/coretactics.mlg +++ b/plugins/ltac/coretactics.mlg @@ -20,6 +20,8 @@ open Tacarg open Names open Logic +let wit_hyp = wit_var + } DECLARE PLUGIN "ltac_plugin" |