Remark WhoCites Definitions HanoiTowers Sections NuprlLIB Doc
IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html
(deepening a Hanoi sequence by adding larger disks to each of its individual stacking situations the same way)

Who Cites hanoi seq deepen?
hanoi_seq_deepenDef  (s(?) {to n h {to n'})(x) == s(x) {to n h {to n'}
Thm*  a,z:n:s:({a...z}{1...n}Peg), n':.
Thm*  nn'
Thm*  
Thm*  (h:({n+1...n'}Peg). (s(?) {to n h {to n'})  {a...z}{1...n'}Peg)
hanoi_extendDef  (f {to n f' {to n'})(i) == if in f(i) else f'(i) fi
Thm*  n:f:({1...n}Peg), n':.
Thm*  nn'  (f':({n+1...n'}Peg). (f {to n f' {to n'})  {1...n'}Peg)
le_intDef  ij == j<i
Thm*  i,j:. (ij 
lt_intDef  i<j == if i<j true ; false fi
Thm*  i,j:. (i<j 
bnotDef  b == if b false else true fi
Thm*  b:b  

Syntax:s(?) {to n h {to n'} has structure: hanoi_seq_deepen(nn'sh)

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

Remark WhoCites Definitions HanoiTowers Sections NuprlLIB Doc