Goal:
  
  max : nat
  P : nat -> Prop
  hmax : forall n : nat, n >= max -> P n
  hS : forall n : nat, n < max -> P (S n) -> P n
  n : nat
  IHn : P (max - n)
  n0 : ~ max <= n
  ============================
   (S (max - S n) = max - n)


DEBUG:Going to execute:
lia