Nominal/Ex/SingleLet.thy
changeset 2322 24de7e548094
parent 2320 d835a2771608
child 2330 8728f7990f6d
equal deleted inserted replaced
2321:e9b0728061a8 2322:24de7e548094
     2 imports "../NewParser"
     2 imports "../NewParser"
     3 begin
     3 begin
     4 
     4 
     5 atom_decl name
     5 atom_decl name
     6 
     6 
     7 declare [[STEPS = 13]]
     7 declare [[STEPS = 14]]
     8 
     8 
     9 nominal_datatype trm =
     9 nominal_datatype trm =
    10   Var "name"
    10   Var "name"
    11 | App "trm" "trm"
    11 | App "trm" "trm"
    12 | Lam x::"name" t::"trm"  bind_set x in t
    12 | Lam x::"name" t::"trm"  bind_set x in t
    18   As "name" x::"name" t::"trm" bind x in t
    18   As "name" x::"name" t::"trm" bind x in t
    19 binder
    19 binder
    20   bn::"assg \<Rightarrow> atom set"
    20   bn::"assg \<Rightarrow> atom set"
    21 where
    21 where
    22   "bn (As x y t) = {atom x}"
    22   "bn (As x y t) = {atom x}"
    23 
       
    24 
    23 
    25 thm trm_assg.fv
    24 thm trm_assg.fv
    26 thm trm_assg.supp
    25 thm trm_assg.supp
    27 thm trm_assg.eq_iff
    26 thm trm_assg.eq_iff
    28 thm trm_assg.bn
    27 thm trm_assg.bn