diff options
| author | Gaëtan Gilbert | 2017-09-04 15:14:47 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2018-07-03 13:39:18 +0200 |
| commit | 8baf4746c931c29a04a3c7eced71743ad3e608bf (patch) | |
| tree | 1257fa719fb1a2eb3b594613c8e367a82f9bbea7 /engine | |
| parent | 85fe61e5d7ce550811a40ac8d9a28fffcf20fb1d (diff) | |
Evarutil.(e_)new_Type: remove unused env argument
Diffstat (limited to 'engine')
| -rw-r--r-- | engine/evarutil.ml | 4 | ||||
| -rw-r--r-- | engine/evarutil.mli | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/engine/evarutil.ml b/engine/evarutil.ml index 0c044f20d1..b77bf55d8d 100644 --- a/engine/evarutil.ml +++ b/engine/evarutil.ml @@ -495,12 +495,12 @@ let e_new_type_evar env evdref ?src ?filter ?naming ?principal ?hypnaming rigid evdref := evd; c -let new_Type ?(rigid=Evd.univ_flexible) env evd = +let new_Type ?(rigid=Evd.univ_flexible) evd = let open EConstr in let (evd, s) = new_sort_variable rigid evd in (evd, mkSort s) -let e_new_Type ?(rigid=Evd.univ_flexible) env evdref = +let e_new_Type ?(rigid=Evd.univ_flexible) evdref = let evd', s = new_sort_variable rigid !evdref in evdref := evd'; EConstr.mkSort s diff --git a/engine/evarutil.mli b/engine/evarutil.mli index 135aa73fcd..0ad323ac4b 100644 --- a/engine/evarutil.mli +++ b/engine/evarutil.mli @@ -63,7 +63,7 @@ val new_type_evar : env -> evar_map -> rigid -> evar_map * (constr * Sorts.t) -val new_Type : ?rigid:rigid -> env -> evar_map -> evar_map * constr +val new_Type : ?rigid:rigid -> evar_map -> evar_map * constr (** Polymorphic constants *) @@ -287,7 +287,7 @@ val e_new_type_evar : env -> evar_map ref -> ?principal:bool -> ?hypnaming:naming_mode -> rigid -> constr * Sorts.t [@@ocaml.deprecated "Use [Evarutil.new_type_evar]"] -val e_new_Type : ?rigid:rigid -> env -> evar_map ref -> constr +val e_new_Type : ?rigid:rigid -> evar_map ref -> constr [@@ocaml.deprecated "Use [Evarutil.new_Type]"] val e_new_global : evar_map ref -> GlobRef.t -> constr |