fact: Definition classic_battle f t h := let fix go n t h := match h, t with head, _ => h | _, 0 => h | _, S t' => go (S n) t' (next_step f n h) end in go 1 t h.
imports: Coq(Arith Lia List Relation_Operators Operators_Properties Peano_dec Wellfounded.Inverse_Image Wellfounded.Inclusion) hydras(More_Arith Epsilon0 Hessenberg Simple_LexProd MoreLibHyps)