Goal:
    A : Type  l : list A  f : A → A
  ============================
   (All (λ x : A, f x = x) l → map f l = l)


DEBUG:Going to execute:
induction 1; simpl