diff options
Diffstat (limited to 'engine/sigma.ml')
| -rw-r--r-- | engine/sigma.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/engine/sigma.ml b/engine/sigma.ml index 9381a33af1..001f8be80a 100644 --- a/engine/sigma.ml +++ b/engine/sigma.ml @@ -29,8 +29,8 @@ let here x s = Sigma (x, s, ()) type 'r fresh = Fresh : 's evar * 's t * ('r, 's) le -> 'r fresh -let new_evar sigma ?naming info = - let (sigma, evk) = Evd.new_evar sigma ?naming info in +let new_evar sigma ?name info = + let (sigma, evk) = Evd.new_evar sigma ?name info in Fresh (evk, sigma, ()) let define evk c sigma = |