diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-11-29 17:49:11 +0100 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-02-14 17:30:44 +0100 |
commit | 390fd4ac0a969103caeb5db3e5138e26f9a533de (patch) | |
tree | f04f87b0fca81518797dabd0f9d2d395ba8ec2b8 /proofs/tacmach.ml | |
parent | d549d9d3d169fbfc5f555e3e4f22f46301161d53 (diff) |
Chasing a few unsafe constr coercions.
Diffstat (limited to 'proofs/tacmach.ml')
-rw-r--r-- | proofs/tacmach.ml | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/proofs/tacmach.ml b/proofs/tacmach.ml index 4b027a127..97c5cda77 100644 --- a/proofs/tacmach.ml +++ b/proofs/tacmach.ml @@ -41,10 +41,8 @@ let project = Refiner.project let pf_env = Refiner.pf_env let pf_hyps = Refiner.pf_hyps -let test_conversion cb env sigma c1 c2 = - let c1 = EConstr.Unsafe.to_constr c1 in - let c2 = EConstr.Unsafe.to_constr c2 in - test_conversion cb env sigma c1 c2 +let test_conversion env sigma pb c1 c2 = + Reductionops.check_conv ~pb env sigma c1 c2 let pf_concl gls = Goal.V82.concl (project gls) (sig_it gls) let pf_hyps_types gls = |