Goal:
    A : Type  n : nat  P : A → Type  x : A
  ============================
   (P x → All P (repeat x n))


DEBUG:Going to execute:
induction n; cbn; econstructor