proposition: Lemma R1_remove_r_i : forall i h, R1 (add_r h (S i)) (add_r h i).
proof: Proof. destruct h; constructor; apply S0_remove_r_i. 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)