diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-11-06 03:23:13 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-02-14 17:25:28 +0100 |
| commit | b365304d32db443194b7eaadda63c784814f53f1 (patch) | |
| tree | 95c09bc42f35a5d49af5aeb16a281105e674a824 /pretyping/evardefine.ml | |
| parent | b113f9e1ca88514cd9d94dfe90669a27689b7434 (diff) | |
Evarconv API using EConstr.
Diffstat (limited to 'pretyping/evardefine.ml')
| -rw-r--r-- | pretyping/evardefine.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/evardefine.ml b/pretyping/evardefine.ml index 8026ff3e4..f372dbf06 100644 --- a/pretyping/evardefine.ml +++ b/pretyping/evardefine.ml @@ -160,7 +160,7 @@ let define_evar_as_lambda env evd (evk,args) = evd, mkLambda (na, dom, evbody) let rec evar_absorb_arguments env evd (evk,args as ev) = function - | [] -> evd, (evk, Array.map EConstr.Unsafe.to_constr args) + | [] -> evd,ev | a::l -> let open EConstr in (* TODO: optimize and avoid introducing intermediate evars *) |