From ea188f154f86960008df67fa0266a3aa648ff1e7 Mon Sep 17 00:00:00 2001
From: pboutill
Date: Thu, 20 May 2010 12:57:40 +0000
Subject: Fix bug 2307

Evars of source "ImpossibleCase" that remain undefined at the end of
case analysis are now defined to ID (forall A : Type, A -> A).

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

(limited to 'interp')

diff --git a/interp/coqlib.ml b/interp/coqlib.ml
index 6cfe1421f7..8a4bc63650 100644
--- a/interp/coqlib.ml
+++ b/interp/coqlib.ml
@@ -135,7 +135,7 @@ let make_con dir id = Libnames.encode_con dir id
 let id = make_con datatypes_module (id_of_string "id")
 let type_of_id = make_con datatypes_module (id_of_string "ID")
 
-let _ = Cases.set_impossible_default_clause (mkConst id,mkConst type_of_id)
+let _ = Termops.set_impossible_default_clause (mkConst id,mkConst type_of_id)
 
 (** Natural numbers *)
 let nat_kn = make_kn datatypes_module (id_of_string "nat")
-- 
cgit v1.2.3