fact: Definition open_branch {A} {m} {T : forall x, MTele_Ty (m x)} {y : A} {a : ArgsOf (m y)} (b : branch A (fun x => MFA (T x))) : M (apply_sort (T y) a) := let open_pattern' := @open_pattern A m T y a in match b in branch A P return (pattern A P -> _) -> M _ with | branch_pattern p => fun open_pattern' => open_pattern' p | _ => fun _ => mfail "Unsupported branch type in mtmmatch: " b end open_pattern'.
imports: Mtac2(Base Logic Datatypes List MTele)