doc-src/Exercises/0304/a4/generated/a4.tex
author wenzelm
Wed, 09 Jun 2004 18:52:42 +0200
changeset 14898 a25550451b51
parent 14500 2015348ceecb
permissions -rw-r--r--
Url.File;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
14500
streckem
parents:
diff changeset
     1
%
streckem
parents:
diff changeset
     2
\begin{isabellebody}%
streckem
parents:
diff changeset
     3
\def\isabellecontext{a{\isadigit{4}}}%
streckem
parents:
diff changeset
     4
\isamarkupfalse%
streckem
parents:
diff changeset
     5
%
streckem
parents:
diff changeset
     6
\isamarkupsubsection{Natural Deduction -- Predicate Logic; Sets as Lists%
streckem
parents:
diff changeset
     7
}
streckem
parents:
diff changeset
     8
\isamarkuptrue%
streckem
parents:
diff changeset
     9
%
streckem
parents:
diff changeset
    10
\isamarkupsubsubsection{Predicate Logic Formulae%
streckem
parents:
diff changeset
    11
}
streckem
parents:
diff changeset
    12
\isamarkuptrue%
streckem
parents:
diff changeset
    13
%
streckem
parents:
diff changeset
    14
\begin{isamarkuptext}%
streckem
parents:
diff changeset
    15
We are again talking about proofs in the calculus of Natural
streckem
parents:
diff changeset
    16
Deduction. In addition to the rules of section~\ref{psv0304a3}, you may now also use
streckem
parents:
diff changeset
    17
streckem
parents:
diff changeset
    18
streckem
parents:
diff changeset
    19
  \isa{exI{\isacharcolon}}~\isa{P\ x\ {\isasymLongrightarrow}\ {\isasymexists}x{\isachardot}\ P\ x}\\
streckem
parents:
diff changeset
    20
  \isa{exE{\isacharcolon}}~\isa{{\isasymlbrakk}{\isasymexists}x{\isachardot}\ P\ x{\isacharsemicolon}\ {\isasymAnd}x{\isachardot}\ P\ x\ {\isasymLongrightarrow}\ Q{\isasymrbrakk}\ {\isasymLongrightarrow}\ Q}\\
streckem
parents:
diff changeset
    21
  \isa{allI{\isacharcolon}}~\isa{{\isacharparenleft}{\isasymAnd}x{\isachardot}\ P\ x{\isacharparenright}\ {\isasymLongrightarrow}\ {\isasymforall}x{\isachardot}\ P\ x}\\
streckem
parents:
diff changeset
    22
  \isa{allE{\isacharcolon}}~\isa{{\isasymlbrakk}{\isasymforall}x{\isachardot}\ P\ x{\isacharsemicolon}\ P\ x\ {\isasymLongrightarrow}\ R{\isasymrbrakk}\ {\isasymLongrightarrow}\ R}\\
streckem
parents:
diff changeset
    23
streckem
parents:
diff changeset
    24
Give a proof of the following propositions or an argument why the formula is not valid:%
streckem
parents:
diff changeset
    25
\end{isamarkuptext}%
streckem
parents:
diff changeset
    26
\isamarkuptrue%
streckem
parents:
diff changeset
    27
\isacommand{lemma}\ {\isachardoublequote}{\isacharparenleft}{\isasymexists}x{\isachardot}\ {\isasymforall}y{\isachardot}\ P\ x\ y{\isacharparenright}\ {\isasymlongrightarrow}\ {\isacharparenleft}{\isasymforall}y{\isachardot}\ {\isasymexists}x{\isachardot}\ P\ x\ y{\isacharparenright}{\isachardoublequote}\isamarkupfalse%
streckem
parents:
diff changeset
    28
\isanewline
streckem
parents:
diff changeset
    29
\isamarkupfalse%
streckem
parents:
diff changeset
    30
\isacommand{lemma}\ {\isachardoublequote}{\isacharparenleft}{\isasymforall}x{\isachardot}\ P\ x\ {\isasymlongrightarrow}\ Q{\isacharparenright}\ {\isacharequal}\ {\isacharparenleft}{\isacharparenleft}{\isasymexists}x{\isachardot}\ P\ x{\isacharparenright}\ {\isasymlongrightarrow}\ Q{\isacharparenright}{\isachardoublequote}\isamarkupfalse%
streckem
parents:
diff changeset
    31
\isanewline
streckem
parents:
diff changeset
    32
\isamarkupfalse%
streckem
parents:
diff changeset
    33
