diff options
| author | Pierre-Marie Pédrot | 2016-11-12 01:28:45 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2017-02-14 17:28:47 +0100 |
| commit | 45562afa065aadc207dca4e904e309d835cb66ef (patch) | |
| tree | 2d7420427a49f17c2fb0d66ec8f38fe1df63abdb /engine/termops.ml | |
| parent | 0489e8b56d7e10f7111c0171960e25d32201b963 (diff) | |
Tacticals API using EConstr.
Diffstat (limited to 'engine/termops.ml')
| -rw-r--r-- | engine/termops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/engine/termops.ml b/engine/termops.ml index 83f07d2c62..5581b16562 100644 --- a/engine/termops.ml +++ b/engine/termops.ml @@ -268,7 +268,7 @@ let rec drop_extra_implicit_args sigma c = match EConstr.kind sigma c with (* Get the last arg of an application *) let last_arg sigma c = match EConstr.kind sigma c with - | App (f,cl) -> EConstr.Unsafe.to_constr (Array.last cl) + | App (f,cl) -> Array.last cl | _ -> anomaly (Pp.str "last_arg") (* Get the last arg of an application *) |