Goal:
    A : Type  l' : list A
  ============================
   (All2 (λ x y : A, x = y) l' l')


DEBUG:Going to execute:
PTRDEBUGTACinduction l'; constructor