Goal:
  
  A : Type
  B : Type
  p : B → bool
  f : nat → B
  l : list A
  Hp : ∀ i : nat, i < #|l| → p (f i)
  ============================
   (is_true (forallb p (mapi (λ (i : nat) (_ : A), f i) l)))


DEBUG:Going to execute:
<coq-core.plugins.ssreflect::ssrrewrite@0> $1 $2