diff options
| author | Pierre-Marie Pédrot | 2016-11-30 00:33:08 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2017-02-14 17:30:44 +0100 |
| commit | 1683b718f85134fdb0d49535e489344e1a7d56f5 (patch) | |
| tree | 5750652739a4c80c793573b29bc8f73194ed1a7f /engine/sigma.ml | |
| parent | 27fbf069ccd846383bcfb35ba1ea5bd1d95090a0 (diff) | |
Making Evd independent from Namegen.
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 = |