function P (X, Y, Z : in Integer) return Integer is

   function Id (X : Integer) return Integer
     with Post => Id'Result - X = 0;

   function Id (X : Integer) return Integer is
   begin
      return X;
   end Id;

begin
   if not( (X >= 10) and then
     Y > 0 and then
     Z < 0 and then
     (Y + Z <= 100) and then
     (X <= 1000) ) then
      pragma Assert (False);
   end if;

   pragma Assert_And_Cut (X in 10 .. 1000 and Y > 0 and Z < 0 and Y + Z <= 1000);

   for K in 1 .. 10 loop
      pragma Loop_Invariant (X >= K);
      if Y > K then
         exit;
      end if;
      exit when Z > K;
   end loop;

   pragma Assert_And_Cut (X in 10 .. 1000 and Y > 0 and Z < 0 and Y + Z <= 1000);

   for K in 1 .. 10 loop
      pragma Loop_Invariant (X >= K);
      if Y > K then
         if Z > K then
            exit when Y > Z;
         end if;
      end if;
   end loop;

   pragma Assert_And_Cut (X in 10 .. 1000 and Y > 0 and Z < 0 and Y + Z <= 1000);

   Outter : for H in 1 .. 10 loop
      for K in 1 .. 10 loop
         pragma Loop_Invariant (X >= K);
         if Y > K then
            if Z > K then
               exit Outter when Y > Z;
            end if;
         end if;
      end loop;
   end loop Outter;

   return X + (Y + Z);
end;
