This commit is contained in:
Thorsten Altenkirch
2023-06-22 17:25:38 +02:00
parent 7cf08241b4
commit a85b9d7ad8
+1 -1
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