(* Checking that terms are evar-free before being grounded *)
(* This used to raise an anomaly in 8.9 beta *)
Fail Fixpoint restrict f n :=
match n with
| O => nil
| S n => cons (f n) (restrict f n)
end.
¤ 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.
|