# HG changeset patch
# User nipkow
# Date 1538286398 -7200
# Node ID c7c38c901267c022b93cdb50235a593d24beeaf0
# Parent  6f8ae6ddc26b01e147c57567f068e137b07a2e58
avoid confusing precedences

diff -r 6f8ae6ddc26b -r c7c38c901267 src/HOL/List.thy
--- a/src/HOL/List.thy	Sat Sep 29 23:23:43 2018 +0200
+++ b/src/HOL/List.thy	Sun Sep 30 07:46:38 2018 +0200
@@ -130,7 +130,7 @@
   "_lupdbind":: "['a, 'a] => lupdbind"    ("(2_ :=/ _)")
   "" :: "lupdbind => lupdbinds"    ("_")
   "_lupdbinds" :: "[lupdbind, lupdbinds] => lupdbinds"    ("_,/ _")
-  "_LUpdate" :: "['a, lupdbinds] => 'a"    ("_/[(_)]" [900,0] 900)
+  "_LUpdate" :: "['a, lupdbinds] => 'a"    ("_/[(_)]" [1000,0] 900)
 
 translations
   "_LUpdate xs (_lupdbinds b bs)" == "_LUpdate (_LUpdate xs b) bs"