fact: Fixpoint ind_seq_of_seq_and_prop (k : nat) : {seq : nat -> A | P k seq} := match k with | O => exist _ (const_seq a0) H0 | S k => exist _ (const_seq_from (proj1_sig (Hstep _ _ (proj2_sig (ind_seq_of_seq_and_prop k)))) (S k) (proj1_sig (ind_seq_of_seq_and_prop k))) (proj2_sig (Hstep _ _ (proj2_sig (ind_seq_of_seq_and_prop k)))) end.
imports: Lia Arith Arith.Compare ClassicalChoice ChoiceFacts Libs.Analysis.SubsequencesMetric