Goal:
  
  A : Type
  B : Type
  f : A → B
  aux := fix aux (l : list A) (acc : list B) {struct l} : list B :=
           match l with
           | [] => acc
           | x :: l0 => aux l0 (f x :: acc)
           end : list A → list B → list B
  h : ∀ (l : list A) (acc : list B), #|aux l acc| = #|acc| + #|l|
  ============================
   (∀ l : list A, #|aux l []| = #|l|)


DEBUG:Going to execute:
<coq-core.plugins.ltac::intro@1> $1