# HG changeset patch
# User bulwahn
# Date 1285853832 -7200
# Node ID a8178a7b7b51e5f5e079657cf9631d0bc2180c3a
# Parent  7cadad6a18cc713251039cd967fb59fb50016ade
adding example for case expressions

diff -r 7cadad6a18cc -r a8178a7b7b51 src/HOL/Predicate_Compile_Examples/Predicate_Compile_Tests.thy
--- 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