theorem Th25:
  p just_once_values x implies p <- x = x..p
proof
  assume
A1: p just_once_values x;
  then x in rng p by Th5;
  then x..p in dom p & p.(x..p) = x by Th19,Th20;
  hence thesis by A1,Def3;
end;
