added test case for predicate arguments in higher-order argument position
authorbulwahn
Wed Sep 29 10:33:15 2010 +0200 (2010-09-29)
changeset 3978630c077288dfe
parent 39785 05c4e9ecf5f6
child 39787 a44f6b11cdc4
added test case for predicate arguments in higher-order argument position
src/HOL/Predicate_Compile_Examples/Predicate_Compile_Tests.thy
     1.1 --- a/src/HOL/Predicate_Compile_Examples/Predicate_Compile_Tests.thy	Wed Sep 29 10:33:15 2010 +0200
     1.2 +++ b/src/HOL/Predicate_Compile_Examples/Predicate_Compile_Tests.thy	Wed Sep 29 10:33:15 2010 +0200
     1.3 @@ -1511,6 +1511,25 @@
     1.4  
     1.5  thm test_uninterpreted_relation.equation
     1.6  
     1.7 +inductive list_ex'
     1.8 +where
     1.9 +  "P x ==> list_ex' P (x#xs)"
    1.10 +| "list_ex' P xs ==> list_ex' P (x#xs)"
    1.11 +
    1.12 +code_pred list_ex' .
    1.13 +
    1.14 +inductive test_uninterpreted_relation2 :: "('a => bool) => 'a list => bool"
    1.15 +where
    1.16 +  "list_ex r xs ==> test_uninterpreted_relation2 r xs"
    1.17 +| "list_ex' r xs ==> test_uninterpreted_relation2 r xs"
    1.18 +
    1.19 +text {* Proof procedure cannot handle this situation yet. *}
    1.20 +
    1.21 +code_pred (modes: i => i => bool) [skip_proof] test_uninterpreted_relation2 .
    1.22 +
    1.23 +thm test_uninterpreted_relation2.equation
    1.24 +
    1.25 +
    1.26  text {* Trivial predicate *}
    1.27  
    1.28  inductive implies_itself :: "'a => bool"