proposition: Lemma L_omega : forall k, L_ E0_omega k = S (2 * k)%nat.
proof: Proof. move => k; by rewrite /L_ E0g2h_omegaE L_alpha.L_omega. Qed.
imports: mathcomp(all_ssreflect zify) Coq(Logic.Eqdep_dec) hydras(DecPreOrder) hydras(T1 E0) hydras(L_alpha) gaia_hydras(T1Bridge GCanon GPaths GHprime)