At:
hd is member lemma12111
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
if eq(u,u) true else u(eq) v fi
By:
IfThenElseCases 0
Generated subgoals:
true
eq) v
T
x:T. eq(x,x)
eq(y,x)
1 
true
