(motive : Lean.Expr → Sort u_1) →
  (__discr : Lean.Expr) →
    ((fn : Lean.Expr) →
        (p : Q(ℕ)) → (fp : Q(Fact (Nat.Prime «$p»))) → (a : Q(ℤ)) → motive (((fn.app p).app fp).app a)) →
      ((x : Lean.Expr) → motive x) → motive __discr