Mercurial Mercurial > repos > isabelle / annotate
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/Doc/Tutorial/Misc/prime_def.thy
author wenzelm
Tue, 16 Jan 2018 09:30:00 +0100
changeset 67443 3abf6a722518
parent 67406 23307fd33906
child 67613 ce654b0e6d69
permissions -rw-r--r--
standardized towards new-style formal comments: isabelle update_comments;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
8745
13b32661dde4 I wonder which files i forgot.
nipkow
parents:
diff changeset 
     1
 
(*<*)
58860
fee7cfa69c50 eliminated spurious semicolons;
wenzelm
parents: 48985
diff changeset 
     2
 
theory prime_def imports Main begin
11457
279da0358aa9 additional revisions to chapters 1, 2
paulson
parents: 11456
diff changeset 
     3
 
consts prime :: "nat \<Rightarrow> bool"
8745
13b32661dde4 I wonder which files i forgot.
nipkow
parents:
diff changeset 
     4
 
(*>*)
67406
23307fd33906 isabelle update_cartouches -c;
wenzelm
parents: 58860
diff changeset 
     5
 
text\<open>
9844
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset 
     6
 
\begin{warn}
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset 
     7
 
A common mistake when writing definitions is to introduce extra free
11456
7eb63f63e6c6 revisions and indexing
paulson
parents: 9844
diff changeset 
     8
 
variables on the right-hand side.  Consider the following, flawed definition
7eb63f63e6c6 revisions and indexing
paulson
parents: 9844
diff changeset 
     9
 
(where @{text"dvd"} means ``divides''):
9844
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset 
    10
 
@{term[display,quotes]"prime(p) == 1 < p & (m dvd p --> (m=1 | m=p))"}
11457
279da0358aa9 additional revisions to chapters 1, 2
paulson
parents: 11456
diff changeset 
    11
 
\par\noindent\hangindent=0pt
9792
bbefb6ce5cb2 *** empty log message ***
nipkow
parents: 9458
diff changeset 
    12
 
Isabelle rejects this ``definition'' because of the extra @{term"m"} on the
11456
7eb63f63e6c6 revisions and indexing
paulson
parents: 9844
diff changeset 
    13
 
right-hand side, which would introduce an inconsistency (why?).
7eb63f63e6c6 revisions and indexing
paulson
parents: 9844
diff changeset 
    14
 
The correct version is
9844
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset 
    15
 
@{term[display,quotes]"prime(p) == 1 < p & (!m. m dvd p --> (m=1 | m=p))"}
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset 
    16
 
\end{warn}
67406
23307fd33906 isabelle update_cartouches -c;
wenzelm
parents: 58860
diff changeset 
    17
 
\<close>
8745
13b32661dde4 I wonder which files i forgot.
nipkow
parents:
diff changeset 
    18
 
(*<*)
13b32661dde4 I wonder which files i forgot.
nipkow
parents:
diff changeset 
    19
 
end
13b32661dde4 I wonder which files i forgot.
nipkow
parents:
diff changeset 
    20
 
(*>*)
isabelle