# HG changeset patch
# User wenzelm
# Date 936471573 -7200
# Node ID 71e5d8671e7b22d42920f4a43ac0a71adc66109c
# Parent  7df66ce6508a52fc923101285435f744210c086a
handle Bind!!

diff -r 7df66ce6508a -r 71e5d8671e7b src/Pure/drule.ML
--- a/src/Pure/drule.ML	Sat Sep 04 20:57:32 1999 +0200
+++ b/src/Pure/drule.ML	Sat Sep 04 20:59:33 1999 +0200
@@ -521,7 +521,7 @@
                    def
     in  equal_elim def' th
     end
-    handle THM _ => err th | bind => err th
+    handle THM _ => err th | Bind => err th
 in
 val flexpair_intr = flexpair_inst (symmetric ProtoPure.flexpair_def)
 and flexpair_elim = flexpair_inst ProtoPure.flexpair_def