doc-src/Exercises/2000/a1/generated/Arithmetic.tex
author mehta
Tue, 06 Apr 2004 15:39:10 +0200
changeset 14522 f6488b5e937f
parent 13841 ed4e97874454
permissions -rw-r--r--
*** empty log message ***
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
13841
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
     1
%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
     2
\begin{isabellebody}%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
     3
\def\isabellecontext{Arithmetic}%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
     4
\isamarkupfalse%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
     5
%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
     6
\isamarkupsubsection{Arithmetic%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
     7
}
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
     8
\isamarkuptrue%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
     9
%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    10
\isamarkupsubsubsection{Power%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    11
}
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    12
\isamarkuptrue%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    13
%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    14
\begin{isamarkuptext}%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    15
Define a primitive recursive function $pow~x~n$ that
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    16
computes $x^n$ on natural numbers.%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    17
\end{isamarkuptext}%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    18
\isamarkuptrue%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    19
\isacommand{consts}\isanewline
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    20
\ \ pow\ {\isacharcolon}{\isacharcolon}\ {\isachardoublequote}nat\ {\isacharequal}{\isachargreater}\ nat\ {\isacharequal}{\isachargreater}\ nat{\isachardoublequote}\isamarkupfalse%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    21
%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    22
\begin{isamarkuptext}%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    23
Prove the well known equation $x^{m \cdot n} = (x^m)^n$:%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    24
\end{isamarkuptext}%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    25
\isamarkuptrue%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    26
\isacommand{theorem}\ pow{\isacharunderscore}mult{\isacharcolon}\ {\isachardoublequote}pow\ x\ {\isacharparenleft}m\ {\isacharasterisk}\ n{\isacharparenright}\ {\isacharequal}\ pow\ {\isacharparenleft}pow\ x\ m{\isacharparenright}\ n{\isachardoublequote}\isamarkupfalse%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    27
\isamarkupfalse%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    28
%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    29
\begin{isamarkuptext}%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    30
Hint: prove a suitable lemma first.  If you need to appeal to
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    31
associativity and commutativity of multiplication: the corresponding
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    32
simplification rules are named \isa{mult{\isacharunderscore}ac}.%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    33
\end{isamarkuptext}%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    34
\isamarkuptrue%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    35
%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    36
\isamarkupsubsubsection{Summation%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    37
}
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    38
\isamarkuptrue%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    39
%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    40
\begin{isamarkuptext}%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    41
Define a (primitive recursive) function $sum~ns$ that sums a list
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    42
of natural numbers: $sum [n_1, \dots, n_k] = n_1 + \cdots + n_k$.%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    43
\end{isamarkuptext}%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    44
\isamarkuptrue%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    45
\isacommand{consts}\isanewline
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    46
\ \ sum\ {\isacharcolon}{\isacharcolon}\ {\isachardoublequote}nat\ list\ {\isacharequal}{\isachargreater}\ nat{\isachardoublequote}\isamarkupfalse%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    47
%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    48
\begin{isamarkuptext}%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    49
Show that $sum$ is compatible with $rev$. You may need a lemma.%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    50
\end{isamarkuptext}%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    51
\isamarkuptrue%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    52
\isacommand{theorem}\ sum{\isacharunderscore}rev{\isacharcolon}\ {\isachardoublequote}sum\ {\isacharparenleft}rev\ ns{\isacharparenright}\ {\isacharequal}\ sum\ ns{\isachardoublequote}\isamarkupfalse%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    53
\isamarkupfalse%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    54
%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    55
\begin{isamarkuptext}%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    56
Define a function $Sum~f~k$ that sums $f$ from $0$
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    57
up to $k-1$: $Sum~f~k = f~0 + \cdots + f(k - 1)$.%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    58
\end{isamarkuptext}%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    59
\isamarkuptrue%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    60
\isacommand{consts}\isanewline
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    61
\ \ Sum\ {\isacharcolon}{\isacharcolon}\ {\isachardoublequote}{\isacharparenleft}nat\ {\isacharequal}{\isachargreater}\ nat{\isacharparenright}\ {\isacharequal}{\isachargreater}\ nat\ {\isacharequal}{\isachargreater}\ nat{\isachardoublequote}\isamarkupfalse%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    62
%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    63
\begin{isamarkuptext}%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    64
Show the following equations for the pointwise summation of functions.
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    65
Determine first what the expression \isa{whatever} should be.%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    66
\end{isamarkuptext}%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    67
\isamarkuptrue%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    68
\isacommand{theorem}\ {\isachardoublequote}Sum\ {\isacharparenleft}{\isacharpercent}i{\isachardot}\ f\ i\ {\isacharplus}\ g\ i{\isacharparenright}\ k\ {\isacharequal}\ Sum\ f\ k\ {\isacharplus}\ Sum\ g\ k{\isachardoublequote}\isamarkupfalse%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    69
\isanewline
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    70
\isamarkupfalse%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    71
\isacommand{theorem}\ {\isachardoublequote}Sum\ f\ {\isacharparenleft}k\ {\isacharplus}\ l{\isacharparenright}\ {\isacharequal}\ Sum\ f\ k\ {\isacharplus}\ Sum\ whatever\ l{\isachardoublequote}\isamarkupfalse%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    72
\isamarkupfalse%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    73
%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    74
\begin{isamarkuptext}%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    75
What is the relationship between \isa{sum} and \isa{Sum}?
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    76
Prove the following equation, suitably instantiated.%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    77
\end{isamarkuptext}%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    78
\isamarkuptrue%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    79
\isacommand{theorem}\ {\isachardoublequote}Sum\ f\ k\ {\isacharequal}\ sum\ whatever{\isachardoublequote}\isamarkupfalse%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    80
\isamarkupfalse%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    81
%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    82
\begin{isamarkuptext}%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    83
Hint: familiarize yourself with the predefined functions \isa{map} and
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    84
\isa{{\isacharbrackleft}i{\isachardot}{\isachardot}j{\isacharparenleft}{\isacharbrackright}} on lists in theory List.%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    85
\end{isamarkuptext}%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    86
\isamarkuptrue%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    87
\isamarkupfalse%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    88
\end{isabellebody}%
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    89
%%% Local Variables:
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    90
%%% mode: latex
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    91
%%% TeX-master: "root"
ed4e97874454 keep a copy of generated files in repository
kleing
parents:
diff changeset
    92
%%% End: