From c13476e65f9aa909d7fe8f0504ddc5f68e49b1f0 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Thu, 12 Feb 2015 15:25:34 +0100
Subject: Tentative fix for bug #4027.

---
 tactics/taccoerce.ml | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/tactics/taccoerce.ml b/tactics/taccoerce.ml
index 215713d981..74e2341bd9 100644
--- a/tactics/taccoerce.ml
+++ b/tactics/taccoerce.ml
@@ -176,6 +176,12 @@ let coerce_to_evaluable_ref env v =
     let id = out_gen (topwit wit_var) v in
     if Id.List.mem id (Termops.ids_of_context env) then EvalVarRef id
     else fail ()
+  else if has_type v (topwit wit_ref) then
+    let r = out_gen (topwit wit_ref) v in
+    match r with
+    | VarRef var -> EvalVarRef var
+    | ConstRef c -> EvalConstRef c
+    | IndRef _ | ConstructRef _ -> fail ()
   else
     let ev = match Value.to_constr v with
     | Some c when isConst c -> EvalConstRef (Univ.out_punivs (destConst c))
-- 
cgit v1.2.3