Fix bad diff

This commit is contained in:
Max New 2014-02-24 00:06:06 -06:00 committed by Robby Findler
parent 3a98152f33
commit 229e0c8097
2 changed files with 2 additions and 2 deletions

View File

@ -8,7 +8,7 @@
12a11,12
> (define the-error "swaps to/from expressions when recurring in the rhs of app")
>
112a113,114
113a114,115
> [(subst (M N) x M_x)
> ((subst M_x x M) (subst N x M_x))]
116,117d117

View File

@ -110,9 +110,9 @@
[(subst (λ (x_1 τ) M) x_2 v)
(λ (x_new τ) (subst (replace M x_1 x_new) x_2 v))
(where x_new ,(variable-not-in (term (x_1 e x_2))
(term x_1)))]
[(subst (M N) x M_x)
((subst M_x x M) (subst N x M_x))]
(term x_1)))]
[(subst (c M) x M_x)
(c (subst M x M_x))]
[(subst M x M_x)