Nominal/Ex/TypeVarsTest.thy
author Christian Urban <urbanc@in.tum.de>
Sun, 07 Nov 2010 11:22:31 +0000
changeset 2557 781fbc8c0591
parent 2556 8ed62410236e
child 2571 f0252365936c
permissions -rw-r--r--
fixed locally the problem with the function package; all tests work again

theory TypeVarsTest
imports "../Nominal2" 
begin

atom_decl name
declare [[STEPS = 100]]

class s1
class s2

nominal_datatype ('a, 'b) lam =
  Var "name"
| App "('a::s1, 'b::s2) lam" "('a, 'b) lam"
| Lam x::"name" l::"('a, 'b) lam"  bind x in l

thm lam.distinct
thm lam.induct
thm lam.exhaust
thm lam.fv_defs
thm lam.bn_defs
thm lam.perm_simps
thm lam.eq_iff
thm lam.fv_bn_eqvt
thm lam.size_eqvt


end