diff options
| author | Maxime Dénès | 2018-02-19 10:10:09 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2018-02-19 10:10:09 +0100 |
| commit | b2bc3eb2a2de6d0834bd6066d2b78c7ba0ed23f3 (patch) | |
| tree | c6eb19e39559df2f55df8edf06d56e29223100ab /plugins/ssr/ssrequality.ml | |
| parent | 1cf756712b5a5216e3a0039fb9d831c8d8ba9cbf (diff) | |
| parent | 9a4340d2fdba8452d04a47402b5c1ad7bcc7f97b (diff) | |
Merge PR #6648: [tactics] make apply_type safe
Diffstat (limited to 'plugins/ssr/ssrequality.ml')
| -rw-r--r-- | plugins/ssr/ssrequality.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/ssr/ssrequality.ml b/plugins/ssr/ssrequality.ml index 6032ed2af8..11ebe43375 100644 --- a/plugins/ssr/ssrequality.ml +++ b/plugins/ssr/ssrequality.ml @@ -382,7 +382,7 @@ let is_construct_ref sigma c r = EConstr.isConstruct sigma c && eq_gr (ConstructRef (fst(EConstr.destConstruct sigma c))) r let is_ind_ref sigma c r = EConstr.isInd sigma c && eq_gr (IndRef (fst(EConstr.destInd sigma c))) r -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 rwcltac cl rdx dir sr gl = let n, r_n,_, ucst = pf_abs_evars gl sr in |