proposition: Lemma H'_omega_double (k: nat) : H'_ (E0mul E0_omega (E0fin 2)) k = (4 * k + 3)%coq_nat.
proof: Proof. by rewrite /H'_ -H'_omega_double E0g2h_mulE E0g2h_omegaE E0g2h_Fin. Qed.
imports: mathcomp(all_ssreflect zify) Coq(Logic.Eqdep_dec) hydras(DecPreOrder T1 E0) hydras(Iterates Hprime L_alpha) gaia_hydras(T1Bridge GCanon GPaths)