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 /engine | |
| parent | 7ba8eaf750689ab14910069a806233b7635bec91 (diff) | |
Remove Evarutil.new_pure_evar_full from the API.
Diffstat (limited to 'engine')
| -rw-r--r-- | engine/evarutil.ml | 5 | ||||
| -rw-r--r-- | engine/evarutil.mli | 2 |
2 files changed, 0 insertions, 7 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 : |