1.1 --- a/src/Doc/isac/chuber/Functions.thy	Mon Sep 16 12:27:20 2013 +0200
     1.2 +++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.3 @@ -1,27 +0,0 @@
     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