aboutsummaryrefslogtreecommitdiff
path: root/test-suite/complexity
diff options
context:
space:
mode:
authorHugo Herbelin2015-11-07 10:47:34 +0100
committerHugo Herbelin2015-11-07 10:47:34 +0100
commit2f6daa7f4d0f4fae5a3fffdabf675d5b249ee377 (patch)
treecc05840b59dfb748ad3f761224f29a940f592a7c /test-suite/complexity
parent55a765faa95d7be9a1e4c37096139f57f288f55a (diff)
parentc5d380548ef5597b77c7ab1fce252704deefeaf1 (diff)
Merge remote-tracking branch 'origin/v8.5' into upstream-trunk
- Had to add a Sigma.to_evar_map - Had to rework coqdep_common.ml{,i} and coqdep.ml
Diffstat (limited to 'test-suite/complexity')
-rw-r--r--test-suite/complexity/f_equal.v14
1 files changed, 14 insertions, 0 deletions
diff --git a/test-suite/complexity/f_equal.v b/test-suite/complexity/f_equal.v
new file mode 100644
index 0000000000..86698fa872
--- /dev/null
+++ b/test-suite/complexity/f_equal.v
@@ -0,0 +1,14 @@
+(* 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.