diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-11-21 21:33:14 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-02-14 17:30:34 +0100 |
| commit | a327ae04966aa1c7786ae32157516e934068ea89 (patch) | |
| tree | a44bc1804aeb7beb90f4eb45d272c439616af7d3 /proofs/tacmach.ml | |
| parent | 0cdb7e42f64674e246d4e24e3c725e23ceeec6bd (diff) | |
Quote API using EConstr.
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 |