test-suite/output-modulo-time/ltacprof.v


1
2
3
4
5
6
7
8

(* -*- coq-prog-args: ("-emacs" "-profile-ltac-cutoff" "0.0") -*- *)
Ltac sleep' := do 100 (do 100 (do 100 idtac)).
Ltac sleep := sleep'.

Theorem x : True.
Proof.
  idtac. idtac. sleep. constructor.
Defined.