1. T : Type
2. R : TTProp
3. n : 
4. 0<n
5. x,y:T. (x R^n-1^-1 y)  (x R^-1^n-1 y)
6. x : T
7. y : T
8. n = 0
9. z : T
10. y R z
11. z R^n-1 x
12. x R^-1^n-1 z
  x R^-1^n y

By:	Subst' (n = n-1+1) 0 THEN Using [`y',z] (BackThru (Thm* R:(TTProp), m,n:, x,y,z:T. (x R^m y)  (y R^n z)  (x R^m+n z))

1

z R^-1^1 y

1 step

About: IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html