fact: Fixpoint iterate {A:Type}(f : A -> A) (n: nat)(x:A) := match n with | 0 => x | S p => f (iterate f p x) end.
imports: Coq(RelationClasses Relations Arith Max Lia) hydras(Exp2) LibHyps(LibHyps) hydras(MoreLibHyps)