fact: Definition mtmmatch' A m (T : forall x, MTele_Ty (m x)) (y : A) (ps : mlist (branch A (fun x => MFA (T x)))) : selem_of (MFA (T y)) := curry_C Propₛ (fun a : ArgsOf (m y) => (fix mmatch' (ps : mlist (branch A (fun x => MFA (T x)))) := match ps with | [m:] => M.raise NoPatternMatches | p :m: ps' => M.mtry' (open_branch p) (fun e => mif M.unify e DoesNotMatch UniMatchNoRed then mmatch' ps' else M.raise e) end) ps ).
imports: Mtac2(Base Logic Datatypes List MTele)