Goal:
    n : t  m : t  l : list t  H : fold_left max l n = m
  ============================
   (n = m \/ In m l)


DEBUG:Going to execute:
revert n H; induction l