

lemma gt_itsub [simp]: "ALL m. gt(m,n) ==> EX u. itsub(m,n) = (S u)"

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

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

