theorem
  fire (C^<*e*>) = (fire e)*(fire C)
proof
  fire (C^<*e*>) = (fire <*e*>)*(fire C) by Th27;
  hence thesis by Th23;
end;
