diff options
| author | Gaëtan Gilbert | 2017-09-01 16:14:03 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2018-07-03 13:39:18 +0200 |
| commit | cea3d7c83bf3aae18262e62b897ec204c098e444 (patch) | |
| tree | 9ff31a628af00e19de1b8403ef94969a675e4e9d /pretyping/typing.ml | |
| parent | d0b1ac17610bec74abaf122628b74c62643655d8 (diff) | |
Remove unused env argument to fresh_sort_in_family
(Universes and Evd)
Diffstat (limited to 'pretyping/typing.ml')
| -rw-r--r-- | pretyping/typing.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/typing.ml b/pretyping/typing.ml index a66ecaaac3..ca2702d741 100644 --- a/pretyping/typing.ml +++ b/pretyping/typing.ml @@ -138,7 +138,7 @@ let is_correct_arity env sigma c pj ind specif params = then error () else sigma | Evar (ev,_), [] -> - let sigma, s = Evd.fresh_sort_in_family env sigma (max_sort allowed_sorts) in + let sigma, s = Evd.fresh_sort_in_family sigma (max_sort allowed_sorts) in let sigma = Evd.define ev (mkSort s) sigma in sigma | _, (LocalDef _ as d)::ar' -> |