\isacommand{lemma}\ {\isachardoublequote}{\isacharparenleft}{\isacharparenleft}{\isasymforall}\ x{\isachardot}\ P\ x{\isacharparenright}\ \ {\isasymand}\ {\isacharparenleft}{\isasymforall}\ x{\isachardot}\ Q\ x{\isacharparenright}{\isacharparenright}\ {\isacharequal}\ {\isacharparenleft}{\isasymforall}\ x{\isachardot}\ {\isacharparenleft}P\ x\ {\isasymand}\ Q\ x{\isacharparenright}{\isacharparenright}{\isachardoublequote}\isamarkupfalse%
streckem
parents:
diff changeset
    34
\isanewline
streckem
parents:
diff changeset
    35
\isamarkupfalse%
streckem
parents:
diff changeset
    36
\isacommand{lemma}\ {\isachardoublequote}{\isacharparenleft}{\isacharparenleft}{\isasymforall}\ x{\isachardot}\ P\ x{\isacharparenright}\ {\isasymor}\ {\isacharparenleft}{\isasymforall}\ x{\isachardot}\ Q\ x{\isacharparenright}{\isacharparenright}\ {\isacharequal}\ {\isacharparenleft}{\isasymforall}\ x{\isachardot}\ {\isacharparenleft}P\ x\ {\isasymor}\ Q\ x{\isacharparenright}{\isacharparenright}{\isachardoublequote}\isamarkupfalse%
streckem
parents:
diff changeset
    37
\isanewline
streckem
parents:
diff changeset
    38
\isamarkupfalse%
streckem
parents:
diff changeset
    39
\isacommand{lemma}\ {\isachardoublequote}{\isacharparenleft}{\isacharparenleft}{\isasymexists}\ x{\isachardot}\ P\ x{\isacharparenright}\ {\isasymor}\ {\isacharparenleft}{\isasymexists}\ x{\isachardot}\ Q\ x{\isacharparenright}{\isacharparenright}\ {\isacharequal}\ {\isacharparenleft}{\isasymexists}\ x{\isachardot}\ {\isacharparenleft}P\ x\ {\isasymor}\ Q\ x{\isacharparenright}{\isacharparenright}{\isachardoublequote}\isamarkupfalse%
streckem
parents:
diff changeset
    40
\isanewline
streckem
parents:
diff changeset
    41
\isamarkupfalse%
streckem
parents:
diff changeset
    42
\isacommand{lemma}\ {\isachardoublequote}{\isasymexists}x{\isachardot}\ {\isacharparenleft}P\ x\ {\isasymlongrightarrow}\ {\isacharparenleft}{\isasymforall}x{\isachardot}\ P\ x{\isacharparenright}{\isacharparenright}{\isachardoublequote}\isamarkupfalse%
streckem
parents:
diff changeset
    43
\isamarkupfalse%
streckem
parents:
diff changeset
    44
%
streckem
parents:
diff changeset
    45
\isamarkupsubsubsection{Sets as Lists%
streckem
parents:
diff changeset
    46
}
streckem
parents:
diff changeset
    47
\isamarkuptrue%
streckem
parents:
diff changeset
    48
%
streckem
parents:
diff changeset
    49
\begin{isamarkuptext}%
streckem
parents:
diff changeset
    50
Finite sets can obviously be implemented by lists. In the
streckem
parents:
diff changeset
    51
following, you will be asked to implement the set operations union,
streckem
parents:
diff changeset
    52
intersection and difference and to show that these implementations are
streckem
parents:
diff changeset
    53
correct. Thus, for a function%
streckem
parents:
diff changeset
    54
\end{isamarkuptext}%
streckem
parents:
diff changeset
    55
\isamarkuptrue%
streckem
parents:
diff changeset
    56
\ \ list{\isacharunderscore}union\ {\isacharcolon}{\isacharcolon}\ {\isachardoublequote}{\isacharbrackleft}{\isacharprime}a\ list{\isacharcomma}\ {\isacharprime}a\ list{\isacharbrackright}\ {\isasymRightarrow}\ {\isacharprime}a\ list{\isachardoublequote}\isamarkupfalse%
streckem
parents:
diff changeset
    57
%
streckem
parents:
diff changeset
    58
\begin{isamarkuptext}%
streckem
parents:
diff changeset
    59
to be defined by you it has to be shown that%
streckem
parents:
diff changeset
    60
\end{isamarkuptext}%
streckem
parents:
diff changeset
    61
\isamarkuptrue%
streckem
parents:
diff changeset
    62
\isacommand{lemma}\ {\isachardoublequote}set\ {\isacharparenleft}list{\isacharunderscore}union\ xs\ ys{\isacharparenright}\ {\isacharequal}\ set\ xs\ {\isasymunion}\ set\ ys{\isachardoublequote}\isamarkupfalse%
streckem
parents:
diff changeset
    63
\isamarkupfalse%
streckem
parents:
diff changeset
    64
