--- a/Nominal/Ex/LF.thy Mon May 10 18:32:50 2010 +0200
+++ b/Nominal/Ex/LF.thy Mon May 10 17:55:54 2010 +0100
@@ -7,16 +7,16 @@
nominal_datatype kind =
Type
- | KPi "ty" n::"name" k::"kind" bind n in k
+ | KPi "ty" n::"name" k::"kind" bind_set n in k
and ty =
TConst "ident"
| TApp "ty" "trm"
- | TPi "ty" n::"name" t::"ty" bind n in t
+ | TPi "ty" n::"name" t::"ty" bind_set n in t
and trm =
Const "ident"
| Var "name"
| App "trm" "trm"
- | Lam "ty" n::"name" t::"trm" bind n in t
+ | Lam "ty" n::"name" t::"trm" bind_set n in t
thm kind_ty_trm.supp