From 45562afa065aadc207dca4e904e309d835cb66ef Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Sat, 12 Nov 2016 01:28:45 +0100
Subject: Tacticals API using EConstr.

---
 engine/termops.ml  | 2 +-
 engine/termops.mli | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'engine')

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 *)
diff --git a/engine/termops.mli b/engine/termops.mli
index 27b3ea53ca..02e8dfeaea 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
-- 
cgit v1.2.3