Who Cites hsimp rec fun?
hsimp_rec_fun	Def simp_rec_fun Def == x:'a. f:'a'a. n:. @fun:'a. (simp_rec_rel(fun,x,f,n))
	Thm* 'a:S. simp_rec_fun  ('a  ('a  'a)  hnum  hnum  'a)
hsimp_rec_rel	Def simp_rec_rel Def == fun:'a. x:'a. f:'a'a. n:. (fun(0) = x Def == & (m:. m<n  fun(m+1) = f(fun(m))))
	Thm* 'a:S. simp_rec_rel  ((hnum  'a)  'a  ('a  'a)  hnum  hbool)
nat	Def  == {i:| 0i }
	Thm*   Type
	Thm*   S
bchoose	Def @x:'a. p(x) == @x:'a. p(x)
	Thm* 'a:S, p:('a). (@x:'a. p(x))  'a
tlambda	Def (x:T. b(x))(x) == b(x)
prop_to_bool	Def P == InjCase(lem(P) ; true; false)
	Thm* P:Prop. (P)
le	Def AB == B<A
	Thm* i,j:. (ij)  Prop
assert	Def b == if b True else False fi
	Thm* b:. b  Prop
choose	Def @x:T. P(x) == InjCase(lem({x:T| P(x) }); x. x, arb(T))
	Thm* T:S, P:(TType). (@x:T. P(x))  T
not	Def A == A  False
	Thm* A:Prop. (A)  Prop
arb	Def arb(T) == InjCase(lem(T); x. x, "uu")
	Thm* T:S. arb(T)  T

Syntax:

simp_rec_fun

has structure:

hsimp_rec_fun('a)

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