theorem Th117:
  dom(a followed_by b) = NAT
proof
  thus dom(a followed_by b) = dom((NAT --> b) +* (0,a))
    .= dom(NAT --> b) by Th29
    .= NAT;
end;
