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
  h : forall n : nat, P (max - n)
  n : nat
  l : (Z.of_nat max <= Z.of_nat n)%Z
  cstr : (0 <= Z.of_nat n)%Z
  cstr0 : (0 <= Z.of_nat max)%Z
  ============================
   (Z.of_nat n >= Z.of_nat max)%Z


DEBUG:Going to execute:
idtac