fact: Fixpoint m (h:Hydra) : T1 := match h with head => T1.zero | node hs => ms hs end with ms (s:Hydrae) : T1 := match s with hnil => T1.zero | hcons h s' => T1.phi0 (m h) o+ ms s' end.
imports: hydras(E0 Hessenberg)