diff options
| author | Pierre-Marie Pédrot | 2020-07-13 15:02:43 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-08-06 12:33:58 +0200 |
| commit | 7126990e5b04d51927f414b277124c127fb14887 (patch) | |
| tree | aeffc105a7e498d1db244a30facbbfd09fab8c9d /proofs | |
| parent | 8076de05c67a4dabc99233d8e2b81809c28794e4 (diff) | |
Actually use the default instance stored inside named_context_val.
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/goal.ml | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/proofs/goal.ml b/proofs/goal.ml index 70c09df241..1c3aed8fc2 100644 --- a/proofs/goal.ml +++ b/proofs/goal.ml @@ -8,7 +8,6 @@ (* * (see LICENSE file for the text of the license) *) (************************************************************************) -open Util open Pp module NamedDecl = Context.Named.Declaration @@ -58,8 +57,7 @@ module V82 = struct goals are restored to their initial value after the evar is created. *) let prev_future_goals = Evd.save_future_goals evars in - let ctxt = Environ.named_context_of_val hyps in - let inst = List.map (NamedDecl.get_id %> EConstr.mkVar) ctxt in + let inst = EConstr.identity_subst_val hyps in let (evars, evk) = Evarutil.new_pure_evar ~src:(Loc.tag Evar_kinds.GoalEvar) ~typeclass_candidate:false ~identity:inst hyps evars concl in |