fact: Definition with_upcast {s : Sort} {A} {a : A} : (forall (C : A -> Type), ttac (C a)) -> forall C : (A -> s), ttac (C a) := match s with | Propₛ => fun t (f : A -> Prop) => t f | Typeₛ => fun t (f : A -> Type) => t f end.
imports: Mtac2(Base Datatypes List Sorts tactics.Tactics) Strings.String Strings.String