proposition: Lemma LF1 i: F_ (E0fin 1) i = ((2 * i) .+1)%N.
proof: Proof. replace (F_ (E0fin 1) i) with (F_alpha.F_ (hE0fin 1) i). - rewrite LF1 => //. - rewrite /F_; congr hF_; by apply E0_eq_intro . Qed.
imports: mathcomp(all_ssreflect zify) Coq(Logic.Eqdep_dec Arith) hydras(DecPreOrder) hydras(T1 E0) hydras(primRec) hydras(F_alpha F_omega) gaia_hydras(T1Bridge GCanon GHprime)