fact: Definition le_lower (mlen : m <= n) (p : Parser Toks Tok M A n) : Parser Toks Tok M A m := MkParser (fun _ plem => runParser p (Nat.le_trans _ _ _ plem mlen)).
imports: Coq(PeanoNat) parseque(Category Induction Sized NEList Success EqDec)