1.1 --- a/src/HOL/Set.thy	Wed Oct 21 16:41:22 2009 +1100
     1.2 +++ b/src/HOL/Set.thy	Wed Oct 21 08:16:25 2009 +0200
     1.3 @@ -303,7 +303,7 @@
     1.4        fun check (Const ("Ex", _) $ Abs (_, _, P), n) = check (P, n + 1)
     1.5          | check (Const ("op &", _) $ (Const ("op =", _) $ Bound m $ e) $ P, n) =
     1.6              n > 0 andalso m = n andalso not (loose_bvar1 (P, n)) andalso
     1.7 -            ((0 upto (n - 1)) subset add_loose_bnos (e, 0, []))
     1.8 +            subset (op =) (0 upto (n - 1), add_loose_bnos (e, 0, []))
     1.9          | check _ = false
    1.10  
    1.11          fun tr' (_ $ abs) =