doc-src/TutorialI/Misc/document/natsum.tex
author nipkow
Wed, 19 Apr 2000 12:59:38 +0200
changeset 8749 2665170f104a
child 9145 9f7b8de5bfaf
permissions -rw-r--r--
Adding generated files
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
     1
\begin{isabelle}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
     2
%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
     3
\begin{isamarkuptext}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
     4
\noindent
2665170f104a Adding generated files
nipkow
parents:
diff changeset
     5
In particular, there are \isa{case}-expressions, for example%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
     6
\end{isamarkuptext}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
     7
~{"}case~n~of~0~{\isasymRightarrow}~0~|~Suc~m~{\isasymRightarrow}~m{"}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
     8
\begin{isamarkuptext}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
     9
\noindent
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    10
primitive recursion, for example%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    11
\end{isamarkuptext}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    12
\isacommand{consts}~sum~::~{"}nat~{\isasymRightarrow}~nat{"}\isanewline
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    13
\isacommand{primrec}~{"}sum~0~=~0{"}\isanewline
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    14
~~~~~~~~{"}sum~(Suc~n)~=~Suc~n~+~sum~n{"}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    15
\begin{isamarkuptext}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    16
\noindent
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    17
and induction, for example%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    18
\end{isamarkuptext}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    19
\isacommand{lemma}~{"}sum~n~+~sum~n~=~n*(Suc~n){"}\isanewline
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    20
\isacommand{apply}(induct\_tac~n)\isanewline
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    21
\isacommand{apply}(auto)\isacommand{.}\isanewline
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    22
\end{isabelle}%