IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html
At:
comp nat ind tp1112 1. P : Prop
2. i:. (j:. j<iP(j)) P(i)
3. i : 4. zz,i:. i<zzP(i)
P(i)
By:
p.
let i mvt (var_of_hyp -2 p) ,
let ip1 mk_add_term i 1 in
((DTerm ip1 -1) THEN (DTerm i -1)) p