Set Primitive Projections.
Set Implicit Arguments.
Set Universe Polymorphism.
Inductive paths A (x : A) : A -> Type := idpath : paths x x.
Notation "x = y :> A" := (@paths A x y).
Notation "x = y" := (x = y :> _).
Record foo := { x : Type; H : x = x }.
Create HintDb bar discriminated.
Hint Resolve H : bar.
Goal forall y : foo, @x y = @x y.
intro y.
progress auto with bar. (* failed to progress *)
Abort.
¤ Dauer der Verarbeitung: 0.3 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|