Definition Bessel1 (n : nat) (x : R) :=
(x/2)^n * PSeries (Bessel1_seq n) ((x/2)^2).

Lemma Bessel1_equality_3 (n : nat) (x : R) : (0 < n)%nat ->
Bessel1 (S n)%nat x - Bessel1 (pred n)%nat x = - 2 * Derive (Bessel1 n) x.