IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html
At:
comp nat ind tp11111121 1. P : Prop
2. i:. (j:. j<iP(j)) P(i)
3. zz : 4. 0<zz 5. i:. i<zz-1 P(i)
6. i : 7. i<zz P(i)
By:
p.
let i var_of_hyp -2 p ,
let j get_distinct_var i p ,
let Pi concl p ,
let Pj subst [i,(mvt j)] Pi in
Assert
(mk_all_term j (mk_implies_term (mk_less_than_term (mvt j) (mvt i)) Pj))
p