doc-src/TutorialI/Misc/arith2.thy

renamed "rulify" to "rulified";
renamed "less_induct" to "nat_less_induct";

(*<*)
theory arith2 = Main:;
(*>*)
lemma "min i (max j (k*k)) = max (min (k*k) i) (min i (j::nat))";
by(arith);
(**)(*<*)
end
(*>*)