doc-src/TutorialI/Misc/arith3.thy

added state: 'a * 'b -> 'a * ('a * 'b);

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