lemma itsub_pred [simp]: "ALL m. gt(m,n) ==> itsub (m, (S n)) = pred (itsub(m,n))"; 

