IF YOU CAN SEE THIS go to http://www.cs.cornell.edu/Info/People/sfa/Nuprl/Shared/Xindentation_hack_doc.html
At:
l exists cons T:Type, P:(TProp), x:T, L:T List. (y[x / L].P(y)) P(x) (yL.P(y))
By:
Unfold `l_exists` 0
THEN
RWO Thm*l:T List, a,x:T. (x [a / l]) x = a (xl) 0
THEN
ExRepD