diff options
| author | Pierre-Marie Pédrot | 2020-07-04 19:42:33 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-07-08 00:20:41 +0200 |
| commit | 7ba8eaf750689ab14910069a806233b7635bec91 (patch) | |
| tree | c17c32fba224dfe2f7bf185516d931696aff4e18 /engine | |
| parent | 827425e57f9ecb9bbff3132bdaa504e710c8cf2b (diff) | |
Small code simplification in Evarutil.new_evar.
Diffstat (limited to 'engine')
| -rw-r--r-- | engine/evarutil.ml | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/engine/evarutil.ml b/engine/evarutil.ml index 423af1d4ec..a60e521923 100644 --- a/engine/evarutil.ml +++ b/engine/evarutil.ml @@ -414,10 +414,8 @@ let new_pure_evar_full evd ?typeclass_candidate evi = 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 ?typeclass_candidate ?(principal=false) sign evd typ = - let default_naming = IntroAnonymous in - let naming = Option.default default_naming naming in +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 | IntroAnonymous -> None | IntroIdentifier id -> Some id |