src/HOL/Fun.thy
changeset 32740 9dd0a2f83429
parent 32554 4ccd84fb19d3
child 32961 61431a41ddd5
     1.1 --- a/src/HOL/Fun.thy	Tue Sep 29 14:59:24 2009 +0200
     1.2 +++ b/src/HOL/Fun.thy	Tue Sep 29 16:24:36 2009 +0200
     1.3 @@ -589,7 +589,7 @@
     1.4  attach (test) {*
     1.5  fun gen_fun_type aF aT bG bT i =
     1.6    let
     1.7 -    val tab = ref [];
     1.8 +    val tab = Unsynchronized.ref [];
     1.9      fun mk_upd (x, (_, y)) t = Const ("Fun.fun_upd",
    1.10        (aT --> bT) --> aT --> bT --> aT --> bT) $ t $ aF x $ y ()
    1.11    in