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