fact: Definition select_sub (r:regexp) : binary text := If productive r then text_sub else rclosure text_sub.
imports: TLC(LibTactics LibLogic LibReflect LibFun LibEpsilon LibList LibInt LibNat LibProd LibSum LibRelation LibWf LibFix LibStream) ZifyNat TLC.LibNat