fact: Fixpoint match_goal_base {B} (u : Unification) (ps : mlist (goal_pattern B)) : gtactic B := fun g => match ps with | [m:] => M.raise NoPatternMatchesGoal | p :m: ps' => mtry match_goal_pattern u p g with DoesNotMatchGoal => match_goal_base u ps' g end end.
imports: Strings.String ssrmatching.ssrmatching Mtac2(Logic Datatypes List Utils Logic intf.Sorts) Strings.String NArith.BinNat NArith.BinNatDef