fact: Fixpoint build_seq (f : ℕ → ℕ) (k : ℕ) := match k with | O => f O | S m => f (S (seq_of_max f (build_seq f m))) end.
imports: Coq.Reals.Reals ZArith Lra Classical Classical_Pred_Type ClassicalChoice Automation Libs.Negation Notations Tactics Waterprove