Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
proper naming of fib equations;
authorwenzelm
Sat, 01 Apr 2000 20:22:46 +0200
changeset 8658 3cf533397c5a
parent 8657 b9475dad85ed
child 8659 5fdbe2dd54f9
proper naming of fib equations;
src/HOL/ex/Fib.ML file | annotate | diff | comparison | revisions
src/HOL/ex/Fib.thy file | annotate | diff | comparison | revisions 
--- 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*)
--- 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
isabelle