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.
intros a b H'; apply eqA_trans with (y := plusA a A0); auto.
Qed.
apply eqA_trans with (y := plusA A0 (invA A0)); auto.
apply eqA_trans with (y := plusA (invA A0) A0); auto.
Qed.

Theorem invA0_comp : forall a : A, eqA a A0 -> eqA a (invA a).