diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-11-12 01:28:45 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-02-14 17:28:47 +0100 |
| commit | 45562afa065aadc207dca4e904e309d835cb66ef (patch) | |
| tree | 2d7420427a49f17c2fb0d66ec8f38fe1df63abdb /engine | |
| parent | 0489e8b56d7e10f7111c0171960e25d32201b963 (diff) | |
Tacticals API using EConstr.
Diffstat (limited to 'engine')
| -rw-r--r-- | engine/termops.ml | 2 | ||||
| -rw-r--r-- | engine/termops.mli | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/engine/termops.ml b/engine/termops.ml index 83f07d2c6..5581b1656 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 *) diff --git a/engine/termops.mli b/engine/termops.mli index 27b3ea53c..02e8dfeae 100644 --- a/engine/termops.mli +++ b/engine/termops.mli @@ -201,7 +201,7 @@ val nb_prod : Evd.evar_map -> EConstr.t -> int val nb_prod_modulo_zeta : Evd.evar_map -> EConstr.t -> int (** Get the last arg of a constr intended to be an application *) -val last_arg : Evd.evar_map -> EConstr.t -> constr +val last_arg : Evd.evar_map -> EConstr.t -> EConstr.constr (** Force the decomposition of a term as an applicative one *) val decompose_app_vect : Evd.evar_map -> EConstr.t -> constr * constr array |