# HG changeset patch
# User Adam Chlipala <adamc@hcoop.net>
# Date 1227801970 18000
# Node ID aceb2d982f8f9bddf24da9649b914ac6dfc67d66
# Parent  11fc77fb825756739f06318e7b380386a5a6866e
Catch another unneeded lift in ElabEnv.pushCRel

diff -r 11fc77fb8257 -r aceb2d982f8f src/elab_env.sml
--- a/src/elab_env.sml	Thu Nov 27 10:57:56 2008 -0500
+++ b/src/elab_env.sml	Thu Nov 27 11:06:10 2008 -0500
@@ -281,7 +281,7 @@
                           (#classes env),
 
          renameE = SM.map (fn Rel' (n, c) => Rel' (n, lift c)
-                            | Named' (n, c) => Named' (n, lift c)) (#renameE env),
+                            | Named' (n, c) => Named' (n, c)) (#renameE env),
          relE = map (fn (x, c) => (x, lift c)) (#relE env),
          namedE = #namedE env,