fact: Fixpoint first_satisfying_element_helper (rel : ℕ → ℕ → bool) (k : ℕ) (N : ℕ) := match k with | O => N | S l => if (rel (N-k)%nat (N-k)%nat) then k else (first_satisfying_element_helper rel l N) end.
imports: Coq.Reals.Reals ZArith Lra Classical Classical_Pred_Type ClassicalChoice Automation Libs.Negation Notations Tactics Waterprove