Relation sumo#wealth_fn ()
  type:  unary_function_type  class of functions requiring a single argument; if R is functional, then if R(x -> y) and P(x -> z) then y=z