Some definitions of interest.
sigma_to_union	Def  sigma_to_union(e) == e/i,u. if i=0 inl(u) else inr(u) fi
	Thm*  A,B:Type. sigma_to_union  (i:2if i=0 A else B fi)(A+B)
eq_int	Def  i=j == if i=j true ; false fi
	Thm*  i,j:. (i=j)
int_seg	Def  {i..j} == {k:| i  k < j }
	Thm*  m,n:. {m..n}  Type
inv_funs_2	Def  InvFuns(A;B;f;g) == (x:A. g(f(x)) = x) & (y:B. f(g(y)) = y)
	Thm*  f:(AB), g:(BA). InvFuns(A;B;f;g)  Prop
union_to_sigma	Def  union_to_sigma(e) == InjCase(e; a. <0,a>; b. <1,b>)
	Thm*  A,B:Type. union_to_sigma  (A+B)(i:2if i=0 A else B fi)

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