src/HOL/Bali/WellType.thy
changeset 36367 49c7dee21a7f
parent 35431 8758fe1fc9f8
child 37406 982f3e02f3c4
     1.1 --- a/src/HOL/Bali/WellType.thy	Mon Apr 26 10:57:04 2010 -0700
     1.2 +++ b/src/HOL/Bali/WellType.thy	Mon Apr 26 11:08:49 2010 -0700
     1.3 @@ -94,7 +94,7 @@
     1.4  "accObjectmheads G S T
     1.5     \<equiv> if G\<turnstile>RefT T accessible_in (pid S)
     1.6          then Objectmheads G S
     1.7 -        else \<lambda>sig. {}"
     1.8 +        else (\<lambda>sig. {})"
     1.9  primrec
    1.10  "mheads G S  NullT     = (\<lambda>sig. {})"
    1.11  "mheads G S (IfaceT I) = (\<lambda>sig. (\<lambda>(I,h).(IfaceT I,h))