fact: Fixpoint match_goal_base (u : Unification) (ps : mlist (goal_pattern)) : tactic := fun g => match ps with | [m:] => M.raise NoPatternMatchesGoal | p :m: ps' => mtry match_goal_pattern u p g with [#] DoesNotMatchGoal | =n> match_goal_base u ps' g end end%MC.
imports: Mtac2(Base Datatypes List Sorts tactics.Tactics) Strings.String Strings.String