diff -r 46f59511b7bb -r d97fdabd9e2b src/HOL/IMP/Sem_Equiv.thy --- a/src/HOL/IMP/Sem_Equiv.thy Fri Sep 20 19:07:10 2024 +0200 +++ b/src/HOL/IMP/Sem_Equiv.thy Fri Sep 20 19:51:08 2024 +0200 @@ -9,12 +9,12 @@ type_synonym assn = "state \ bool" definition - equiv_up_to :: "assn \ com \ com \ bool" ("_ \ _ \ _" [50,0,10] 50) + equiv_up_to :: "assn \ com \ com \ bool" (\_ \ _ \ _\ [50,0,10] 50) where "(P \ c \ c') = (\s s'. P s \ (c,s) \ s' \ (c',s) \ s')" definition - bequiv_up_to :: "assn \ bexp \ bexp \ bool" ("_ \ _ <\> _" [50,0,10] 50) + bequiv_up_to :: "assn \ bexp \ bexp \ bool" (\_ \ _ <\> _\ [50,0,10] 50) where "(P \ b <\> b') = (\s. P s \ bval b s = bval b' s)"