changeset 2709 | 241fffc25284 |
parent 1474 | 3f7d67927fe2 |
child 3837 | d7f033c74b38 |
--- a/src/CCL/Term.thy Mon Mar 03 13:50:40 1997 +0100 +++ b/src/CCL/Term.thy Mon Mar 03 13:53:29 1997 +0100 @@ -91,6 +91,8 @@ (** Quantifier translations: variable binding **) +(* FIXME should use Syntax.mark_bound(T), Syntax.variant_abs' *) + fun let_tr [Free(id,T),a,b] = Const("let",dummyT) $ a $ absfree(id,T,b); fun let_tr' [a,Abs(id,T,b)] = let val (id',b') = variant_abs(id,T,b)