(* Examples of use of Scheme Equality *)
Module A.
Definition N := nat.
Inductive list := nil | cons : N -> list -> list.
Scheme Equality for list.
End A.
Module B.
Section A.
Context A (eq_A:A->A->bool)
(A_bl : forall x y, eq_A x y = true -> x = y)
(A_lb : forall x y, x = y -> eq_A x y = true).
Inductive I := C : A -> I.
Scheme Equality for I.
End A.
End B.
Module C.
Parameter A : Type.
Parameter eq_A : A->A->bool.
Parameter A_bl : forall x y, eq_A x y = true -> x = y.
Parameter A_lb : forall x y, x = y -> eq_A x y = true.
Hint Resolve A_bl A_lb : core.
Inductive I := C : A -> I.
Scheme Equality for I.
Inductive J := D : list A -> J.
Scheme Equality for J.
End C.
¤ Dauer der Verarbeitung: 0.13 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.
|