1. m : 
2. k : 
3. f : (m+1)(k+1)
4. Inj((m+1); (k+1); f)
  Inj(m; k; Replace value k by f(m) in f)

1

5. a1 : m 6. a2 : m 7. (Replace value k by f(m) in f)(a1) = (Replace value k by f(m) in f)(a2)   a1 = a2

8 steps

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