diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2018-03-08 09:19:02 +0100 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2018-03-08 09:19:02 +0100 |
| commit | dc9af4eb4be26f7656a6c5c8e8c80b44011c1734 (patch) | |
| tree | 404c2fba550ce9b3779354d095bb416fa2869e44 /plugins/ssr/ssrtacticals.ml | |
| parent | 144517d764f11b8b79e8f7adfeca0d075dd4ac19 (diff) | |
| parent | 601f41b23093e83b25c84d7e3701fa24ffe2dbca (diff) | |
Merge PR #6783: ssr: use `apply_type ~typecheck:true` everywhere (fix #6634)
Diffstat (limited to 'plugins/ssr/ssrtacticals.ml')
| -rw-r--r-- | plugins/ssr/ssrtacticals.ml | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/plugins/ssr/ssrtacticals.ml b/plugins/ssr/ssrtacticals.ml index cdf1c6f95..9cc4f5cec 100644 --- a/plugins/ssr/ssrtacticals.ml +++ b/plugins/ssr/ssrtacticals.ml @@ -127,8 +127,6 @@ let endclausestac id_map clseq gl_id cl0 gl = if List.for_all not_hyp' all_ids && not c_hidden then mktac [] gl else errorstrm Pp.(str "tampering with discharged assumptions of \"in\" tactical") -let apply_type x xs = Proofview.V82.of_tactic (Tactics.apply_type ~typecheck:false x xs) - let tclCLAUSES tac (gens, clseq) gl = if clseq = InGoal || clseq = InSeqGoal then tac gl else let clr_gens = pf_clauseids gl gens clseq in |