From 531590c223af42c07a93142ab0cea470a98964e6 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr>
Date: Thu, 24 Nov 2016 17:15:15 +0100
Subject: Removing compatibility layers in Retyping

---
 proofs/refine.ml | 1 -
 1 file changed, 1 deletion(-)

(limited to 'proofs/refine.ml')

diff --git a/proofs/refine.ml b/proofs/refine.ml
index 32064aff5..c36bb143e 100644
--- a/proofs/refine.ml
+++ b/proofs/refine.ml
@@ -135,7 +135,6 @@ let refine ?(unsafe = true) f =
 
 let with_type env evd c t =
   let my_type = Retyping.get_type_of env evd c in
-  let my_type = EConstr.of_constr my_type in
   let j = Environ.make_judge c my_type in
   let (evd,j') =
     Coercion.inh_conv_coerce_to true (Loc.ghost) env evd j t
-- 
cgit v1.2.3