doc-src/TutorialI/CTL/document/PDL.tex
author wenzelm
Mon, 08 Nov 2010 00:00:47 +0100
changeset 40406 313a24b66a8d
parent 27015 f8537d69f514
permissions -rw-r--r--
updated generated files;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
10123
9469c039ff57 *** empty log message ***
nipkow
parents:
diff changeset
     1
%
9469c039ff57 *** empty log message ***
nipkow
parents:
diff changeset
     2
\begin{isabellebody}%
9469c039ff57 *** empty log message ***
nipkow
parents:
diff changeset
     3
\def\isabellecontext{PDL}%
17056
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
     4
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
     5
\isadelimtheory
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
     6
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
     7
\endisadelimtheory
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
     8
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
     9
\isatagtheory
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    10
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    11
\endisatagtheory
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    12
{\isafoldtheory}%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    13
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    14
\isadelimtheory
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    15
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    16
\endisadelimtheory
10123
9469c039ff57 *** empty log message ***
nipkow
parents:
diff changeset
    17
%
10971
6852682eaf16 *** empty log message ***
nipkow
parents: 10950
diff changeset
    18
\isamarkupsubsection{Propositional Dynamic Logic --- PDL%
10395
7ef380745743 updated;
wenzelm
parents: 10369
diff changeset
    19
}
11866
fbd097aec213 updated;
wenzelm
parents: 11458
diff changeset
    20
\isamarkuptrue%
10133
e187dacd248f *** empty log message ***
nipkow
parents: 10123
diff changeset
    21
%
e187dacd248f *** empty log message ***
nipkow
parents: 10123
diff changeset
    22
\begin{isamarkuptext}%
10178
aecb5bf6f76f *** empty log message ***
nipkow
parents: 10171
diff changeset
    23
