(* Expected time < 1.00s *) RequireImport Extraction.
Definition test (f : nat -> nat) (n : nat) : bool. Proof.
refine (let n := _ in match n with 0 => true | S n => false end).
do 40 refine (let n := _ in f n). exact n. Defined.
Time Recursive Extraction test.
¤ Dauer der Verarbeitung: 0.11 Sekunden
(vorverarbeitet)
¤
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.