|
(* Check evar-evar unification *)
Inductive T (A: Set): Set := mkT: unit -> T A.
Definition f (A: Set) (l: T A): unit := tt.
Arguments f [A].
Lemma L (x: T unit): (unit -> T unit) -> unit.
Proof.
refine (match x return _ with mkT _ n => fun g => f (g _) end).
trivial.
Qed.
¤ Dauer der Verarbeitung: 0.12 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.
|
