From 1b3efc6dc25be1bfde5fb7d2d39cc5c35e44a4d8 Mon Sep 17 00:00:00 2001
From: msozeau
Date: Wed, 14 Mar 2012 09:52:25 +0000
Subject: Second step of integration of Program: - Remove useless
 functorization of Pretyping - Move Program coercion/cases code inside
 pretyping/, enabled according to a flag.

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

(limited to 'plugins/firstorder')

diff --git a/plugins/firstorder/instances.ml b/plugins/firstorder/instances.ml
index 8d4b0eee1c..a955891f83 100644
--- a/plugins/firstorder/instances.ml
+++ b/plugins/firstorder/instances.ml
@@ -130,7 +130,7 @@ let mk_open_instance id gl m t=
 	      GLambda(loc,name,k,GHole (dummy_loc,Evd.BinderType name),t1)
 	| _-> anomaly "can't happen" in
   let ntt=try
-    Pretyping.Default.understand evmap env (raux m rawt)
+    Pretyping.understand evmap env (raux m rawt)
   with _ ->
     error "Untypable instance, maybe higher-order non-prenex quantification" in
     decompose_lam_n_assum m ntt
-- 
cgit v1.2.3