# HG changeset patch
# User wenzelm
# Date 954613366 -7200
# Node ID 3cf533397c5a61eb57ef0fad85ca4882635f8e2a
# Parent  b9475dad85ed5ebd09b2fdd59a70a9d3f542a5bb
proper naming of fib equations;

diff -r b9475dad85ed -r 3cf533397c5a src/HOL/ex/Fib.ML
--- a/src/HOL/ex/Fib.ML	Sat Apr 01 20:21:39 2000 +0200
+++ b/src/HOL/ex/Fib.ML	Sat Apr 01 20:22:46 2000 +0200
@@ -17,9 +17,9 @@
     selectively at first.
 **)
 
-val [fib_Suc_Suc] = thms"fib.2";
-Delsimps [fib_Suc_Suc];
+Delsimps fib.Suc_Suc;
 
+val [fib_Suc_Suc] = fib.Suc_Suc;
 val fib_Suc3 = read_instantiate [("x", "(Suc ?n)")] fib_Suc_Suc;
 
 (*Concrete Mathematics, page 280*)
diff -r b9475dad85ed -r 3cf533397c5a src/HOL/ex/Fib.thy
--- a/src/HOL/ex/Fib.thy	Sat Apr 01 20:21:39 2000 +0200
+++ b/src/HOL/ex/Fib.thy	Sat Apr 01 20:22:46 2000 +0200
@@ -10,8 +10,8 @@
 
 consts fib  :: "nat => nat"
 recdef fib "less_than"
-    "fib 0 = 0"
-    "fib 1 = 1"
-    "fib (Suc(Suc x)) = (fib x + fib (Suc x))"
+  zero    "fib 0 = 0"
+  one     "fib 1 = 1"
+  Suc_Suc "fib (Suc (Suc x)) = fib x + fib (Suc x)"
 
 end