1 files changed, 25 insertions, 0 deletions
diff --git a/Test/triggers/useless-triggers-are-removed.dfy b/Test/triggers/useless-triggers-are-removed.dfy
new file mode 100644
index 00000000..658890f2
--- /dev/null
+++ b/Test/triggers/useless-triggers-are-removed.dfy
@@ -0,0 +1,25 @@
+// RUN: %dafny /compile:0 /print:"%t.print" /dprint:"%t.dprint" /autoTriggers:1 /printTooltips "%s" > "%t"
+// RUN: %diff "%s.expect" "%t"
+
+// This file ensures that Dafny does get rid of redundant triggers before
+// annotating a quantifier, and that ths process does not interfere with cycle
+// detection.
+
+function f(x: int): int
+function g(x: int): int
+function h(x: int): int
+
+method M()
+  // In the following, only f(x) is kept. Note that the subset enumeration was
+  // already smart enough to not build any trigger with multiple terms (it only
+  // built 5 candidates)
+  requires forall x: int :: f(x) + g(f(x)) + h(f(x)) + g(h(f(x))) + h(g(f(x))) == 0
+
+  // Loop detection still works fine: in the following example, the trigger is
+  // f(f(x))
+  requires forall x: int :: f(x) == f(f(x))
+
+  // This works for multi-triggers, too:
+  requires forall x, y :: f(x) + g(f(y)) + g(y) + g(f(x)) == 0
+{
+}