diff -r 281ce101cda6 -r bfab5aded21d thys/Exercises.thy --- a/thys/Exercises.thy Thu Dec 07 12:45:22 2017 +0000 +++ b/thys/Exercises.thy Fri Jan 12 02:33:35 2018 +0000 @@ -75,6 +75,10 @@ (\ zeroable r1 \ infinitestrings r2) \ (\ zeroable r2 \ infinitestrings r1)" | "infinitestrings (STAR r) = (\ atmostempty r)" + + + + lemma Star_atmostempty: assumes "A \ {[]}" shows "A\ \ {[]}"