diff options
| author | Hugo Herbelin | 2016-04-27 22:13:02 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2016-04-27 22:13:02 +0200 |
| commit | 1289b016fea5a54eb247cba1cac1fd9a19ee6d32 (patch) | |
| tree | 40ab19e18f8c911b199a574e505eceeaa4e9f95d /ltac | |
| parent | ca914055da6398afa127fa7ed05fb56441ed26a6 (diff) | |
Revert "Revert "Honor parsing and printing levels for tactic entry in TACTIC EXTEND and""
This reverts commit eb9216e544cb5fce4347052f42e9452a822c2f64.
Diffstat (limited to 'ltac')
| -rw-r--r-- | ltac/tacintern.ml | 6 | ||||
| -rw-r--r-- | ltac/tacinterp.ml | 24 |
2 files changed, 30 insertions, 0 deletions
diff --git a/ltac/tacintern.ml b/ltac/tacintern.ml index 4917c3bb52..17f428bdc6 100644 --- a/ltac/tacintern.ml +++ b/ltac/tacintern.ml @@ -799,6 +799,12 @@ let () = Genintern.register_intern0 wit_ident intern_ident'; Genintern.register_intern0 wit_var (lift intern_hyp); Genintern.register_intern0 wit_tactic (lift intern_tactic_or_tacarg); + Genintern.register_intern0 wit_tactic0 (lift intern_tactic_or_tacarg); + Genintern.register_intern0 wit_tactic1 (lift intern_tactic_or_tacarg); + Genintern.register_intern0 wit_tactic2 (lift intern_tactic_or_tacarg); + Genintern.register_intern0 wit_tactic3 (lift intern_tactic_or_tacarg); + Genintern.register_intern0 wit_tactic4 (lift intern_tactic_or_tacarg); + Genintern.register_intern0 wit_tactic5 (lift intern_tactic_or_tacarg); Genintern.register_intern0 wit_ltac (lift intern_tactic_or_tacarg); Genintern.register_intern0 wit_sort (fun ist s -> (ist, s)); Genintern.register_intern0 wit_quant_hyp (lift intern_quantified_hypothesis); diff --git a/ltac/tacinterp.ml b/ltac/tacinterp.ml index 505dcf03ca..0c9d7ff801 100644 --- a/ltac/tacinterp.ml +++ b/ltac/tacinterp.ml @@ -2127,6 +2127,30 @@ let () = Geninterp.register_interp0 wit_tactic interp let () = + let interp ist tac = Ftactic.return (Value.of_closure ist tac) in + Geninterp.register_interp0 wit_tactic0 interp + +let () = + let interp ist tac = Ftactic.return (Value.of_closure ist tac) in + Geninterp.register_interp0 wit_tactic1 interp + +let () = + let interp ist tac = Ftactic.return (Value.of_closure ist tac) in + Geninterp.register_interp0 wit_tactic2 interp + +let () = + let interp ist tac = Ftactic.return (Value.of_closure ist tac) in + Geninterp.register_interp0 wit_tactic3 interp + +let () = + let interp ist tac = Ftactic.return (Value.of_closure ist tac) in + Geninterp.register_interp0 wit_tactic4 interp + +let () = + let interp ist tac = Ftactic.return (Value.of_closure ist tac) in + Geninterp.register_interp0 wit_tactic5 interp + +let () = let interp ist tac = interp_tactic ist tac >>= fun () -> Ftactic.return () in Geninterp.register_interp0 wit_ltac interp |