fact: Definition xitr n m (r: guard n m) q' := let rq' := g_dot' [r] q' in let a := fst r in let p := sup (@g_inner_dot _ _ r _) q' in g_dot' ([g_elem a (p⋅(g_atom _ a⋅p)^*) a]++g_one' _) rq'.
imports: Coq.PArith.BinPosDef denum lset sums normalisation kat ka_completeness untyping regex gregex lsyntax syntax lang glang boolean atoms