diff options
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 : |