fact: Definition o': forall n m, expr3 n m -> gregex n m := @eval _ src' tgt' (gregex_monoid_ops pred s t) id (fun l => match l return gregex (src' l) (tgt' l) with | l_pos n p => g_prd _ _ (lsyntax.e_var p) | l_neg n p => g_prd _ _ (! lsyntax.e_var p) | l_var i => g_var i end).
imports: Coq.PArith.BinPosDef denum lset sums normalisation kat ka_completeness untyping regex gregex lsyntax syntax lang glang boolean atoms