aboutsummaryrefslogtreecommitdiff
path: root/mathcomp/test_suite
diff options
context:
space:
mode:
authoraffeldt-aist2020-04-10 15:31:34 +0200
committerGitHub2020-04-10 15:31:34 +0200
commitbdb7ba0daeb2ea8487dfc12578a2d69f44a39751 (patch)
treee16111e1a759416906f84557c7a7e5f940616bb1 /mathcomp/test_suite
parent74089ef84dca48c11cae79f7f49a7060160c0000 (diff)
parentb4673a3f6d06a4ff38789fd82f33dd517186eb44 (diff)
Merge pull request #471 from math-comp/all2_guard_cond
Make `all2` better wrt the guard condition
Diffstat (limited to 'mathcomp/test_suite')
-rw-r--r--mathcomp/test_suite/test_guard.v6
1 files changed, 6 insertions, 0 deletions
diff --git a/mathcomp/test_suite/test_guard.v b/mathcomp/test_suite/test_guard.v
new file mode 100644
index 0000000..1e93a2c
--- /dev/null
+++ b/mathcomp/test_suite/test_guard.v
@@ -0,0 +1,6 @@
+From mathcomp Require Import all_ssreflect.
+
+Inductive tree := Node { children : seq tree }.
+
+Fixpoint eq_tree (x y : tree) {struct x} : bool :=
+ all2 eq_tree (children x) (children y).