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


DEBUG:Going to execute:
induction hl in hl' |- *; inv hl'; constructor