\index{PDL|(}
11458
09a6c44a48ea numerous stylistic changes and indexing
paulson
parents: 11231
diff changeset
    24
The formulae of PDL are built up from atomic propositions via
09a6c44a48ea numerous stylistic changes and indexing
paulson
parents: 11231
diff changeset
    25
negation and conjunction and the two temporal
09a6c44a48ea numerous stylistic changes and indexing
paulson
parents: 11231
diff changeset
    26
connectives \isa{AX} and \isa{EF}\@. Since formulae are essentially
09a6c44a48ea numerous stylistic changes and indexing
paulson
parents: 11231
diff changeset
    27
syntax trees, they are naturally modelled as a datatype:%
09a6c44a48ea numerous stylistic changes and indexing
paulson
parents: 11231
diff changeset
    28
\footnote{The customary definition of PDL
11207
08188224c24e *** empty log message ***
nipkow
parents: 10983
diff changeset
    29
\cite{HarelKT-DL} looks quite different from ours, but the two are easily
11458
09a6c44a48ea numerous stylistic changes and indexing
paulson
parents: 11231
diff changeset
    30
shown to be equivalent.}%
10133
e187dacd248f *** empty log message ***
nipkow
parents: 10123
diff changeset
    31
\end{isamarkuptext}%
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    32
\isamarkuptrue%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    33
\isacommand{datatype}\isamarkupfalse%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
    34
\ formula\ {\isaliteral{3D}{\isacharequal}}\ Atom\ {\isaliteral{22}{\isachardoublequoteopen}}atom{\isaliteral{22}{\isachardoublequoteclose}}\isanewline
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
    35
\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ {\isaliteral{7C}{\isacharbar}}\ Neg\ formula\isanewline
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
    36
\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ {\isaliteral{7C}{\isacharbar}}\ And\ formula\ formula\isanewline
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
    37
\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ {\isaliteral{7C}{\isacharbar}}\ AX\ formula\isanewline
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
    38
\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ {\isaliteral{7C}{\isacharbar}}\ EF\ formula%
10133
e187dacd248f *** empty log message ***
nipkow
parents: 10123
diff changeset
    39
\begin{isamarkuptext}%
e187dacd248f *** empty log message ***
nipkow
parents: 10123
diff changeset
    40
\noindent
11458
09a6c44a48ea numerous stylistic changes and indexing
paulson
parents: 11231
diff changeset
    41
This resembles the boolean expression case study in
10867
bda1701848cd lcp's suggestions for CTL
paulson
parents: 10839
diff changeset
    42
\S\ref{sec:boolex}.
27015
f8537d69f514 *** empty log message ***
nipkow
parents: 21261
diff changeset
    43
A validity relation between states and formulae specifies the semantics.
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
    44
The syntax annotation allows us to write \isa{s\ {\isaliteral{5C3C5475726E7374696C653E}{\isasymTurnstile}}\ f} instead of
27015
f8537d69f514 *** empty log message ***
nipkow
parents: 21261
diff changeset
    45
\hbox{\isa{valid\ s\ f}}. The definition is by recursion over the syntax:%
10149
7cfdf6a330a0 *** empty log message ***
nipkow
parents: 10133
diff changeset
    46
\end{isamarkuptext}%
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    47
\isamarkuptrue%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    48
\isacommand{primrec}\isamarkupfalse%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
    49
\ valid\ {\isaliteral{3A}{\isacharcolon}}{\isaliteral{3A}{\isacharcolon}}\ {\isaliteral{22}{\isachardoublequoteopen}}state\ {\isaliteral{5C3C52696768746172726F773E}{\isasymRightarrow}}\ formula\ {\isaliteral{5C3C52696768746172726F773E}{\isasymRightarrow}}\ bool{\isaliteral{22}{\isachardoublequoteclose}}\ \ \ {\isaliteral{28}{\isacharparenleft}}{\isaliteral{22}{\isachardoublequoteopen}}{\isaliteral{28}{\isacharparenleft}}{\isaliteral{5F}{\isacharunderscore}}\ {\isaliteral{5C3C5475726E7374696C653E}{\isasymTurnstile}}\ {\isaliteral{5F}{\isacharunderscore}}{\isaliteral{29}{\isacharparenright}}{\isaliteral{22}{\isachardoublequoteclose}}\ {\isaliteral{5B}{\isacharbrackleft}}{\isadigit{8}}{\isadigit{0}}{\isaliteral{2C}{\isacharcomma}}{\isadigit{8}}{\isadigit{0}}{\isaliteral{5D}{\isacharbrackright}}\ {\isadigit{8}}{\isadigit{0}}{\isaliteral{29}{\isacharparenright}}\isanewline
27015
f8537d69f514 *** empty log message ***
nipkow
parents: 21261
diff changeset
    50
\isakeyword{where}\isanewline
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
    51
{\isaliteral{22}{\isachardoublequoteopen}}s\ {\isaliteral{5C3C5475726E7374696C653E}{\isasymTurnstile}}\ Atom\ a\ \ {\isaliteral{3D}{\isacharequal}}\ {\isaliteral{28}{\isacharparenleft}}a\ {\isaliteral{5C3C696E3E}{\isasymin}}\ L\ s{\isaliteral{29}{\isacharparenright}}{\isaliteral{22}{\isachardoublequoteclose}}\ {\isaliteral{7C}{\isacharbar}}\isanewline
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
    52
{\isaliteral{22}{\isachardoublequoteopen}}s\ {\isaliteral{5C3C5475726E7374696C653E}{\isasymTurnstile}}\ Neg\ f\ \ \ {\isaliteral{3D}{\isacharequal}}\ {\isaliteral{28}{\isacharparenleft}}{\isaliteral{5C3C6E6F743E}{\isasymnot}}{\isaliteral{28}{\isacharparenleft}}s\ {\isaliteral{5C3C5475726E7374696C653E}{\isasymTurnstile}}\ f{\isaliteral{29}{\isacharparenright}}{\isaliteral{29}{\isacharparenright}}{\isaliteral{22}{\isachardoublequoteclose}}\ {\isaliteral{7C}{\isacharbar}}\isanewline
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
    53
{\isaliteral{22}{\isachardoublequoteopen}}s\ {\isaliteral{5C3C5475726E7374696C653E}{\isasymTurnstile}}\ And\ f\ g\ {\isaliteral{3D}{\isacharequal}}\ {\isaliteral{28}{\isacharparenleft}}s\ {\isaliteral{5C3C5475726E7374696C653E}{\isasymTurnstile}}\ f\ {\isaliteral{5C3C616E643E}{\isasymand}}\ s\ {\isaliteral{5C3C5475726E7374696C653E}{\isasymTurnstile}}\ g{\isaliteral{29}{\isacharparenright}}{\isaliteral{22}{\isachardoublequoteclose}}\ {\isaliteral{7C}{\isacharbar}}\isanewline
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
    54
{\isaliteral{22}{\isachardoublequoteopen}}s\ {\isaliteral{5C3C5475726E7374696C653E}{\isasymTurnstile}}\ AX\ f\ \ \ \ {\isaliteral{3D}{\isacharequal}}\ {\isaliteral{28}{\isacharparenleft}}{\isaliteral{5C3C666F72616C6C3E}{\isasymforall}}t{\isaliteral{2E}{\isachardot}}\ {\isaliteral{28}{\isacharparenleft}}s{\isaliteral{2C}{\isacharcomma}}t{\isaliteral{29}{\isacharparenright}}\ {\isaliteral{5C3C696E3E}{\isasymin}}\ M\ {\isaliteral{5C3C6C6F6E6772696768746172726F773E}{\isasymlongrightarrow}}\ t\ {\isaliteral{5C3C5475726E7374696C653E}{\isasymTurnstile}}\ f{\isaliteral{29}{\isacharparenright}}{\isaliteral{22}{\isachardoublequoteclose}}\ {\isaliteral{7C}{\isacharbar}}\isanewline
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
    55
{\isaliteral{22}{\isachardoublequoteopen}}s\ {\isaliteral{5C3C5475726E7374696C653E}{\isasymTurnstile}}\ EF\ f\ \ \ \ {\isaliteral{3D}{\isacharequal}}\ {\isaliteral{28}{\isacharparenleft}}{\isaliteral{5C3C6578697374733E}{\isasymexists}}t{\isaliteral{2E}{\isachardot}}\ {\isaliteral{28}{\isacharparenleft}}s{\isaliteral{2C}{\isacharcomma}}t{\isaliteral{29}{\isacharparenright}}\ {\isaliteral{5C3C696E3E}{\isasymin}}\ M\isaliteral{5C3C5E7375703E}{}\isactrlsup {\isaliteral{2A}{\isacharasterisk}}\ {\isaliteral{5C3C616E643E}{\isasymand}}\ t\ {\isaliteral{5C3C5475726E7374696C653E}{\isasymTurnstile}}\ f{\isaliteral{29}{\isacharparenright}}{\isaliteral{22}{\isachardoublequoteclose}}%
10133
e187dacd248f *** empty log message ***
nipkow
parents: 10123
diff changeset
    56
\begin{isamarkuptext}%
10149
7cfdf6a330a0 *** empty log message ***
nipkow
parents: 10133
diff changeset
    57
\noindent
7cfdf6a330a0 *** empty log message ***
nipkow
parents: 10133
diff changeset
    58
The first three equations should be self-explanatory. The temporal formula
10983
59961d32b1ae *** empty log message ***
nipkow
parents: 10971
diff changeset
    59
\isa{AX\ f} means that \isa{f} is true in \emph{A}ll ne\emph{X}t states whereas
59961d32b1ae *** empty log message ***
nipkow
parents: 10971
diff changeset
    60
\isa{EF\ f} means that there \emph{E}xists some \emph{F}uture state in which \isa{f} is
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
    61
true. The future is expressed via \isa{\isaliteral{5C3C5E7375703E}{}\isactrlsup {\isaliteral{2A}{\isacharasterisk}}}, the reflexive transitive
10149
7cfdf6a330a0 *** empty log message ***
nipkow
parents: 10133
diff changeset
    62
closure. Because of reflexivity, the future includes the present.
7cfdf6a330a0 *** empty log message ***
nipkow
parents: 10133
diff changeset
    63
27015
f8537d69f514 *** empty log message ***
nipkow
parents: 21261
diff changeset
    64
Now we come to the model checker itself. It maps a formula into the
f8537d69f514 *** empty log message ***
nipkow
parents: 21261
diff changeset
    65
set of states where the formula is true.  It too is defined by
f8537d69f514 *** empty log message ***
nipkow
parents: 21261
diff changeset
    66
recursion over the syntax:%
10133
e187dacd248f *** empty log message ***
nipkow
parents: 10123
diff changeset
    67
\end{isamarkuptext}%
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    68
\isamarkuptrue%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    69
\isacommand{primrec}\isamarkupfalse%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
    70
\ mc\ {\isaliteral{3A}{\isacharcolon}}{\isaliteral{3A}{\isacharcolon}}\ {\isaliteral{22}{\isachardoublequoteopen}}formula\ {\isaliteral{5C3C52696768746172726F773E}{\isasymRightarrow}}\ state\ set{\isaliteral{22}{\isachardoublequoteclose}}\ \isakeyword{where}\isanewline
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
    71
{\isaliteral{22}{\isachardoublequoteopen}}mc{\isaliteral{28}{\isacharparenleft}}Atom\ a{\isaliteral{29}{\isacharparenright}}\ \ {\isaliteral{3D}{\isacharequal}}\ {\isaliteral{7B}{\isacharbraceleft}}s{\isaliteral{2E}{\isachardot}}\ a\ {\isaliteral{5C3C696E3E}{\isasymin}}\ L\ s{\isaliteral{7D}{\isacharbraceright}}{\isaliteral{22}{\isachardoublequoteclose}}\ {\isaliteral{7C}{\isacharbar}}\isanewline
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
    72
{\isaliteral{22}{\isachardoublequoteopen}}mc{\isaliteral{28}{\isacharparenleft}}Neg\ f{\isaliteral{29}{\isacharparenright}}\ \ \ {\isaliteral{3D}{\isacharequal}}\ {\isaliteral{2D}{\isacharminus}}mc\ f{\isaliteral{22}{\isachardoublequoteclose}}\ {\isaliteral{7C}{\isacharbar}}\isanewline
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
    73
{\isaliteral{22}{\isachardoublequoteopen}}mc{\isaliteral{28}{\isacharparenleft}}And\ f\ g{\isaliteral{29}{\isacharparenright}}\ {\isaliteral{3D}{\isacharequal}}\ mc\ f\ {\isaliteral{5C3C696E7465723E}{\isasyminter}}\ mc\ g{\isaliteral{22}{\isachardoublequoteclose}}\ {\isaliteral{7C}{\isacharbar}}\isanewline
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
    74
{\isaliteral{22}{\isachardoublequoteopen}}mc{\isaliteral{28}{\isacharparenleft}}AX\ f{\isaliteral{29}{\isacharparenright}}\ \ \ \ {\isaliteral{3D}{\isacharequal}}\ {\isaliteral{7B}{\isacharbraceleft}}s{\isaliteral{2E}{\isachardot}}\ {\isaliteral{5C3C666F72616C6C3E}{\isasymforall}}t{\isaliteral{2E}{\isachardot}}\ {\isaliteral{28}{\isacharparenleft}}s{\isaliteral{2C}{\isacharcomma}}t{\isaliteral{29}{\isacharparenright}}\ {\isaliteral{5C3C696E3E}{\isasymin}}\ M\ \ {\isaliteral{5C3C6C6F6E6772696768746172726F773E}{\isasymlongrightarrow}}\ t\ {\isaliteral{5C3C696E3E}{\isasymin}}\ mc\ f{\isaliteral{7D}{\isacharbraceright}}{\isaliteral{22}{\isachardoublequoteclose}}\ {\isaliteral{7C}{\isacharbar}}\isanewline
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
    75
{\isaliteral{22}{\isachardoublequoteopen}}mc{\isaliteral{28}{\isacharparenleft}}EF\ f{\isaliteral{29}{\isacharparenright}}\ \ \ \ {\isaliteral{3D}{\isacharequal}}\ lfp{\isaliteral{28}{\isacharparenleft}}{\isaliteral{5C3C6C616D6264613E}{\isasymlambda}}T{\isaliteral{2E}{\isachardot}}\ mc\ f\ {\isaliteral{5C3C756E696F6E3E}{\isasymunion}}\ {\isaliteral{28}{\isacharparenleft}}M{\isaliteral{5C3C696E76657273653E}{\isasyminverse}}\ {\isaliteral{60}{\isacharbackquote}}{\isaliteral{60}{\isacharbackquote}}\ T{\isaliteral{29}{\isacharparenright}}{\isaliteral{29}{\isacharparenright}}{\isaliteral{22}{\isachardoublequoteclose}}%
10133
e187dacd248f *** empty log message ***
nipkow
parents: 10123
diff changeset
    76
\begin{isamarkuptext}%
10149
7cfdf6a330a0 *** empty log message ***
nipkow
parents: 10133
diff changeset
    77
\noindent
7cfdf6a330a0 *** empty log message ***
nipkow
parents: 10133
diff changeset
    78
Only the equation for \isa{EF} deserves some comments. Remember that the
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
    79
postfix \isa{{\isaliteral{5C3C696E76657273653E}{\isasyminverse}}} and the infix \isa{{\isaliteral{60}{\isacharbackquote}}{\isaliteral{60}{\isacharbackquote}}} are predefined and denote the
10867
bda1701848cd lcp's suggestions for CTL
paulson
parents: 10839
diff changeset
    80
converse of a relation and the image of a set under a relation.  Thus
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
    81
\isa{M{\isaliteral{5C3C696E76657273653E}{\isasyminverse}}\ {\isaliteral{60}{\isacharbackquote}}{\isaliteral{60}{\isacharbackquote}}\ T} is the set of all predecessors of \isa{T} and the least
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
    82
fixed point (\isa{lfp}) of \isa{{\isaliteral{5C3C6C616D6264613E}{\isasymlambda}}T{\isaliteral{2E}{\isachardot}}\ mc\ f\ {\isaliteral{5C3C756E696F6E3E}{\isasymunion}}\ M{\isaliteral{5C3C696E76657273653E}{\isasyminverse}}\ {\isaliteral{60}{\isacharbackquote}}{\isaliteral{60}{\isacharbackquote}}\ T} is the least set
10149
7cfdf6a330a0 *** empty log message ***
nipkow
parents: 10133
diff changeset
    83
\isa{T} containing \isa{mc\ f} and all predecessors of \isa{T}. If you
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
    84
find it hard to see that \isa{mc\ {\isaliteral{28}{\isacharparenleft}}EF\ f{\isaliteral{29}{\isacharparenright}}} contains exactly those states from
10983
59961d32b1ae *** empty log message ***
nipkow
parents: 10971
diff changeset
    85
which there is a path to a state where \isa{f} is true, do not worry --- this
10149
7cfdf6a330a0 *** empty log message ***
nipkow
parents: 10133
diff changeset
    86
will be proved in a moment.
7cfdf6a330a0 *** empty log message ***
nipkow
parents: 10133
diff changeset
    87
10867
bda1701848cd lcp's suggestions for CTL
paulson
parents: 10839
diff changeset
    88
First we prove monotonicity of the function inside \isa{lfp}
bda1701848cd lcp's suggestions for CTL
paulson
parents: 10839
diff changeset
    89
in order to make sure it really has a least fixed point.%
10133
e187dacd248f *** empty log message ***
nipkow
parents: 10123
diff changeset
    90
\end{isamarkuptext}%
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    91
\isamarkuptrue%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    92
\isacommand{lemma}\isamarkupfalse%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
    93
\ mono{\isaliteral{5F}{\isacharunderscore}}ef{\isaliteral{3A}{\isacharcolon}}\ {\isaliteral{22}{\isachardoublequoteopen}}mono{\isaliteral{28}{\isacharparenleft}}{\isaliteral{5C3C6C616D6264613E}{\isasymlambda}}T{\isaliteral{2E}{\isachardot}}\ A\ {\isaliteral{5C3C756E696F6E3E}{\isasymunion}}\ {\isaliteral{28}{\isacharparenleft}}M{\isaliteral{5C3C696E76657273653E}{\isasyminverse}}\ {\isaliteral{60}{\isacharbackquote}}{\isaliteral{60}{\isacharbackquote}}\ T{\isaliteral{29}{\isacharparenright}}{\isaliteral{29}{\isacharparenright}}{\isaliteral{22}{\isachardoublequoteclose}}\isanewline
17056
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    94
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    95
\isadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    96
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    97
\endisadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    98
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    99
\isatagproof
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   100
\isacommand{apply}\isamarkupfalse%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
   101
{\isaliteral{28}{\isacharparenleft}}rule\ monoI{\isaliteral{29}{\isacharparenright}}\isanewline
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   102
\isacommand{apply}\isamarkupfalse%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   103
\ blast\isanewline
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   104
\isacommand{done}\isamarkupfalse%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   105
%
17056
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   106
\endisatagproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   107
{\isafoldproof}%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   108
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   109
\isadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   110
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   111
\endisadelimproof
11866
fbd097aec213 updated;
wenzelm
parents: 11458
diff changeset
   112
%
10149
7cfdf6a330a0 *** empty log message ***
nipkow
parents: 10133
diff changeset
   113
\begin{isamarkuptext}%
7cfdf6a330a0 *** empty log message ***
nipkow
parents: 10133
diff changeset
   114
\noindent
7cfdf6a330a0 *** empty log message ***
nipkow
parents: 10133
diff changeset
   115
Now we can relate model checking and semantics. For the \isa{EF} case we need
7cfdf6a330a0 *** empty log message ***
nipkow
parents: 10133
diff changeset
   116
a separate lemma:%
7cfdf6a330a0 *** empty log message ***
nipkow
parents: 10133
diff changeset
   117
\end{isamarkuptext}%
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   118
\isamarkuptrue%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   119
\isacommand{lemma}\isamarkupfalse%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
   120
\ EF{\isaliteral{5F}{\isacharunderscore}}lemma{\isaliteral{3A}{\isacharcolon}}\isanewline
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
   121
\ \ {\isaliteral{22}{\isachardoublequoteopen}}lfp{\isaliteral{28}{\isacharparenleft}}{\isaliteral{5C3C6C616D6264613E}{\isasymlambda}}T{\isaliteral{2E}{\isachardot}}\ A\ {\isaliteral{5C3C756E696F6E3E}{\isasymunion}}\ {\isaliteral{28}{\isacharparenleft}}M{\isaliteral{5C3C696E76657273653E}{\isasyminverse}}\ {\isaliteral{60}{\isacharbackquote}}{\isaliteral{60}{\isacharbackquote}}\ T{\isaliteral{29}{\isacharparenright}}{\isaliteral{29}{\isacharparenright}}\ {\isaliteral{3D}{\isacharequal}}\ {\isaliteral{7B}{\isacharbraceleft}}s{\isaliteral{2E}{\isachardot}}\ {\isaliteral{5C3C6578697374733E}{\isasymexists}}t{\isaliteral{2E}{\isachardot}}\ {\isaliteral{28}{\isacharparenleft}}s{\isaliteral{2C}{\isacharcomma}}t{\isaliteral{29}{\isacharparenright}}\ {\isaliteral{5C3C696E3E}{\isasymin}}\ M\isaliteral{5C3C5E7375703E}{}\isactrlsup {\isaliteral{2A}{\isacharasterisk}}\ {\isaliteral{5C3C616E643E}{\isasymand}}\ t\ {\isaliteral{5C3C696E3E}{\isasymin}}\ A{\isaliteral{7D}{\isacharbraceright}}{\isaliteral{22}{\isachardoublequoteclose}}%
17056
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   122
\isadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   123
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   124
\endisadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   125
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   126
\isatagproof
16069
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   127
%
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   128
\begin{isamarkuptxt}%
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   129
\noindent
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   130
The equality is proved in the canonical fashion by proving that each set
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   131
includes the other; the inclusion is shown pointwise:%
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   132
\end{isamarkuptxt}%
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   133
\isamarkuptrue%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   134
\isacommand{apply}\isamarkupfalse%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
   135
{\isaliteral{28}{\isacharparenleft}}rule\ equalityI{\isaliteral{29}{\isacharparenright}}\isanewline
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   136
\ \isacommand{apply}\isamarkupfalse%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
   137
{\isaliteral{28}{\isacharparenleft}}rule\ subsetI{\isaliteral{29}{\isacharparenright}}\isanewline
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   138
\ \isacommand{apply}\isamarkupfalse%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
   139
{\isaliteral{28}{\isacharparenleft}}simp{\isaliteral{29}{\isacharparenright}}%
16069
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   140
\begin{isamarkuptxt}%
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   141
\noindent
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   142
Simplification leaves us with the following first subgoal
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   143
\begin{isabelle}%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
   144
\ {\isadigit{1}}{\isaliteral{2E}{\isachardot}}\ {\isaliteral{5C3C416E643E}{\isasymAnd}}s{\isaliteral{2E}{\isachardot}}\ s\ {\isaliteral{5C3C696E3E}{\isasymin}}\ lfp\ {\isaliteral{28}{\isacharparenleft}}{\isaliteral{5C3C6C616D6264613E}{\isasymlambda}}T{\isaliteral{2E}{\isachardot}}\ A\ {\isaliteral{5C3C756E696F6E3E}{\isasymunion}}\ M{\isaliteral{5C3C696E76657273653E}{\isasyminverse}}\ {\isaliteral{60}{\isacharbackquote}}{\isaliteral{60}{\isacharbackquote}}\ T{\isaliteral{29}{\isacharparenright}}\ {\isaliteral{5C3C4C6F6E6772696768746172726F773E}{\isasymLongrightarrow}}\ {\isaliteral{5C3C6578697374733E}{\isasymexists}}t{\isaliteral{2E}{\isachardot}}\ {\isaliteral{28}{\isacharparenleft}}s{\isaliteral{2C}{\isacharcomma}}\ t{\isaliteral{29}{\isacharparenright}}\ {\isaliteral{5C3C696E3E}{\isasymin}}\ M\isaliteral{5C3C5E7375703E}{}\isactrlsup {\isaliteral{2A}{\isacharasterisk}}\ {\isaliteral{5C3C616E643E}{\isasymand}}\ t\ {\isaliteral{5C3C696E3E}{\isasymin}}\ A%
16069
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   145
\end{isabelle}
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   146
which is proved by \isa{lfp}-induction:%
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   147
\end{isamarkuptxt}%
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   148
\isamarkuptrue%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   149
\ \isacommand{apply}\isamarkupfalse%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
   150
{\isaliteral{28}{\isacharparenleft}}erule\ lfp{\isaliteral{5F}{\isacharunderscore}}induct{\isaliteral{5F}{\isacharunderscore}}set{\isaliteral{29}{\isacharparenright}}\isanewline
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   151
\ \ \isacommand{apply}\isamarkupfalse%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
   152
{\isaliteral{28}{\isacharparenleft}}rule\ mono{\isaliteral{5F}{\isacharunderscore}}ef{\isaliteral{29}{\isacharparenright}}\isanewline
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   153
\ \isacommand{apply}\isamarkupfalse%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
   154
{\isaliteral{28}{\isacharparenleft}}simp{\isaliteral{29}{\isacharparenright}}%
16069
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   155
\begin{isamarkuptxt}%
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   156
\noindent
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   157
Having disposed of the monotonicity subgoal,
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   158
simplification leaves us with the following goal:
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   159
\begin{isabelle}
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   160
\ {\isadigit{1}}{\isachardot}\ {\isasymAnd}x{\isachardot}\ x\ {\isasymin}\ A\ {\isasymor}\isanewline
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   161
\ \ \ \ \ \ \ \ \ x\ {\isasymin}\ M{\isasyminverse}\ {\isacharbackquote}{\isacharbackquote}\ {\isacharparenleft}lfp\ {\isacharparenleft}\dots{\isacharparenright}\ {\isasyminter}\ {\isacharbraceleft}x{\isachardot}\ {\isasymexists}t{\isachardot}\ {\isacharparenleft}x{\isacharcomma}\ t{\isacharparenright}\ {\isasymin}\ M\isactrlsup {\isacharasterisk}\ {\isasymand}\ t\ {\isasymin}\ A{\isacharbraceright}{\isacharparenright}\isanewline
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   162
\ \ \ \ \ \ \ \ {\isasymLongrightarrow}\ {\isasymexists}t{\isachardot}\ {\isacharparenleft}x{\isacharcomma}\ t{\isacharparenright}\ {\isasymin}\ M\isactrlsup {\isacharasterisk}\ {\isasymand}\ t\ {\isasymin}\ A
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   163
\end{isabelle}
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   164
It is proved by \isa{blast}, using the transitivity of 
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   165
\isa{M\isactrlsup {\isacharasterisk}}.%
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   166
\end{isamarkuptxt}%
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   167
\isamarkuptrue%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   168
\ \isacommand{apply}\isamarkupfalse%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
   169
{\isaliteral{28}{\isacharparenleft}}blast\ intro{\isaliteral{3A}{\isacharcolon}}\ rtrancl{\isaliteral{5F}{\isacharunderscore}}trans{\isaliteral{29}{\isacharparenright}}%
16069
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   170
\begin{isamarkuptxt}%
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   171
We now return to the second set inclusion subgoal, which is again proved
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   172
pointwise:%
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   173
\end{isamarkuptxt}%
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   174
\isamarkuptrue%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   175
\isacommand{apply}\isamarkupfalse%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
   176
{\isaliteral{28}{\isacharparenleft}}rule\ subsetI{\isaliteral{29}{\isacharparenright}}\isanewline
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   177
\isacommand{apply}\isamarkupfalse%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
   178
{\isaliteral{28}{\isacharparenleft}}simp{\isaliteral{2C}{\isacharcomma}}\ clarify{\isaliteral{29}{\isacharparenright}}%
16069
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   179
\begin{isamarkuptxt}%
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   180
\noindent
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   181
After simplification and clarification we are left with
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   182
\begin{isabelle}%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
   183
\ {\isadigit{1}}{\isaliteral{2E}{\isachardot}}\ {\isaliteral{5C3C416E643E}{\isasymAnd}}x\ t{\isaliteral{2E}{\isachardot}}\ {\isaliteral{5C3C6C6272616B6B3E}{\isasymlbrakk}}{\isaliteral{28}{\isacharparenleft}}x{\isaliteral{2C}{\isacharcomma}}\ t{\isaliteral{29}{\isacharparenright}}\ {\isaliteral{5C3C696E3E}{\isasymin}}\ M\isaliteral{5C3C5E7375703E}{}\isactrlsup {\isaliteral{2A}{\isacharasterisk}}{\isaliteral{3B}{\isacharsemicolon}}\ t\ {\isaliteral{5C3C696E3E}{\isasymin}}\ A{\isaliteral{5C3C726272616B6B3E}{\isasymrbrakk}}\ {\isaliteral{5C3C4C6F6E6772696768746172726F773E}{\isasymLongrightarrow}}\ x\ {\isaliteral{5C3C696E3E}{\isasymin}}\ lfp\ {\isaliteral{28}{\isacharparenleft}}{\isaliteral{5C3C6C616D6264613E}{\isasymlambda}}T{\isaliteral{2E}{\isachardot}}\ A\ {\isaliteral{5C3C756E696F6E3E}{\isasymunion}}\ M{\isaliteral{5C3C696E76657273653E}{\isasyminverse}}\ {\isaliteral{60}{\isacharbackquote}}{\isaliteral{60}{\isacharbackquote}}\ T{\isaliteral{29}{\isacharparenright}}%
16069
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   184
\end{isabelle}
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
   185
This goal is proved by induction on \isa{{\isaliteral{28}{\isacharparenleft}}s{\isaliteral{2C}{\isacharcomma}}\ t{\isaliteral{29}{\isacharparenright}}\ {\isaliteral{5C3C696E3E}{\isasymin}}\ M\isaliteral{5C3C5E7375703E}{}\isactrlsup {\isaliteral{2A}{\isacharasterisk}}}. But since the model
16069
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   186
checker works backwards (from \isa{t} to \isa{s}), we cannot use the
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
   187
induction theorem \isa{rtrancl{\isaliteral{5F}{\isacharunderscore}}induct}: it works in the
16069
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   188
forward direction. Fortunately the converse induction theorem
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
   189
\isa{converse{\isaliteral{5F}{\isacharunderscore}}rtrancl{\isaliteral{5F}{\isacharunderscore}}induct} already exists:
16069
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   190
\begin{isabelle}%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
   191
\ \ \ \ \ {\isaliteral{5C3C6C6272616B6B3E}{\isasymlbrakk}}{\isaliteral{28}{\isacharparenleft}}a{\isaliteral{2C}{\isacharcomma}}\ b{\isaliteral{29}{\isacharparenright}}\ {\isaliteral{5C3C696E3E}{\isasymin}}\ r\isaliteral{5C3C5E7375703E}{}\isactrlsup {\isaliteral{2A}{\isacharasterisk}}{\isaliteral{3B}{\isacharsemicolon}}\ P\ b{\isaliteral{3B}{\isacharsemicolon}}\isanewline
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
   192
\isaindent{\ \ \ \ \ \ }{\isaliteral{5C3C416E643E}{\isasymAnd}}y\ z{\isaliteral{2E}{\isachardot}}\ {\isaliteral{5C3C6C6272616B6B3E}{\isasymlbrakk}}{\isaliteral{28}{\isacharparenleft}}y{\isaliteral{2C}{\isacharcomma}}\ z{\isaliteral{29}{\isacharparenright}}\ {\isaliteral{5C3C696E3E}{\isasymin}}\ r{\isaliteral{3B}{\isacharsemicolon}}\ {\isaliteral{28}{\isacharparenleft}}z{\isaliteral{2C}{\isacharcomma}}\ b{\isaliteral{29}{\isacharparenright}}\ {\isaliteral{5C3C696E3E}{\isasymin}}\ r\isaliteral{5C3C5E7375703E}{}\isactrlsup {\isaliteral{2A}{\isacharasterisk}}{\isaliteral{3B}{\isacharsemicolon}}\ P\ z{\isaliteral{5C3C726272616B6B3E}{\isasymrbrakk}}\ {\isaliteral{5C3C4C6F6E6772696768746172726F773E}{\isasymLongrightarrow}}\ P\ y{\isaliteral{5C3C726272616B6B3E}{\isasymrbrakk}}\isanewline
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
   193
\isaindent{\ \ \ \ \ }{\isaliteral{5C3C4C6F6E6772696768746172726F773E}{\isasymLongrightarrow}}\ P\ a%
16069
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   194
\end{isabelle}
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
   195
It says that if \isa{{\isaliteral{28}{\isacharparenleft}}a{\isaliteral{2C}{\isacharcomma}}\ b{\isaliteral{29}{\isacharparenright}}\ {\isaliteral{5C3C696E3E}{\isasymin}}\ r\isaliteral{5C3C5E7375703E}{}\isactrlsup {\isaliteral{2A}{\isacharasterisk}}} and we know \isa{P\ b} then we can infer
16069
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   196
\isa{P\ a} provided each step backwards from a predecessor \isa{z} of
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   197
\isa{b} preserves \isa{P}.%
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   198
\end{isamarkuptxt}%
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   199
\isamarkuptrue%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   200
\isacommand{apply}\isamarkupfalse%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
   201
{\isaliteral{28}{\isacharparenleft}}erule\ converse{\isaliteral{5F}{\isacharunderscore}}rtrancl{\isaliteral{5F}{\isacharunderscore}}induct{\isaliteral{29}{\isacharparenright}}%
16069
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   202
\begin{isamarkuptxt}%
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   203
\noindent
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   204
The base case
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   205
\begin{isabelle}%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
   206
\ {\isadigit{1}}{\isaliteral{2E}{\isachardot}}\ {\isaliteral{5C3C416E643E}{\isasymAnd}}x\ t{\isaliteral{2E}{\isachardot}}\ t\ {\isaliteral{5C3C696E3E}{\isasymin}}\ A\ {\isaliteral{5C3C4C6F6E6772696768746172726F773E}{\isasymLongrightarrow}}\ t\ {\isaliteral{5C3C696E3E}{\isasymin}}\ lfp\ {\isaliteral{28}{\isacharparenleft}}{\isaliteral{5C3C6C616D6264613E}{\isasymlambda}}T{\isaliteral{2E}{\isachardot}}\ A\ {\isaliteral{5C3C756E696F6E3E}{\isasymunion}}\ M{\isaliteral{5C3C696E76657273653E}{\isasyminverse}}\ {\isaliteral{60}{\isacharbackquote}}{\isaliteral{60}{\isacharbackquote}}\ T{\isaliteral{29}{\isacharparenright}}%
16069
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   207
\end{isabelle}
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   208
is solved by unrolling \isa{lfp} once%
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   209
\end{isamarkuptxt}%
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   210
\isamarkuptrue%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   211
\ \isacommand{apply}\isamarkupfalse%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
   212
{\isaliteral{28}{\isacharparenleft}}subst\ lfp{\isaliteral{5F}{\isacharunderscore}}unfold{\isaliteral{5B}{\isacharbrackleft}}OF\ mono{\isaliteral{5F}{\isacharunderscore}}ef{\isaliteral{5D}{\isacharbrackright}}{\isaliteral{29}{\isacharparenright}}%
16069
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   213
\begin{isamarkuptxt}%
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   214
\begin{isabelle}%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
   215
\ {\isadigit{1}}{\isaliteral{2E}{\isachardot}}\ {\isaliteral{5C3C416E643E}{\isasymAnd}}x\ t{\isaliteral{2E}{\isachardot}}\ t\ {\isaliteral{5C3C696E3E}{\isasymin}}\ A\ {\isaliteral{5C3C4C6F6E6772696768746172726F773E}{\isasymLongrightarrow}}\ t\ {\isaliteral{5C3C696E3E}{\isasymin}}\ A\ {\isaliteral{5C3C756E696F6E3E}{\isasymunion}}\ M{\isaliteral{5C3C696E76657273653E}{\isasyminverse}}\ {\isaliteral{60}{\isacharbackquote}}{\isaliteral{60}{\isacharbackquote}}\ lfp\ {\isaliteral{28}{\isacharparenleft}}{\isaliteral{5C3C6C616D6264613E}{\isasymlambda}}T{\isaliteral{2E}{\isachardot}}\ A\ {\isaliteral{5C3C756E696F6E3E}{\isasymunion}}\ M{\isaliteral{5C3C696E76657273653E}{\isasyminverse}}\ {\isaliteral{60}{\isacharbackquote}}{\isaliteral{60}{\isacharbackquote}}\ T{\isaliteral{29}{\isacharparenright}}%
16069
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   216
\end{isabelle}
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   217
and disposing of the resulting trivial subgoal automatically:%
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   218
\end{isamarkuptxt}%
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   219
\isamarkuptrue%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   220
\ \isacommand{apply}\isamarkupfalse%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
   221
{\isaliteral{28}{\isacharparenleft}}blast{\isaliteral{29}{\isacharparenright}}%
16069
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   222
\begin{isamarkuptxt}%
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   223
\noindent
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   224
The proof of the induction step is identical to the one for the base case:%
3f2a9f400168 *** empty log message ***
nipkow
parents: 15904
diff changeset
   225
\end{isamarkuptxt}%
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   226
\isamarkuptrue%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   227
\isacommand{apply}\isamarkupfalse%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
   228
{\isaliteral{28}{\isacharparenleft}}subst\ lfp{\isaliteral{5F}{\isacharunderscore}}unfold{\isaliteral{5B}{\isacharbrackleft}}OF\ mono{\isaliteral{5F}{\isacharunderscore}}ef{\isaliteral{5D}{\isacharbrackright}}{\isaliteral{29}{\isacharparenright}}\isanewline
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   229
\isacommand{apply}\isamarkupfalse%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
   230
{\isaliteral{28}{\isacharparenleft}}blast{\isaliteral{29}{\isacharparenright}}\isanewline
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   231
\isacommand{done}\isamarkupfalse%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   232
%
17056
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   233
\endisatagproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   234
{\isafoldproof}%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   235
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   236
\isadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   237
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   238
\endisadelimproof
11866
fbd097aec213 updated;
wenzelm
parents: 11458
diff changeset
   239
%
10149
7cfdf6a330a0 *** empty log message ***
nipkow
parents: 10133
diff changeset
   240
\begin{isamarkuptext}%
7cfdf6a330a0 *** empty log message ***
nipkow
parents: 10133
diff changeset
   241
The main theorem is proved in the familiar manner: induction followed by
7cfdf6a330a0 *** empty log message ***
nipkow
parents: 10133
diff changeset
   242
\isa{auto} augmented with the lemma as a simplification rule.%
7cfdf6a330a0 *** empty log message ***
nipkow
parents: 10133
diff changeset
   243
\end{isamarkuptext}%
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   244
\isamarkuptrue%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   245
\isacommand{theorem}\isamarkupfalse%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
   246
\ {\isaliteral{22}{\isachardoublequoteopen}}mc\ f\ {\isaliteral{3D}{\isacharequal}}\ {\isaliteral{7B}{\isacharbraceleft}}s{\isaliteral{2E}{\isachardot}}\ s\ {\isaliteral{5C3C5475726E7374696C653E}{\isasymTurnstile}}\ f{\isaliteral{7D}{\isacharbraceright}}{\isaliteral{22}{\isachardoublequoteclose}}\isanewline
17056
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   247
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   248
\isadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   249
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   250
\endisadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   251
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   252
\isatagproof
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   253
\isacommand{apply}\isamarkupfalse%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
   254
{\isaliteral{28}{\isacharparenleft}}induct{\isaliteral{5F}{\isacharunderscore}}tac\ f{\isaliteral{29}{\isacharparenright}}\isanewline
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   255
\isacommand{apply}\isamarkupfalse%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
   256
{\isaliteral{28}{\isacharparenleft}}auto\ simp\ add{\isaliteral{3A}{\isacharcolon}}\ EF{\isaliteral{5F}{\isacharunderscore}}lemma{\isaliteral{29}{\isacharparenright}}\isanewline
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   257
\isacommand{done}\isamarkupfalse%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   258
%
17056
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   259
\endisatagproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   260
{\isafoldproof}%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   261
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   262
\isadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   263
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   264
\endisadelimproof
11866
fbd097aec213 updated;
wenzelm
parents: 11458
diff changeset
   265
%
10171
59d6633835fa *** empty log message ***
nipkow
parents: 10159
diff changeset
   266
\begin{isamarkuptext}%
59d6633835fa *** empty log message ***
nipkow
parents: 10159
diff changeset
   267
\begin{exercise}
11458
09a6c44a48ea numerous stylistic changes and indexing
paulson
parents: 11231
diff changeset
   268
\isa{AX} has a dual operator \isa{EN} 
09a6c44a48ea numerous stylistic changes and indexing
paulson
parents: 11231
diff changeset
   269
(``there exists a next state such that'')%
09a6c44a48ea numerous stylistic changes and indexing
paulson
parents: 11231
diff changeset
   270
\footnote{We cannot use the customary \isa{EX}: it is reserved
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
   271
as the \textsc{ascii}-equivalent of \isa{{\isaliteral{5C3C6578697374733E}{\isasymexists}}}.}
11458
09a6c44a48ea numerous stylistic changes and indexing
paulson
parents: 11231
diff changeset
   272
with the intended semantics
10171
59d6633835fa *** empty log message ***
nipkow
parents: 10159
diff changeset
   273
\begin{isabelle}%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
   274
\ \ \ \ \ s\ {\isaliteral{5C3C5475726E7374696C653E}{\isasymTurnstile}}\ EN\ f\ {\isaliteral{3D}{\isacharequal}}\ {\isaliteral{28}{\isacharparenleft}}{\isaliteral{5C3C6578697374733E}{\isasymexists}}t{\isaliteral{2E}{\isachardot}}\ {\isaliteral{28}{\isacharparenleft}}s{\isaliteral{2C}{\isacharcomma}}\ t{\isaliteral{29}{\isacharparenright}}\ {\isaliteral{5C3C696E3E}{\isasymin}}\ M\ {\isaliteral{5C3C616E643E}{\isasymand}}\ t\ {\isaliteral{5C3C5475726E7374696C653E}{\isasymTurnstile}}\ f{\isaliteral{29}{\isacharparenright}}%
10171
59d6633835fa *** empty log message ***
nipkow
parents: 10159
diff changeset
   275
\end{isabelle}
59d6633835fa *** empty log message ***
nipkow
parents: 10159
diff changeset
   276
Fortunately, \isa{EN\ f} can already be expressed as a PDL formula. How?
59d6633835fa *** empty log message ***
nipkow
parents: 10159
diff changeset
   277
59d6633835fa *** empty log message ***
nipkow
parents: 10159
diff changeset
   278
Show that the semantics for \isa{EF} satisfies the following recursion equation:
59d6633835fa *** empty log message ***
nipkow
parents: 10159
diff changeset
   279
\begin{isabelle}%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27015
diff changeset
   280
\ \ \ \ \ s\ {\isaliteral{5C3C5475726E7374696C653E}{\isasymTurnstile}}\ EF\ f\ {\isaliteral{3D}{\isacharequal}}\ {\isaliteral{28}{\isacharparenleft}}s\ {\isaliteral{5C3C5475726E7374696C653E}{\isasymTurnstile}}\ f\ {\isaliteral{5C3C6F723E}{\isasymor}}\ s\ {\isaliteral{5C3C5475726E7374696C653E}{\isasymTurnstile}}\ EN\ {\isaliteral{28}{\isacharparenleft}}EF\ f{\isaliteral{29}{\isacharparenright}}{\isaliteral{29}{\isacharparenright}}%
10171
59d6633835fa *** empty log message ***
nipkow
parents: 10159
diff changeset
   281
\end{isabelle}
10178
aecb5bf6f76f *** empty log message ***
nipkow
parents: 10171
diff changeset
   282
\end{exercise}
aecb5bf6f76f *** empty log message ***
nipkow
parents: 10171
diff changeset
   283
\index{PDL|)}%
10171
59d6633835fa *** empty log message ***
nipkow
parents: 10159
diff changeset
   284
