Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
adding example for case expressions
authorbulwahn
Thu, 30 Sep 2010 15:37:12 +0200
changeset 39803 a8178a7b7b51
parent 39802 7cadad6a18cc
child 39804 b1cec1fcd95f
adding example for case expressions
src/HOL/Predicate_Compile_Examples/Predicate_Compile_Tests.thy file | annotate | diff | comparison | revisions 
--- a/src/HOL/Predicate_Compile_Examples/Predicate_Compile_Tests.thy	Thu Sep 30 15:37:11 2010 +0200
+++ b/src/HOL/Predicate_Compile_Examples/Predicate_Compile_Tests.thy	Thu Sep 30 15:37:12 2010 +0200
@@ -1538,5 +1538,11 @@
 
 code_pred implies_itself .
 
+text {* Case expressions *}
+
+definition
+  "map_pairs xs ys = (map (%((a, b), c). (a, b, c)) xs = ys)"
+
+code_pred [inductify] map_pairs .
 
 end
isabelle