diff -r 437bd400d808 -r f9f3006a5579 src/HOL/NanoJava/Example.thy --- a/src/HOL/NanoJava/Example.thy Tue Aug 09 23:29:54 2016 +0200 +++ b/src/HOL/NanoJava/Example.thy Wed Aug 10 09:33:54 2016 +0200 @@ -184,7 +184,7 @@ apply rule apply (rule hoare_ehoare.Asm) (* 20 *) apply (rule_tac a = "((case n of 0 \ 0 | Suc m \ m),m+1)" in UN_I, rule+) -apply (clarsimp split add: nat.split_asm dest!: Nat_atleast_mono) +apply (clarsimp split: nat.split_asm dest!: Nat_atleast_mono) apply rule apply (rule hoare_ehoare.Call) (* 21 *) apply (rule hoare_ehoare.LAcc)