diff -r e861aff29655 -r 9b9f2117561f PrioGDef.thy --- a/PrioGDef.thy Tue May 06 14:36:40 2014 +0100 +++ b/PrioGDef.thy Thu May 15 16:02:44 2014 +0100 @@ -190,8 +190,9 @@ @{text "th"}'s {\em current precedence} equals its original precedence, i.e. @{text "preced th s"}. *} + definition cpreced :: "(cs \ thread list) \ state \ thread \ precedence" - where "cpreced wq s = (\ th. Max ((\ th. preced th s) ` ({th} \ dependants wq th)))" + where "cpreced wq s = (\th. Max ((\th'. preced th' s) ` ({th} \ dependants wq th)))" (*<*) lemma