%
streckem
parents:
diff changeset
    65
\begin{isamarkuptext}%
streckem
parents:
diff changeset
    66
In addition, the functions should be space efficient in the
streckem
parents:
diff changeset
    67
sense that one obtains lists without duplicates (\isa{distinct})
streckem
parents:
diff changeset
    68
whenever the parameters of the functions are duplicate-free. Thus, for
streckem
parents:
diff changeset
    69
example,%
streckem
parents:
diff changeset
    70
\end{isamarkuptext}%
streckem
parents:
diff changeset
    71
\isamarkuptrue%
streckem
parents:
diff changeset
    72
\isacommand{lemma}\ {\isacharbrackleft}rule{\isacharunderscore}format{\isacharbrackright}{\isacharcolon}\ \isanewline
streckem
parents:
diff changeset
    73
\ \ {\isachardoublequote}distinct\ xs\ {\isasymlongrightarrow}\ distinct\ ys\ {\isasymlongrightarrow}\ {\isacharparenleft}distinct\ {\isacharparenleft}list{\isacharunderscore}union\ xs\ ys{\isacharparenright}{\isacharparenright}{\isachardoublequote}\isamarkupfalse%
streckem
parents:
diff changeset
    74
\isamarkupfalse%
streckem
parents:
diff changeset
    75
%
streckem
parents:
diff changeset
    76
\begin{isamarkuptext}%
streckem
parents:
diff changeset
    77
\emph{Hint:} \isa{distinct} is defined in \isa{List{\isachardot}thy}. Also the function \isa{mem} and the lemma \isa{set{\isacharunderscore}mem{\isacharunderscore}eq} may be useful.%
streckem
parents:
diff changeset
    78
\end{isamarkuptext}%
streckem
parents:
diff changeset
    79
\isamarkuptrue%
streckem
parents:
diff changeset
    80
%
streckem
parents:
diff changeset
    81
\isamarkupsubsubsection{Quantification over Sets%
streckem
parents:
diff changeset
    82
}
streckem
parents:
diff changeset
    83
\isamarkuptrue%
streckem
parents:
diff changeset
    84
%
streckem
parents:
diff changeset
    85
\begin{isamarkuptext}%
streckem
parents:
diff changeset
    86
Define a set \isa{S} such that the following proposition holds:%
streckem
parents:
diff changeset
    87
\end{isamarkuptext}%
streckem
parents:
diff changeset
    88
\isamarkuptrue%
streckem
parents:
diff changeset
    89
\isacommand{lemma}\ {\isachardoublequote}{\isacharparenleft}{\isacharparenleft}{\isasymforall}\ x\ {\isasymin}\ A{\isachardot}\ P\ x{\isacharparenright}\ {\isasymand}\ {\isacharparenleft}{\isasymforall}\ x\ {\isasymin}\ B{\isachardot}\ P\ x{\isacharparenright}{\isacharparenright}\ {\isasymlongrightarrow}\ {\isacharparenleft}{\isasymforall}\ x\ {\isasymin}\ S{\isachardot}\ P\ x{\isacharparenright}{\isachardoublequote}\isamarkupfalse%
streckem
parents:
diff changeset
    90
\isamarkupfalse%
streckem
parents:
diff changeset
    91
%
streckem
parents:
diff changeset
    92
\begin{isamarkuptext}%
streckem
parents:
diff changeset
    93
Define a predicate \isa{P} such that%
streckem
parents:
diff changeset
    94
\end{isamarkuptext}%
streckem
parents:
diff changeset
    95
\isamarkuptrue%
streckem
parents:
diff changeset
    96
\isacommand{lemma}\ {\isachardoublequote}{\isasymforall}\ x\ {\isasymin}\ A{\isachardot}\ P\ {\isacharparenleft}f\ x{\isacharparenright}\ {\isasymLongrightarrow}\ \ {\isasymforall}\ y\ {\isasymin}\ f\ {\isacharbackquote}\ A{\isachardot}\ Q\ y{\isachardoublequote}\isamarkupfalse%
streckem
parents:
diff changeset
    97
\isanewline
streckem
parents:
diff changeset
    98
\isanewline
streckem
parents:
diff changeset
    99
\isamarkupfalse%
streckem
parents:
diff changeset
   100
\isanewline
streckem
parents:
diff changeset
   101
\isamarkupfalse%
streckem
parents:
diff changeset
   102
\end{isabellebody}%
streckem
parents:
diff changeset
   103
%%% Local Variables:
streckem
parents:
diff changeset
   104
%%% mode: latex
streckem
parents:
diff changeset
   105
%%% TeX-master: "root"
streckem
parents:
diff changeset
   106
%%% End: