theorem Th31:
  X is_<=_than p9 iff X is_less_than %p9 proof (%p9)% = %p9;
  hence thesis by Th30;
end;
