fact: Fixpoint iota (a : T1) : Hydra := match a with | zero => head | cons c n b => node (hcons_mult (iota c) (S n) (iotas b)) end with iotas (a : T1) : Hydrae := match a with | zero => hnil | cons a0 n b => hcons_mult (iota a0) (S n) (iotas b) end.
imports: Coq(Relation_Operators) hydras(Hydra_Lemmas Epsilon0 Canon Paths )