(*<*) theory arith3 = Main:; (*>*) lemma "n*n = n \\<Longrightarrow> n=0 \\<or> n=1"; (**)(*<*) oops; end (*>*)