(* Computing the type constraints to be satisfied when building the
return clause of a match with a match *)
SetImplicitArguments. Set Asymmetric Patterns.
Parameter A : Type. Parameter typ : A -> Type.
Inductive t : list A -> Type :=
| snil : t nil
| scons : forall (x : A) (e : typ x) (lx : list A) (le : t lx), t (x::lx).
Definition car (x:A) (lx : list A) (s: t (x::lx)) : typ x := match s in t l' with
| snil => False
| scons _ e _ _ => e end.
Messung V0.5 in Prozent
¤ 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.0.18Bemerkung:
(vorverarbeitet am 2026-04-26)
¤
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 und die Messung sind noch experimentell.