Thm* 'a:S, x:'a, f:('a    'a).
Thm* prim_rec(x,f,0) = x & ( m: . prim_rec(x,f,m+1) = f(prim_rec(x,f,m),m)) | [prim_rec_thm] |
Thm* 'a:S.
Thm* all
Thm* ( x:'a. all
Thm* ( x:'a. ( f:'a  hnum  'a. and
Thm* ( x:'a. ( f:'a  hnum  'a. (equal(prim_rec(x,f,0),x)
Thm* ( x:'a. ( f:'a  hnum  'a. ,all
Thm* ( x:'a. ( f:'a  hnum  'a. ,( m:hnum. equal
Thm* ( x:'a. ( f:'a  hnum  'a. ,( m:hnum. (prim_rec(x,f,suc(m))
Thm* ( x:'a. ( f:'a  hnum  'a. ,( m:hnum. ,f(prim_rec(x,f,m),m)))))) | [hprim_rec_thm] |