fact: Fixpoint g_str' n (x: guards n n) := match x with | [] => g_one' _ | r::q => let q' := g_str' q in q' ++ g_dot' q' (xitr r q') end.
imports: Coq.PArith.BinPosDef denum lset sums normalisation kat ka_completeness untyping regex gregex lsyntax syntax lang glang boolean atoms