(35steps total) PrintForm Definitions mb nat Sections MarkB generic Doc
IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html
At: increasing split 2 2 1

1. m : 
2. 0<m
3. P:((m-1)Prop). 
3. (i:(m-1). Dec(P(i)))
3. 
3. (n,k:f:(n(m-1)), g:(k(m-1)).
3. (increasing(f;n)
3. (& increasing(g;k)
3. (& (i:nP(f(i)))
3. (& (j:kP(g(j)))
3. (& (i:(m-1). (j:ni = f(j))  (j:ki = g(j))))
4. P : mProp
5. i:m. Dec(P(i))
6. n : 
7. k : 
8. f : n(m-1)
9. g : k(m-1)
10. increasing(f;n)
11. increasing(g;k)
12. i:nP(f(i))
13. j:kP(g(j))
14. i:(m-1). (j:ni = f(j))  (j:ki = g(j))
15. P(m-1)
  n,k:f:(nm), g:(km).
  increasing(f;n)
  & increasing(g;k)
  & (i:nP(f(i)))
  & (j:kP(g(j)))
  & (i:m. (j:ni = f(j))  (j:ki = g(j)))


By: InstConcl [n+1;k;f[n:=m-1];g] THENA Try (Complete Auto)


Generated subgoals:

1   increasing(f[n:=m-1];n+1)
  & increasing(g;k)
  & (i:(n+1). P(f[n:=m-1](i)))
  & (j:kP(g(j)))
  & (i:m. (j:(n+1). i = f[n:=m-1](j))  (j:ki = g(j)))

14 steps
2 16. g1 : km
  (increasing(f[n:=m-1];n+1)
  (& increasing(g1;k)
  (& (i:(n+1). P(f[n:=m-1](i)))
  (& (j:kP(g1(j)))
  (& (i:m. (j:(n+1). i = f[n:=m-1](j))  (j:ki = g1(j))))
   Prop

1 step

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

(35steps total) PrintForm Definitions mb nat Sections MarkB generic Doc