Goal:
  
  ============================
   (∀ (A : Type) (l : list A) (a : A), rev (a :: l) = rev l ++ [a])


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