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 /vernac | |
| parent | dcf6560f00fde4a2564ba8489cdd34e7bdea5cfa (diff) | |
| parent | 54fdae0929f2a05a89cd5c463b9a739ab2e239b8 (diff) | |
Merge PR #9910: [api] [proofs] Remove dependency of proofs on interp.
Reviewed-by: SkySkimmer
Diffstat (limited to 'vernac')
| -rw-r--r-- | vernac/vernacentries.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/vernac/vernacentries.ml b/vernac/vernacentries.ml index 02db75c0f9..de8cdaa633 100644 --- a/vernac/vernacentries.ml +++ b/vernac/vernacentries.ml @@ -1096,7 +1096,10 @@ let focus_command_cond = Proof.no_cond command_focus there are no more goals to solve. It cannot be a tactic since all tactics fail if there are no further goals to prove. *) -let vernac_solve_existential ~pstate i e = Pfedit.instantiate_nth_evar_com i e pstate +let vernac_solve_existential ~pstate n com = + Proof_global.simple_with_current_proof (fun _ p -> + let intern env sigma = Constrintern.intern_constr env sigma com in + Proof.V82.instantiate_evar (Global.env ()) n intern p) pstate let vernac_set_end_tac ~pstate tac = let env = Genintern.empty_glob_sign (Global.env ()) in |