At:
hd is member lemma121112
1.
T: Type
2.
eq: {T}
3.
eq TT
4.
x:T. eq(x,x)
5.
x,y:T. eq(x,y) eq(y,x)
6.
x,y,z:T. eq(x,y) eq(y,z) eq(x,z)
7.
L: T List
8.
u: T
9.
v: T List
10.
||v||1 hd(v)(eq) v
11.
||u.v||1
12.
eq(u,u) = false
4. x,y:T. eq(x,y) eq(y,x) 5. x,y,z:T. eq(x,y) eq(y,z) eq(x,z) 6. L: T List 7. u: T 8. v: T List 9. ||v||1 hd(v)(eq) v 10. ||u.v||1 11. eq(u,u) = false 12. eq(u,u) u(eq) v