From 601f41b23093e83b25c84d7e3701fa24ffe2dbca Mon Sep 17 00:00:00 2001 From: Enrico Tassi Date: Mon, 19 Feb 2018 14:25:15 +0100 Subject: ssr: use `apply_type ~typecheck:true` everywhere (fix #6634) --- plugins/ssr/ssrequality.ml | 2 -- 1 file changed, 2 deletions(-) (limited to 'plugins/ssr/ssrequality.ml') diff --git a/plugins/ssr/ssrequality.ml b/plugins/ssr/ssrequality.ml index 71cde0ca1..f45a191b7 100644 --- a/plugins/ssr/ssrequality.ml +++ b/plugins/ssr/ssrequality.ml @@ -384,8 +384,6 @@ 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 ~typecheck:false x xs) - let rwcltac cl rdx dir sr gl = let n, r_n,_, ucst = pf_abs_evars gl sr in let r_n' = pf_abs_cterm gl n r_n in -- cgit v1.2.3