doc-src/TutorialI/Misc/arith1.thy

use RecdefPackage.tcs_of;

(*<*)
theory arith1 = Main:;
(*>*)
lemma "\<lbrakk> \<not> m < n; m < n+1 \<rbrakk> \<Longrightarrow> m = n";
(**)(*<*)
by(auto);
end
(*>*)