1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/doc-isac/chuber/Functions.thy	Tue Sep 17 09:50:52 2013 +0200
     1.3 @@ -0,0 +1,27 @@
     1.4 +theory Functions imports Main begin
     1.5 +
     1.6 +fun fib :: "nat \<Rightarrow> nat"
     1.7 +where
     1.8 +"fib 0 = 1"
     1.9 +| "fib (Suc 0) = 1"
    1.10 +| "fib (Suc (Suc n)) = fib n + fib (Suc n)"
    1.11 +
    1.12 +thm fib.simps
    1.13 +
    1.14 +(*"fib (Suc (Suc n))"*)
    1.15 +
    1.16 +lemma "fib 0 = 1"
    1.17 +by simp
    1.18 +lemma "fib (Suc 0) = 1"
    1.19 +by simp
    1.20 +lemma "fib (Suc (Suc (Suc 0))) = (Suc (Suc (Suc 0)))"
    1.21 +by simp
    1.22 +
    1.23 +(*fun sep :: "’a \<Rightarrow> ’a list \<Rightarrow> ’a list"
    1.24 +where
    1.25 +"sep a (x#y#xs) = x # a # sep a (y # xs)"
    1.26 +| "sep a xs
    1.27 += xs"*)
    1.28 +
    1.29 +
    1.30 +end