theorem Th37:
  dom ((repeat(Relax(n)*findmin(n))).i.f) = dom ((repeat(Relax(n)*
  findmin(n))).(i+1).f)
proof
  set R=Relax(n), M=findmin(n), ff=(repeat (R*M)).i.f;
  thus dom ((repeat (R*M)).(i+1).f) = dom (R.(M.ff)) by Th22
    .= dom (M.ff) by Th35
    .= dom ff by Th33;
end;
