diff options
Diffstat (limited to 'proofs/tacmach.ml')
| -rw-r--r-- | proofs/tacmach.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/proofs/tacmach.ml b/proofs/tacmach.ml index 7ecf0a9e8..d9caadd54 100644 --- a/proofs/tacmach.ml +++ b/proofs/tacmach.ml @@ -41,6 +41,11 @@ 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 pf_concl gls = EConstr.Unsafe.to_constr (Goal.V82.concl (project gls) (sig_it gls)) let pf_hyps_types gls = let sign = Environ.named_context (pf_env gls) in |