fact: Definition typed_intro (T : Type) : tactic := fun g => U <- M.goal_type g; mmatch U with | [? P:T->Type] forall x:T, P x => intro_simpl (FreshFrom U) g | _ => M.raise NotThatType end.
imports: Strings.String ssrmatching.ssrmatching Mtac2(Logic Datatypes List Utils Logic Sorts MTeleMatch) Strings.String NArith.BinNat NArith.BinNatDef