doc-src/TutorialI/Misc/arith4.thy

apply. -> by

(*<*)
theory arith4 = Main:;
(*>*)
lemma "\\<not> m < n \\<and> m < n+1 \\<Longrightarrow> m = n";
(**)(*<*)
by(arith);
end
(*>*)