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.
doc-src/IsarAdvanced/Codegen/Thy/examples/arbitrary.ML
author berghofe
Wed, 07 May 2008 10:56:52 +0200
changeset 26803 0af0f674845d
parent 23850 f1434532a562
permissions -rw-r--r--
- Explicitely passed pred_subset_eq and pred_equals_eq as an argument to the to_set and to_pred attributes, because it is no longer applied automatically - Manually applied predicate1I in proof of accp_subset, because it is no longer part of the claset - Replaced psubset_def by less_le
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
21190
08ec81dfc7fb (continued)
haftmann
parents:
diff changeset 
     1
 
structure Codegen =
08ec81dfc7fb (continued)
haftmann
parents:
diff changeset 
     2
 
struct
08ec81dfc7fb (continued)
haftmann
parents:
diff changeset 
     3
 












08ec81dfc7fb
(continued)



haftmann


parents: 

diff
changeset




     4


val arbitrary_option : 'a option = NONE;













08ec81dfc7fb
(continued)



haftmann


parents: 

diff
changeset




     5









21994






dfa5133dbe73
updated manual



haftmann


parents: 
21993

diff
changeset




     6


fun dummy_option [] = arbitrary_option













dfa5133dbe73
updated manual



haftmann


parents: 
21993

diff
changeset




     7


  | dummy_option (x :: xs) = SOME x;








21190






08ec81dfc7fb
(continued)



haftmann


parents: 

diff
changeset




     8














08ec81dfc7fb
(continued)



haftmann


parents: 

diff
changeset




     9


end; (*struct Codegen*)















isabelle