diff options
| author | Gaëtan Gilbert | 2019-04-10 16:24:27 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2019-04-10 16:24:27 +0200 |
| commit | b177e7b9991e81ec3c9c145f04ca3a896f756fd9 (patch) | |
| tree | 992d942745587a31b263509d046b4a0b6a82e7a2 /proofs/proof.ml | |
| parent | dcf6560f00fde4a2564ba8489cdd34e7bdea5cfa (diff) | |
| parent | 54fdae0929f2a05a89cd5c463b9a739ab2e239b8 (diff) | |
Merge PR #9910: [api] [proofs] Remove dependency of proofs on interp.
Reviewed-by: SkySkimmer
Diffstat (limited to 'proofs/proof.ml')
| -rw-r--r-- | proofs/proof.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/proofs/proof.ml b/proofs/proof.ml index e40940f652..978b1f6f78 100644 --- a/proofs/proof.ml +++ b/proofs/proof.ml @@ -480,7 +480,7 @@ module V82 = struct { p with proofview = Proofview.V82.grab p.proofview } (* Main component of vernac command Existential *) - let instantiate_evar env n com pr = + let instantiate_evar env n intern pr = let tac = Proofview.tclBIND Proofview.tclEVARMAP begin fun sigma -> let (evk, evi) = @@ -494,7 +494,7 @@ module V82 = struct CList.nth evl (n-1) in let env = Evd.evar_filtered_env evi in - let rawc = Constrintern.intern_constr env sigma com in + let rawc = intern env sigma in let ltac_vars = Glob_ops.empty_lvar in let sigma = Evar_refiner.w_refine (evk, evi) (ltac_vars, rawc) sigma in Proofview.Unsafe.tclEVARS sigma |