Goal:
  
  A : Type
  P : nat → A → A → Type
  i : nat
  l : list A
  l' : list A
  tl : list A
  ============================
   (OnOne2i P i l l' → OnOne2i P i (l ++ tl) (l' ++ tl))


DEBUG:Going to execute:
induction 1; constructor