IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html
At:
array shift wf12 1. T : Type
2. i :
3. j : {i...}
4. a : [T]Array
5. a.l = i & a.u = j 6. m :
a[++m].l = i+m & a[++m].u = j+m
By:
Analyze 4 THEN Analyze 5
THEN
Repeat (Unfolds [`array_shift`;`array_lb`;`array_ub`] 0)
THEN
Rewrite (DepthC (pi1_evalC ORELSEC pi2_evalC)) 0