(* Checks that f_equal does not reduce the term uselessly *)
(* Expected time < 1.00s *)
Fixpoint stupid (n : nat) : unit :=
match n with
| 0 => tt
| S n =>
let () := stupid n in
let () := stupid n in
tt
end.
Goal stupid 23 = stupid 23.
Timeout 5 Time f_equal.
Abort.
¤ Dauer der Verarbeitung: 0.28 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.
|