Nominal/Ex/TypeVarsTest.thy
author Christian Urban <urbanc@in.tum.de>
Thu, 14 Oct 2010 04:14:22 +0100
changeset 2524 693562f03eee
parent 2454 9ffee4eb1ae1
child 2556 8ed62410236e
permissions -rw-r--r--
major reorganisation of fset (renamed fset_to_set to fset, changed the definition of list_eq and fcard_raw)

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