Parameter A : Type. Parameter S : A -> Type. Parameter Seq : forall {a:A}, relation (S a).
Axiom Seq_refl : forall {a:A} (x : S a), Seq x x. Axiom Seq_sym : forall {a:A} (x y : S a), Seq x y -> Seq y x. Axiom Seq_trans : forall {a:A} (x y z : S a), Seq x y -> Seq y z ->
Seq x z.
Add Parametric Relation a : (S a) Seq reflexivity proved by Seq_refl symmetry proved by Seq_sym
transitivity proved by Seq_trans as S_Setoid.
Goalforall (a : A) (x y : S a), Seq x y -> Seq x y. intros a x y H. setoid_replace x with y. reflexivity. trivial. Qed.
¤ Dauer der Verarbeitung: 0.24 Sekunden
(vorverarbeitet)
¤
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.