fact: Definition mmatch' {A:Type} {P: A -> Type} (E : Exception) (ps : mlist (Mbranch A P)) (y : A) : t (P y) := Eval lazy beta zeta iota delta [mmatch''] in mmatch'' E y (raise NoPatternMatches) ps.
imports: Strings.String NArith.BinNat Mtac2(Logic Datatypes Logic List Utils MTele Pattern Specif)