IF YOU CAN SEE THIS go to http://www.cs.cornell.edu/Info/People/sfa/Nuprl/Shared/Xindentation_hack_doc.html
At:
ma-state-subtype ds,ds':ltg:Id fp-> Type. dsds' (State(ds') r State(ds))
By:
Auto THEN Unfold `ma-state` 0 THEN Reduce 0 THEN UseSubtypeRelLemmas