(* Checking that let-in's hiding evars are expanded when enforcing
"occur-check" *)
Require Import List.
Definition foo x y :=
let xy := (x, y) in
let bar xys :=
match xys with
| nil => xy :: nil
| xy' :: xys' => xy' :: xys'
end in bar (nil : list (nat * nat)).
¤ 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.
|