theorem
  len p = len the_arity_of c implies (c-trm p)at f = c-trm p at f by Def60;
