diff options
Diffstat (limited to 'mathcomp')
| -rw-r--r-- | mathcomp/Make.test-suite | 1 | ||||
| -rw-r--r-- | mathcomp/test_suite/test_guard.v | 6 |
2 files changed, 7 insertions, 0 deletions
diff --git a/mathcomp/Make.test-suite b/mathcomp/Make.test-suite index 99d8289..2be741b 100644 --- a/mathcomp/Make.test-suite +++ b/mathcomp/Make.test-suite @@ -1,5 +1,6 @@ test_suite/hierarchy_test.v test_suite/test_ssrAC.v +test_suite/test_guard.v -I . -R . mathcomp 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). |