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 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'engine/termops.ml')

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 *)
-- 
cgit v1.2.3