theorem
  the carrier of MPS(F) = [:the carrier of F,the carrier of F,the
  carrier of F:];
