Origin Definitions Sections HOLlib Doc
IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html
hol_arithmetic_5
Nuprl Section: hol_arithmetic_5

Selected Objects
THMnot_exp_0 m,n:exp(n+1;m) = 0
THMzero_less_exp m,n:. 0<exp(n+1;m)
THModd_or_even n:m:n = (0+1+1)m    n = (0+1+1)m+1  
THMless_exp_suc_mono n,m:. exp(m+1+1;n)<exp(m+1+1;n+1)
THMless_less_cases m,n:m = n  m<n  n<m
THMgreater_eq n,m:. True
THMless_eq_cases m,n:mn  nm
THMless_equal_add m,n:mn  (x:n = m+x  )
THMless_eq_exists m,n:mn  (x:n = m+x  )
THMnot_less_equal m,n:mn  n<m
THMless_eq_0 n:n n = 0  
THMmult_eq_0 m,n:mn = 0    m = 0    n = 0  
THMless_mult2 m,n:. 0<m & 0<n  0<mn
THMless_eq_less_trans m,n,x:mn & n<x  m<x
THMless_less_eq_trans m,n,x:m<n & nx  m<x
THMfact_less n:. 0<fact(n)
THMeven_odd n:. even(n odd(n)
THModd_even n:. odd(n even(n)
THMeven_or_odd n:. even(n odd(n)
THMeven_and_odd n:(even(n) & odd(n))
THMeven_add m,n:. even(m+n (even(m even(n))
THMeven_mult m,n:. even(mn even(m even(n)
THModd_add m,n:. odd(m+n (odd(m odd(n))
THModd_mult m,n:. odd(mn odd(m) & odd(n)
THMeven_double n:. even(2n)
THModd_double n:. odd(2n+1)
THMeven_odd_exists n:. (even(n (m:n = 2m  )) & (odd(n (m:n = 2m+1  ))
THMeven_exists n:. even(n (m:n = 2m  )
THModd_exists n:. odd(n (m:n = 2m+1  )
THMeq_less_eq m,n:m = n  mn & nm
THMadd_mono_less_eq m,n,x:m+nm+x  nx
THMnot_suc_less_eq_0 n:n+10
THMnot_leq m,n:mn  n+1m
THMnot_num_eq m,n:m = n  m+1n  n+1m
THMnot_greater m,n:n<m  mn
THMnot_greater_eq m,n:nm  m+1n
THMsuc_one_add n:n+1 = 1+n  
THMsuc_add_sym m,n:m+n+1 = n+1+m  
THMnot_suc_add_less_eq m,n:m+n+1m
THMmult_less_eq_suc m,n,x:mn  (x+1)m(x+1)n
THMsub_left_add m,n,x:m+nnsub(n;x) = if nx then m else nnsub(m+n;x) fi 
THMsub_right_add m,n,x:. nnsub(m;n)+x = if mn then x else nnsub(m+x;n) fi 
THMsub_left_sub m,n,x:. nnsub(m;nnsub(n;x)) = if nx then m else nnsub(m+x;n) fi 
THMsub_right_sub m,n,x:. nnsub(nnsub(m;n);x) = nnsub(m;n+x)
THMsub_left_suc m,n:. nnsub(m;n)+1 = if mn then 0+1 else nnsub(m+1;n) fi 
THMsub_left_less_eq m,n,x:mnnsub(n;x m+xn  m0
THMsub_right_less_eq m,n,x:. nnsub(m;n)x  mn+x
THMsub_left_less m,n,x:m<nnsub(n;x m+x<n
THMsub_right_less m,n,x:. nnsub(m;n)<x  m<n+x & 0<x
THMsub_left_greater_eq m,n,x:. nnsub(n;x)m  nm+x
THMsub_right_greater_eq m,n,x:xnnsub(m;n n+xm  x0
THMsub_left_greater m,n,x:. nnsub(n;x)<m  n<m+x & 0<m
THMsub_right_greater m,n,x:x<nnsub(m;n n+x<m
THMsub_left_eq m,n,x:m = nnsub(n;x m+x = n    m0 & nx
THMsub_right_eq m,n,x:. nnsub(m;n) = x  m = n+x    mn & x0
IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html

Origin Definitions Sections HOLlib Doc