(* This code is copyrighted by its authors; it is distributed under  *)
(* the terms of the LGPL license (see LICENSE and description files) *)
Require Export CoefStructure.
Section mCoef.
Load "hCoefStructure".
Load "mCoefStructure".
Let eqA_trans := eqA_trans _ _ _ _ _ _ _ _ _ cs.
Let eqA_sym := eqA_sym _ _ _ _ _ _ _ _ _ cs.

(* Specifications: *)
Theorem eqA_A0 : forall a b : A, eqA a A0 -> eqA a b -> eqA b A0.
intros a b H H1; apply eqA_trans with (y := a); auto.