fact: Definition next_step (f : forall n h, round_spec h n) n h := match f n h with inright _ => head | inleft (exist _ h' _) => h' end.
imports: Coq(Arith Lia List Relation_Operators Operators_Properties Peano_dec Wellfounded.Inverse_Image Wellfounded.Inclusion) hydras(More_Arith Epsilon0 Hessenberg Simple_LexProd MoreLibHyps)