theorem
  i in dom p & p+*(i,0) in dom primrec(f1,f2,i) implies
  primrec(f1,f2,i).(p+*(i,0)) = f1.Del(p,i) by Lm6;
