fact: Definition fst n m (x: guard n m) := match x with g_pred a | g_elem a _ _ => a end.
imports: Coq.PArith.BinPosDef denum lset sums normalisation kat ka_completeness untyping regex gregex lsyntax syntax lang glang boolean atoms