aboutsummaryrefslogtreecommitdiff
path: root/test-suite/success/cofixtac.v
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/success/cofixtac.v')
-rw-r--r--test-suite/success/cofixtac.v10
1 files changed, 10 insertions, 0 deletions
diff --git a/test-suite/success/cofixtac.v b/test-suite/success/cofixtac.v
new file mode 100644
index 0000000000..ae75ee770f
--- /dev/null
+++ b/test-suite/success/cofixtac.v
@@ -0,0 +1,10 @@
+CoInductive stream :=
+| C : content -> stream
+with content :=
+| D : nat -> stream -> content.
+
+Lemma one : stream.
+cofix c with (d : content).
+- constructor. apply d.
+- constructor. exact 1. apply c.
+Defined.