diff options
| author | Hugo Herbelin | 2019-12-05 20:57:01 +0100 |
|---|---|---|
| committer | Hugo Herbelin | 2019-12-05 21:15:24 +0100 |
| commit | eff360695af18476bfca0edfdea467cbf9203984 (patch) | |
| tree | 6382e3198ed0ba3bffbf1f038974d8bd59ca3dcb /test-suite | |
| parent | effbc03b9072ff94f96e54a5026ce04d7aa41bcc (diff) | |
Unfortunate bug with "cofix with": case of a CProdN over no bindings.
Failing on CProdN([],...) was maybe a bit too radical.
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/success/RecTutorial.v | 4 | ||||
| -rw-r--r-- | test-suite/success/cofixtac.v | 10 |
2 files changed, 10 insertions, 4 deletions
diff --git a/test-suite/success/RecTutorial.v b/test-suite/success/RecTutorial.v index 6370cab6b2..4fac798f76 100644 --- a/test-suite/success/RecTutorial.v +++ b/test-suite/success/RecTutorial.v @@ -1210,7 +1210,3 @@ Proof. constructor. trivial. Qed. - - - - 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. |