IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html
At:
split factor1 char1 1. k : {2...}
2. g : {2..k}
3. x : {2..k}
4. xx<k 5. x<xx 6. h : {2..k}
7. h = split_factor1(g; x)
8. h(xx) = 0
9. h(x) = g(x)+g(xx)+g(xx)
10. u:{2..k}. u = xu = xxh(u) = g(u)
{2..k}(g) = {2..k}(h)
By:
Split the product at x, x, and xx using
Thm*a,c,b:, f:({a..b}).
Thm* acc<b {a..b}(f) = {a..c}(f)cf(c){c+1..b}(f)