Nominal/Ex/TestMorePerm.thy
author Christian Urban <urbanc@in.tum.de>
Thu, 08 Apr 2010 11:40:13 +0200
changeset 1792 c29a139410d2
parent 1773 c0eac04ae3b4
child 1793 33f7201a0239
permissions -rw-r--r--
properly separated the example from my PhD and gave the correct alpha-equivalence relation (according to the paper)
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1595
aeed597d2043 Move examples which create more permutations out
Cezary Kaliszyk <kaliszyk@in.tum.de>
parents:
diff changeset
     1
theory TestMorePerm
1773
c0eac04ae3b4 added README and moved examples into separate directory
Christian Urban <urbanc@in.tum.de>
parents: 1595
diff changeset
     2
imports "../Parser"
1595
aeed597d2043 Move examples which create more permutations out
Cezary Kaliszyk <kaliszyk@in.tum.de>
parents:
diff changeset
     3
begin
aeed597d2043 Move examples which create more permutations out
Cezary Kaliszyk <kaliszyk@in.tum.de>
parents:
diff changeset
     4
aeed597d2043 Move examples which create more permutations out
Cezary Kaliszyk <kaliszyk@in.tum.de>
parents:
diff changeset
     5
text {* weirdo example from Peter Sewell's bestiary *}
aeed597d2043 Move examples which create more permutations out
Cezary Kaliszyk <kaliszyk@in.tum.de>
parents:
diff changeset
     6
aeed597d2043 Move examples which create more permutations out
Cezary Kaliszyk <kaliszyk@in.tum.de>
parents:
diff changeset
     7
nominal_datatype weird =
aeed597d2043 Move examples which create more permutations out
Cezary Kaliszyk <kaliszyk@in.tum.de>
parents:
diff changeset
     8
  WBind x::"name" y::"name" p1::"weird" p2::"weird" p3::"weird"
aeed597d2043 Move examples which create more permutations out
Cezary Kaliszyk <kaliszyk@in.tum.de>
parents:
diff changeset
     9
    bind x in p1, bind x in p2, bind y in p2, bind y in p3
aeed597d2043 Move examples which create more permutations out
Cezary Kaliszyk <kaliszyk@in.tum.de>
parents:
diff changeset
    10
| WV "name"
aeed597d2043 Move examples which create more permutations out
Cezary Kaliszyk <kaliszyk@in.tum.de>
parents:
diff changeset
    11
| WP "weird" "weird"
aeed597d2043 Move examples which create more permutations out
Cezary Kaliszyk <kaliszyk@in.tum.de>
parents:
diff changeset
    12
aeed597d2043 Move examples which create more permutations out
Cezary Kaliszyk <kaliszyk@in.tum.de>
parents:
diff changeset
    13
thm permute_weird_raw.simps[no_vars]
aeed597d2043 Move examples which create more permutations out
Cezary Kaliszyk <kaliszyk@in.tum.de>
parents:
diff changeset
    14
thm alpha_weird_raw.intros[no_vars]
aeed597d2043 Move examples which create more permutations out
Cezary Kaliszyk <kaliszyk@in.tum.de>
parents:
diff changeset
    15
thm fv_weird_raw.simps[no_vars]
aeed597d2043 Move examples which create more permutations out
Cezary Kaliszyk <kaliszyk@in.tum.de>
parents:
diff changeset
    16
aeed597d2043 Move examples which create more permutations out
Cezary Kaliszyk <kaliszyk@in.tum.de>
parents:
diff changeset
    17
aeed597d2043 Move examples which create more permutations out
Cezary Kaliszyk <kaliszyk@in.tum.de>
parents:
diff changeset
    18
end
aeed597d2043 Move examples which create more permutations out
Cezary Kaliszyk <kaliszyk@in.tum.de>
parents:
diff changeset
    19
aeed597d2043 Move examples which create more permutations out
Cezary Kaliszyk <kaliszyk@in.tum.de>
parents:
diff changeset
    20
aeed597d2043 Move examples which create more permutations out
Cezary Kaliszyk <kaliszyk@in.tum.de>
parents:
diff changeset
    21