diff options
| author | Pierre-Marie Pédrot | 2020-07-04 19:54:19 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-07-08 00:20:42 +0200 |
| commit | aba870c6b58b18bc1bd4711c379863a87bbf6d33 (patch) | |
| tree | 6509127f687752c26d6a4353e1487e98f36966fe /engine | |
| parent | c6391a7edfd12a876f663bbac6d24386c021d148 (diff) | |
Remove Evarutil.new_evar_from_context from the API.
Diffstat (limited to 'engine')
| -rw-r--r-- | engine/evarutil.ml | 8 | ||||
| -rw-r--r-- | engine/evarutil.mli | 8 |
2 files changed, 0 insertions, 16 deletions
diff --git a/engine/evarutil.ml b/engine/evarutil.ml index e30f908df0..9bfe3e21f3 100644 --- a/engine/evarutil.ml +++ b/engine/evarutil.ml @@ -444,14 +444,6 @@ let new_evar_instance ?src ?filter ?abstract_arguments ?candidates ?naming ?type let (evd, newevk) = new_pure_evar sign evd ?src ?filter ?abstract_arguments ?candidates ?naming ?typeclass_candidate ?principal typ in evd, mkEvar (newevk, instance) -let new_evar_from_context ?src ?filter ?candidates ?naming ?typeclass_candidate ?principal sign evd typ = - let instance = List.map (NamedDecl.get_id %> EConstr.mkVar) (named_context_of_val sign) in - let instance = - match filter with - | None -> instance - | Some filter -> Filter.filter_list filter instance in - new_evar_instance sign evd typ ?src ?filter ?candidates ?naming ?principal instance - (* [new_evar] declares a new existential in an env env with type typ *) (* Converting the env into the sign of the evar to define *) let new_evar ?src ?filter ?abstract_arguments ?candidates ?naming ?typeclass_candidate diff --git a/engine/evarutil.mli b/engine/evarutil.mli index c463415b6a..c592a4f5d1 100644 --- a/engine/evarutil.mli +++ b/engine/evarutil.mli @@ -25,14 +25,6 @@ val mk_new_meta : unit -> constr (** {6 Creating a fresh evar given their type and context} *) -val new_evar_from_context : - ?src:Evar_kinds.t Loc.located -> ?filter:Filter.t -> - ?candidates:constr list -> - ?naming:intro_pattern_naming_expr -> - ?typeclass_candidate:bool -> - ?principal:bool -> - named_context_val -> evar_map -> types -> evar_map * EConstr.t - type naming_mode = | KeepUserNameAndRenameExistingButSectionNames | KeepUserNameAndRenameExistingEvenSectionNames |