diff options
| author | Hugo Herbelin | 2014-06-24 02:10:44 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2014-06-28 17:47:03 +0200 |
| commit | db8ffccb25f763d193a63dbe65ff079619a3780e (patch) | |
| tree | 0ac681623bacfaf46784531874c70eafdad0dfad | |
| parent | 5cf1b34cef3280bb38804c9f17c6ff2b3c5ce467 (diff) | |
Small short optimization of instantiation in Evd.
| -rw-r--r-- | pretyping/evd.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/pretyping/evd.ml b/pretyping/evd.ml index 09e34c6aa4..902ec9f154 100644 --- a/pretyping/evd.ml +++ b/pretyping/evd.ml @@ -242,7 +242,8 @@ let make_evar_instance_array info args = | true :: filter, (id, _, _) :: ctxt -> if i < len then let c = Array.unsafe_get args i in - (id, c) :: instrec filter ctxt (succ i) + if isVarId id c then instrec filter ctxt (succ i) + else (id, c) :: instrec filter ctxt (succ i) else instance_mismatch () | _ -> instance_mismatch () in |