doc-src/TutorialI/Misc/arith3.thy

added theory While;

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