--- a/src/HOL/Tools/induct_method.ML Tue Mar 14 11:33:14 2000 +0100
+++ b/src/HOL/Tools/induct_method.ML Tue Mar 14 11:33:30 2000 +0100
@@ -185,7 +185,7 @@
cases - classical case split
cases t - datatype exhaustion
<x:A> cases ... - set elimination
- ... cases ... r - explicit rule
+ ... cases ... R - explicit rule
*)
local
@@ -248,7 +248,7 @@
induct - mathematical induction
induct x - datatype induction
<x:A> induct ... - set induction
- ... induct ... r - explicit rule
+ ... induct ... R - explicit rule
*)
local