diff options
| author | Pierre-Marie Pédrot | 2020-07-04 19:49:37 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-07-08 00:20:42 +0200 |
| commit | c6391a7edfd12a876f663bbac6d24386c021d148 (patch) | |
| tree | 23fd0904d59800dec523f2e0cb63204060f91503 | |
| parent | 7ba8eaf750689ab14910069a806233b7635bec91 (diff) | |
Remove Evarutil.new_pure_evar_full from the API.
| -rw-r--r-- | engine/evarutil.ml | 5 | ||||
| -rw-r--r-- | engine/evarutil.mli | 2 | ||||
| -rw-r--r-- | proofs/goal.ml | 10 |
3 files changed, 2 insertions, 15 deletions
diff --git a/engine/evarutil.ml b/engine/evarutil.ml index a60e521923..e30f908df0 100644 --- a/engine/evarutil.ml +++ b/engine/evarutil.ml @@ -409,11 +409,6 @@ let push_rel_context_to_named_context ?hypnaming env sigma typ = let default_source = Loc.tag @@ Evar_kinds.InternalHole -let new_pure_evar_full evd ?typeclass_candidate evi = - let (evd, evk) = Evd.new_evar evd ?typeclass_candidate evi in - let evd = Evd.declare_future_goal evk evd in - (evd, evk) - let new_pure_evar ?(src=default_source) ?(filter = Filter.identity) ?(abstract_arguments = Abstraction.identity) ?candidates ?(naming = IntroAnonymous) ?typeclass_candidate ?(principal=false) sign evd typ = let name = match naming with diff --git a/engine/evarutil.mli b/engine/evarutil.mli index b3c94e6b3b..c463415b6a 100644 --- a/engine/evarutil.mli +++ b/engine/evarutil.mli @@ -56,8 +56,6 @@ val new_pure_evar : ?principal:bool -> named_context_val -> evar_map -> types -> evar_map * Evar.t -val new_pure_evar_full : evar_map -> ?typeclass_candidate:bool -> evar_info -> evar_map * Evar.t - (** Create a new Type existential variable, as we keep track of them during type-checking and unification. *) val new_type_evar : diff --git a/proofs/goal.ml b/proofs/goal.ml index 53d3047bc7..beeaa60433 100644 --- a/proofs/goal.ml +++ b/proofs/goal.ml @@ -58,15 +58,9 @@ 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 evi = { Evd.evar_hyps = hyps; - Evd.evar_concl = concl; - Evd.evar_filter = Evd.Filter.identity; - Evd.evar_abstract_arguments = Evd.Abstraction.identity; - Evd.evar_body = Evd.Evar_empty; - Evd.evar_source = (Loc.tag Evar_kinds.GoalEvar); - Evd.evar_candidates = None } + let (evars, evk) = + Evarutil.new_pure_evar ~src:(Loc.tag Evar_kinds.GoalEvar) ~typeclass_candidate:false hyps evars concl in - let (evars, evk) = Evarutil.new_pure_evar_full evars ~typeclass_candidate:false evi in let evars = Evd.restore_future_goals evars prev_future_goals in let ctxt = Environ.named_context_of_val hyps in let inst = List.map (NamedDecl.get_id %> EConstr.mkVar) ctxt in |