Who Cites hanoi seq join?
hanoi_seq_join	Def  (s1 @(m) s2)(x) == if xm s1(x) else s2(x) fi
	Thm*  n:, m,a,z:, s1:({a...m}{1...n}Peg), s2:({m+1...z}{1...n}Peg). Thm*  (s1 @(m) s2)  {a...z}{1...n}Peg
le_int	Def  ij == j<i
	Thm*  i,j:. (ij)
lt_int	Def  i<j == if i<j true ; false fi
	Thm*  i,j:. (i<j)
bnot	Def  b == if b false else true fi
	Thm*  b:. b

Syntax:

s1 @(m) s2

has structure:

hanoi_seq_join(m; s1; s2; n; a; z)

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