diff options
author | Enrico Tassi <Enrico.Tassi@inria.fr> | 2018-01-23 17:09:08 +0100 |
---|---|---|
committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2018-02-16 18:11:02 +0100 |
commit | 9a4340d2fdba8452d04a47402b5c1ad7bcc7f97b (patch) | |
tree | b650fc7e644ee4c6df829f298ee96705e4875085 /plugins/ssr/ssrtacticals.ml | |
parent | 8dd6d091ffbfa237f7266eeca60187263a9b521f (diff) |
apply_type: add option "typecheck" passed down to refine
Diffstat (limited to 'plugins/ssr/ssrtacticals.ml')
-rw-r--r-- | plugins/ssr/ssrtacticals.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/ssr/ssrtacticals.ml b/plugins/ssr/ssrtacticals.ml index 5e43c8374..6514b186e 100644 --- a/plugins/ssr/ssrtacticals.ml +++ b/plugins/ssr/ssrtacticals.ml @@ -122,7 +122,7 @@ let endclausestac id_map clseq gl_id cl0 gl = if List.for_all not_hyp' all_ids && not c_hidden then mktac [] gl else CErrors.user_err (Pp.str "tampering with discharged assumptions of \"in\" tactical") -let apply_type x xs = Proofview.V82.of_tactic (Tactics.apply_type x xs) +let apply_type x xs = Proofview.V82.of_tactic (Tactics.apply_type ~typecheck:false x xs) let tclCLAUSES ist tac (gens, clseq) gl = if clseq = InGoal || clseq = InSeqGoal then tac gl else |