diff options
| author | Pierre-Marie Pédrot | 2016-05-03 20:49:01 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-05-04 13:47:12 +0200 |
| commit | c7fd62135403c1ea38194fcdd8035237ee108318 (patch) | |
| tree | 4fc94b097de3969dfe71121865c8e19b276cb38c /ltac | |
| parent | 729d838838d8df06395726477817620e2ae998bc (diff) | |
Removing useless generic arguments.
Diffstat (limited to 'ltac')
| -rw-r--r-- | ltac/extratactics.ml4 | 6 | ||||
| -rw-r--r-- | ltac/tacintern.ml | 2 | ||||
| -rw-r--r-- | ltac/tacinterp.ml | 2 | ||||
| -rw-r--r-- | ltac/tacsubst.ml | 2 |
4 files changed, 6 insertions, 6 deletions
diff --git a/ltac/extratactics.ml4 b/ltac/extratactics.ml4 index 925c1679f2..79f80260fa 100644 --- a/ltac/extratactics.ml4 +++ b/ltac/extratactics.ml4 @@ -393,6 +393,12 @@ open Leminv let seff id = Vernacexpr.VtSideff [id], Vernacexpr.VtLater +VERNAC ARGUMENT EXTEND sort +| [ "Set" ] -> [ GSet ] +| [ "Prop" ] -> [ GProp ] +| [ "Type" ] -> [ GType [] ] +END + VERNAC COMMAND EXTEND DeriveInversionClear | [ "Derive" "Inversion_clear" ident(na) "with" constr(c) "Sort" sort(s) ] => [ seff na ] diff --git a/ltac/tacintern.ml b/ltac/tacintern.ml index 15589d5c4a..977c56f38b 100644 --- a/ltac/tacintern.ml +++ b/ltac/tacintern.ml @@ -800,7 +800,6 @@ let () = Genintern.register_intern0 wit_var (lift intern_hyp); Genintern.register_intern0 wit_tactic (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); Genintern.register_intern0 wit_constr (fun ist c -> (ist,intern_constr ist c)); Genintern.register_intern0 wit_uconstr (fun ist c -> (ist,intern_constr ist c)); @@ -808,7 +807,6 @@ let () = Genintern.register_intern0 wit_red_expr (lift intern_red_expr); Genintern.register_intern0 wit_bindings (lift intern_bindings); Genintern.register_intern0 wit_constr_with_bindings (lift intern_constr_with_bindings); - Genintern.register_intern0 wit_constr_may_eval (lift intern_constr_may_eval); () (***************************************************************************) diff --git a/ltac/tacinterp.ml b/ltac/tacinterp.ml index 94c13a0e0e..a9baef79c7 100644 --- a/ltac/tacinterp.ml +++ b/ltac/tacinterp.ml @@ -2104,14 +2104,12 @@ let () = register_interp0 wit_intro_pattern (lifts interp_intro_pattern); register_interp0 wit_clause_dft_concl (lift interp_clause); register_interp0 wit_constr (lifts interp_constr); - register_interp0 wit_sort (lifts (fun _ _ evd s -> interp_sort evd s)); register_interp0 wit_tacvalue (fun ist v -> Ftactic.return v); register_interp0 wit_red_expr (lifts interp_red_expr); register_interp0 wit_quant_hyp (lift interp_declared_or_quantified_hypothesis); register_interp0 wit_open_constr (lifts interp_open_constr); register_interp0 wit_bindings interp_bindings'; register_interp0 wit_constr_with_bindings interp_constr_with_bindings'; - register_interp0 wit_constr_may_eval (lifts interp_constr_may_eval); () let () = diff --git a/ltac/tacsubst.ml b/ltac/tacsubst.ml index 438219f5a3..54d32f2666 100644 --- a/ltac/tacsubst.ml +++ b/ltac/tacsubst.ml @@ -301,7 +301,6 @@ let () = Genintern.register_subst0 wit_tactic subst_tactic; Genintern.register_subst0 wit_ltac subst_tactic; Genintern.register_subst0 wit_constr subst_glob_constr; - Genintern.register_subst0 wit_sort (fun _ v -> v); Genintern.register_subst0 wit_clause_dft_concl (fun _ v -> v); Genintern.register_subst0 wit_uconstr (fun subst c -> subst_glob_constr subst c); Genintern.register_subst0 wit_open_constr (fun subst c -> subst_glob_constr subst c); @@ -309,5 +308,4 @@ let () = Genintern.register_subst0 wit_quant_hyp subst_declared_or_quantified_hypothesis; Genintern.register_subst0 wit_bindings subst_bindings; Genintern.register_subst0 wit_constr_with_bindings subst_glob_with_bindings; - Genintern.register_subst0 wit_constr_may_eval subst_raw_may_eval; () |