intros b2 c2 b3 c3.
case (eqA_dec b3 b2); intros eqAZ; auto.
case (eqmon_dec n c3 c2); intros eqAZ1; auto.
right; red in |- *; intros H'; elim H'; intros H'0 H'1; clear H'; auto.
right; red in |- *; intros H'; elim H'; intros H'0 H'1; clear H'; auto.
Qed.

(* Specifications: *)
Theorem eqT_zerop_is_eqTerm :
forall a b : Term, eqT a b -> zeroP a -> zeroP b -> eqTerm a b.