fact: Definition gword_to_word' (w: gword) := match w with | tnil a => [] | tcons a i w => lp (l_var i) :: gword_to_word (t i) w end.
imports: Coq.PArith.BinPosDef denum lset sums normalisation kat ka_completeness untyping regex gregex lsyntax syntax lang glang boolean atoms