src/Pure/Proof/reconstruct.ML
changeset 32089 568a23753e3a
parent 32032 a6a6e8031c14
child 32145 220c9e439d39
--- a/src/Pure/Proof/reconstruct.ML	Mon Jul 20 20:03:19 2009 +0200
+++ b/src/Pure/Proof/reconstruct.ML	Mon Jul 20 21:20:09 2009 +0200
@@ -255,7 +255,7 @@
       let
         fun search env [] = error ("Unsolvable constraints:\n" ^
               Pretty.string_of (Pretty.chunks (map (fn (_, p, _) =>
-                Display.pretty_flexpair (Syntax.pp_global thy) (pairself
+                Display_Goal.pretty_flexpair (Syntax.pp_global thy) (pairself
                   (Envir.norm_term bigenv) p)) cs)))
           | search env ((u, p as (t1, t2), vs)::ps) =
               if u then