From d4a2d6a80b57485467d6141f1140c2aee577495f Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 26 May 2011 10:54:02 +0000
Subject: Fixing discriminate for identity.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14157 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 0f3d1bab2a..204b2b226f 100644
--- a/interp/coqlib.ml
+++ b/interp/coqlib.ml
@@ -287,7 +287,7 @@ let build_coq_sumbool () = Lazy.force coq_sumbool
 
 (* Equality on Type as a Type *)
 let coq_identity_eq = lazy_init_constant ["Datatypes"] "identity"
-let coq_identity_refl = lazy_init_constant ["Datatypes"] "refl_identity"
+let coq_identity_refl = lazy_init_constant ["Datatypes"] "identity_refl"
 let coq_identity_ind = lazy_init_constant ["Datatypes"] "identity_ind"
 let coq_identity_congr = lazy_init_constant ["Logic_Type"] "identity_congr"
 let coq_identity_sym = lazy_init_constant ["Logic_Type"] "identity_sym"
-- 
cgit v1.2.3