fact: Fixpoint m (h:Hydra) : T1 := if h is node (hcons _ _ as hs) then ms hs else zero with ms (s : Hydrae) : T1 := if s is hcons h s' then phi0 (m h) o+ ms s' else zero.
imports: mathcomp(all_ssreflect zify) Coq(Logic.Eqdep_dec) hydras(DecPreOrder ON_Generic) hydras(T1 E0 Hessenberg Hydra_Theorems Hydra_Definitions Hydra_Termination Battle_length Hydra_Examples Epsilon0_Needed_Free Epsilon0_Needed_Std) T1Bridge GHessenberg GL_alpha GPrelude