hol prim rec Sections HOLlib Doc
IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html
Def simp_rec_rel
Def == fun:'ax:'af:'a'an:(fun(0) = x
Def == & (m:m<n  fun(m+1) = f(fun(m))))

is mentioned by

Thm* 'a:S, x:'af:('a'a), n:fun:('a). simp_rec_rel(fun,x,f,n)[simp_rec_exists]
Thm* 'a:S, n:f:('a'a), x:'a.
Thm* (fun:('a). simp_rec_rel(fun,x,f,n))
Thm* 
Thm* simp_rec_fun(x,f,n,0) = x
Thm* & (m:m<n  simp_rec_fun(x,f,n,m+1) = f(simp_rec_fun(x,f,n,m)))
[simp_rec_fun_lemma]
Thm* 'a:S. 
Thm* all
Thm* (x:'a. all
Thm* (x:'a(f:'a  'a. all
Thm* (x:'a. (f:'a  'a(n:hnum. exists
Thm* (x:'a. (f:'a  'a. (n:hnum. (fun:hnum  'a. simp_rec_rel
Thm* (x:'a. (f:'a  'a. (n:hnum. (fun:hnum  'a(fun
Thm* (x:'a. (f:'a  'a. (n:hnum. (fun:hnum  'a,x
Thm* (x:'a. (f:'a  'a. (n:hnum. (fun:hnum  'a,f
Thm* (x:'a. (f:'a  'a. (n:hnum. (fun:hnum  'a,n)))))
[hsimp_rec_exists]
Thm* 'a:S. 
Thm* all
Thm* (n:hnum. all
Thm* (n:hnum. (f:'a
Thm* (n:hnum. ( 'a. all
Thm* (n:hnum. ( 'a(x:'a. equal
Thm* (n:hnum. ( 'a. (x:'a(exists(fun:hnum  'a. simp_rec_rel(fun,x,f,n))
Thm* (n:hnum. ( 'a. (x:'a,and
Thm* (n:hnum. ( 'a. (x:'a. ,(equal(simp_rec_fun(x,f,n,0),x)
Thm* (n:hnum. ( 'a. (x:'a. ,,all
Thm* (n:hnum. ( 'a. (x:'a. ,,(m:hnum. implies
Thm* (n:hnum. ( 'a. (x:'a. ,,(m:hnum. (lt(m,n)
Thm* (n:hnum. ( 'a. (x:'a. ,,(m:hnum. ,equal
Thm* (n:hnum. ( 'a. (x:'a. ,,(m:hnum. ,(simp_rec_fun(x,f,n,suc(m))
Thm* (n:hnum. ( 'a. (x:'a. ,,(m:hnum. ,,f(simp_rec_fun(x,f,n,m))))))))))
[hsimp_rec_fun_lemma]
Thm* 'a:S. 
Thm* all
Thm* (x:'a. all
Thm* (x:'a(f:'a  'a. all
Thm* (x:'a. (f:'a  'a(n:hnum. equal
Thm* (x:'a. (f:'a  'a. (n:hnum. (simp_rec_fun(x,f,n)
Thm* (x:'a. (f:'a  'a. (n:hnum. ,select
Thm* (x:'a. (f:'a  'a. (n:hnum. ,(fun:hnum  'a. simp_rec_rel
Thm* (x:'a. (f:'a  'a. (n:hnum. ,(fun:hnum  'a(fun
Thm* (x:'a. (f:'a  'a. (n:hnum. ,(fun:hnum  'a,x
Thm* (x:'a. (f:'a  'a. (n:hnum. ,(fun:hnum  'a,f
Thm* (x:'a. (f:'a  'a. (n:hnum. ,(fun:hnum  'a,n))))))
[hsimp_rec_fun_wd]
Thm* 'a:S. 
Thm* all
Thm* (fun:hnum
Thm* ( 'a. all
Thm* ( 'a(x:'a. all
Thm* ( 'a. (x:'a(f:'a  'a. all
Thm* ( 'a. (x:'a. (f:'a  'a(n:hnum. equal
Thm* ( 'a. (x:'a. (f:'a  'a. (n:hnum. (simp_rec_rel(fun,x,f,n)
Thm* ( 'a. (x:'a. (f:'a  'a. (n:hnum. ,and
Thm* ( 'a. (x:'a. (f:'a  'a. (n:hnum. ,(equal(fun(0),x)
Thm* ( 'a. (x:'a. (f:'a  'a. (n:hnum. ,,all
Thm* ( 'a. (x:'a. (f:'a  'a. (n:hnum. ,,(m:hnum. implies
Thm* ( 'a. (x:'a. (f:'a  'a. (n:hnum. ,,(m:hnum. (lt(m,n)
Thm* ( 'a. (x:'a. (f:'a  'a. (n:hnum. ,,(m:hnum. ,equal
Thm* ( 'a. (x:'a. (f:'a  'a. (n:hnum. ,,(m:hnum. ,(fun(suc(m))
Thm* ( 'a. (x:'a. (f:'a  'a. (n:hnum. ,,(m:hnum. ,,f(fun(m)))))))))))
[hsimp_rec_rel_wd]
Def simp_rec_fun
Def == x:'af:'a'an:. @fun:'a. (simp_rec_rel(fun,x,f,n))
[hsimp_rec_fun]

Try larger context: HOLlib IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html

hol prim rec Sections HOLlib Doc