proposition: Lemma hmultA : associative T1mul.
proof: Proof. move => a b c. by rewrite -(g2h_h2gK a) -(g2h_h2gK b) -(g2h_h2gK c) -!g2h_multE mulA. Qed.
imports: mathcomp(all_ssreflect zify) gaia_hydras(T1Bridge ) hydras(T1) gaia(ssete9)