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/evarutil.ml | |
| parent | c6391a7edfd12a876f663bbac6d24386c021d148 (diff) | |
Remove Evarutil.new_evar_from_context from the API.
Diffstat (limited to 'engine/evarutil.ml')
| -rw-r--r-- | engine/evarutil.ml | 8 |
1 files changed, 0 insertions, 8 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 |