IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html
At:
rel star closure2 1. T : Type
2. R : TTProp
3. R2 : TTProp
4. Trans(T)(R2(_1,_2))
5. x,y:T. (xRy) (xR2y)
6. n : 7. 0<n 8. x,y:T. (xR^n-1 y) (xR2y) x = y 9. x : T 10. y : T 11. xR^ny (xR2y) x = y
By:
MoveToConcl -1 THEN RecUnfold `rel_exp` 0 THEN SplitOnConclITE THEN Reduce 0
THEN
ExRepD