\end{isamarkuptext}%
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   285
\isamarkuptrue%
17056
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   286
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   287
\isadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   288
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   289
\endisadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   290
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   291
\isatagproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   292
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   293
\endisatagproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   294
{\isafoldproof}%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   295
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   296
\isadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   297
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   298
\endisadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   299
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   300
\isadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   301
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   302
\endisadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   303
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   304
\isatagproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   305
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   306
\endisatagproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   307
{\isafoldproof}%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   308
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   309
\isadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   310
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   311
\endisadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   312
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   313
\isadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   314
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   315
\endisadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   316
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   317
\isatagproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   318
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   319
\endisatagproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   320
{\isafoldproof}%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   321
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   322
\isadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   323
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   324
\endisadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   325
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   326
\isadelimtheory
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   327
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   328
\endisadelimtheory
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   329
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   330
\isatagtheory
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   331
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   332
\endisatagtheory
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   333
{\isafoldtheory}%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   334
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   335
\isadelimtheory
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   336
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   337
\endisadelimtheory
10171
59d6633835fa *** empty log message ***
nipkow
parents: 10159
diff changeset
   338
\end{isabellebody}%
10123
9469c039ff57 *** empty log message ***
nipkow
parents:
diff changeset
   339
%%% Local Variables:
9469c039ff57 *** empty log message ***
nipkow
parents:
diff changeset
   340
%%% mode: latex
9469c039ff57 *** empty log message ***
nipkow
parents:
diff changeset
   341
%%% TeX-master: "root"
9469c039ff57 *** empty log message ***
nipkow
parents:
diff changeset
   342
%%% End: