elim (divides_times_to_divides ? ? ? H H9).
apply (absurd ? ? H10 H5).
apply (absurd ? ? H10 H7).
-(* rewrite > H6.
-rewrite > H8. *)
+(* REGRESSION *)
+rewrite > H6.
+rewrite > H8.
autobatch paramodulation.
unfold prime in H. elim H. assumption.
qed.