--- a/src/HOL/Tools/Quotient/quotient_tacs.ML Sun Mar 14 14:31:24 2010 +0100
+++ b/src/HOL/Tools/Quotient/quotient_tacs.ML Sun Mar 14 14:36:56 2010 +0100
@@ -89,7 +89,7 @@
fun get_match_inst thy pat trm =
let
val univ = Unify.matchers thy [(pat, trm)]
- val SOME (env, _) = Seq.pull univ (* raises BIND, if no unifier *)
+ val SOME (env, _) = Seq.pull univ (* raises Bind, if no unifier *) (* FIXME fragile *)
val tenv = Vartab.dest (Envir.term_env env)
val tyenv = Vartab.dest (Envir.type_env env)
in