Goal:
  
  A : Type
  B : Type
  P : B → A → A → Prop
  h : ∀ b : B, Transitive (P b)
  l0 : list B
  l : list A
  l' : list A
  l'' : list A
  hl : Forall3 P l0 l l'
  hl' : Forall3 P l0 l' l''
  ============================
   (Forall3 P l0 l l'')


DEBUG:Going to execute:
induction hl in l'', hl' |- *; inv hl'; econstructor