doc-src/TutorialI/Misc/arith3.thy

begin_theory: store *copy* of initial theory;

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