proposition: Lemma S0_remove_r_i : forall i l, S0 (add_head_r_plus l (S i)) (add_head_r_plus l i).
proof: Proof. simpl; intros; apply S0_remove_r. Qed.
imports: Coq(Arith Lia List Relation_Operators Operators_Properties Peano_dec Wellfounded.Inverse_Image Wellfounded.Inclusion) hydras(More_Arith Epsilon0 Hessenberg Simple_LexProd MoreLibHyps)