This commit is contained in:
Thorsten Altenkirch 2023-06-22 17:25:38 +02:00
parent 7cf08241b4
commit a85b9d7ad8

View File

@ -36,7 +36,7 @@ comp ε us = ε
comp (ts , u) us = (comp ts us) , (subst-t u us)
{-
t [ suc vs ] suc (t [vs ])
t [ suc-subst vs ] suc (t [vs ])
suc-subst ts (us , t) ts us
t [ id ] t