readd missing proof

This commit is contained in:
Rígille S. B. Menezes 2021-11-25 15:00:02 -03:00
parent d4ea067d3d
commit 6728e3b020

View File

@ -0,0 +1,10 @@
List.concat.nil_right<A: Type>(l: List<A>): l == l ++ []
case l {
nil:
refl
cons:
case List.concat.nil_right<A>(l.tail) {
refl:
refl
}: Equal(List<A>, List.cons(A, l.head, l.tail), List.cons(A, l.head, self.b))
}!