From 2d707f4445c0cc86d8f8c30bdbe9eecf956997f9 Mon Sep 17 00:00:00 2001
From: barras
Date: Wed, 15 Sep 2004 16:50:56 +0000
Subject: hiding the meta_map in evar_defs

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6109 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 contrib/first-order/instances.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'contrib/first-order')

diff --git a/contrib/first-order/instances.ml b/contrib/first-order/instances.ml
index e4b0c944bc..a2b834ffbe 100644
--- a/contrib/first-order/instances.ml
+++ b/contrib/first-order/instances.ml
@@ -127,7 +127,7 @@ let mk_open_instance id gl m t=
       match t with
 	  RLambda(loc,name,_,t0)->
 	    let t1=raux (n-1) t0 in
-	      RLambda(loc,name,RHole (dummy_loc,BinderType name),t1)
+	      RLambda(loc,name,RHole (dummy_loc,Evd.BinderType name),t1)
 	| _-> anomaly "can't happen" in
   let ntt=Pretyping.understand evmap env (raux m rawt) in
     Sign.decompose_lam_n_assum m ntt
-- 
cgit v1.2.3