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