1. T : Type
2. T List
3. u : T
4. v : T List
5. x:T. (x  v)  (l1,l2:T List. v = (l1 @ [x / l2]))
6. x : T
7. u1 : T
8. v1 : T List
9. l2 : T List
10. [u / v] = [u1 / (v1 @ [x / l2])]
  x = u  (x  v1 @ [x / l2])

By:	(RWW Thm* x:T, l1,l2:T List. (x  l1 @ l2)  (x  l1)  (x  l2) 0) THEN (RWW Thm* l:T List, a,x:T. (x  [a / l])  x = a  (x  l) 0)

1

x = u  (x  v1)  x = x  (x  l2)

1 step

About: IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html