Set Primitive Projections.
Record foo : Type := Foo { foo_car: nat }.
Goal forall x y : nat, x <> y -> Foo x <> Foo y.
Proof.
intros.
intros H'.
congruence.
Qed.
Record bar (A : Type) : Type := Bar { bar_car: A }.
Goal forall x y : nat, x <> y -> Bar nat x <> Bar nat y.
Proof.
intros.
intros H'.
congruence.
Qed.
¤ Dauer der Verarbeitung: 0.28 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.
|