mirror of
https://github.com/Kindelia/Kind2.git
synced 2024-11-05 07:05:32 +03:00
readd missing proof
This commit is contained in:
parent
d4ea067d3d
commit
6728e3b020
10
base/List/concat/nil_right.kind
Normal file
10
base/List/concat/nil_right.kind
Normal 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))
|
||||
}!
|
Loading…
Reference in New Issue
Block a user