Proved prefixS-lemma in FreshId (2)

This commit is contained in:
wadler 2018-05-16 19:23:47 -03:00
parent 6e17e69936
commit f467c096bf

View file

@ -118,7 +118,7 @@ module IdBase
prefixS-lemma x
rewrite toList∘fromList ((reverse ∘ dropWhile P? ∘ reverse ∘ toList) x)
| reverse-involutive ((dropWhile P? ∘ reverse ∘ toList) x)
= {!dropWhile-lemma P? ((reverse ∘ toList) x) !}
= dropWhile-lemma P? ((reverse ∘ toList) x)
prefix : Id → Prefix
prefix x = ⟨ prefixS x , prefixS-lemma x ⟩