diff options
| author | Pierre-Marie Pédrot | 2016-11-19 02:45:54 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2017-02-14 17:28:59 +0100 |
| commit | 34e86e839be251717db96f1f5969d7724ab43097 (patch) | |
| tree | b62c2f97c7277250796b7f9b3783b95590ea98ab /engine/termops.ml | |
| parent | 7b43de20a4acd7c9da290f038d9a16fe67eccd59 (diff) | |
Hints API using EConstr.
Diffstat (limited to 'engine/termops.ml')
| -rw-r--r-- | engine/termops.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/engine/termops.ml b/engine/termops.ml index ef7cdc38b5..7c89f190f2 100644 --- a/engine/termops.ml +++ b/engine/termops.ml @@ -263,9 +263,10 @@ let rec drop_extra_implicit_args sigma c = match EConstr.kind sigma c with (* Removed trailing extra implicit arguments, what improves compatibility for constants with recently added maximal implicit arguments *) | App (f,args) when EConstr.isEvar sigma (Array.last args) -> + let open EConstr in drop_extra_implicit_args sigma - (EConstr.mkApp (f,fst (Array.chop (Array.length args - 1) args))) - | _ -> EConstr.Unsafe.to_constr c + (mkApp (f,fst (Array.chop (Array.length args - 1) args))) + | _ -> c (* Get the last arg of an application *) let last_arg sigma c = match EConstr.kind sigma c with |