Prove simple list head

This will be the last example done in simple-untyped. I will start proving examples in KernelC.
This is correct, but I would prefer a rule similar to the one you wrote for sum, like ```head(X:Val) => Y:Int```.