fact: Definition Clogs (L:language) p w := forall (x y z:word), w = x ++ y ++ z -> y <> [] -> length (x ++ y) <= p -> exists i, ~ In (x ++ (pow y i) ++ z) L.
imports: Coq.Strings.Ascii Coq.Lists.List Coq.Strings.Ascii Coq.Arith.PeanoNat Coq.micromega.Lia Turing.Lang Turing.Regex Turing.Util