Section mCoef.
Load "hCoefStructure".
Load "mCoefStructure".
Let eqA_trans := eqA_trans _ _ _ _ _ _ _ _ _ cs.
Let eqA_sym := eqA_sym _ _ _ _ _ _ _ _ _ cs.
intros a b H H1; apply eqA_trans with (y := a); auto.
Qed.
intros a b c H'; auto.
Qed.
intros a b c H'; auto.
Qed.
intros a b H'; apply eqA_trans with (y := plusA A0 b); auto.
apply eqA_trans with (y := plusA b A0); auto.
Qed.

Theorem eqA0_right : forall a b : A, eqA b A0 -> eqA a (plusA a b).