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.
apply (lt_to_not_eq O ? H).
rewrite > H7.
rewrite < H10.
- autobatch
+ autobatch;assumption;
]
|elim c
[rewrite > sym_gcd.