fact: Definition dist_to_next A (P:A->Prop) (s:stream A) := epsilon (first_st_at P s).
imports: TLC(LibTactics LibLogic LibReflect LibFun LibEpsilon LibList LibInt LibNat LibProd LibSum LibRelation LibWf LibFix LibStream) ZifyNat