Goal:
    A : Type  H : ReflectEq A  l1 : list A  l2 : list A  l : list A
  ============================
   (rev (rev l2) = rev (rev l1 ++ l) → is_suffix l1 l2)


DEBUG:Going to execute:
rewrite rev_app 2!rev_invol
DEBUG LTAC Evaluated term: (f_equal rev)
DEBUG LTAC Evaluated term: (f_equal rev _view_subject_)