(* 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.
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.