diff options
| author | Pierre-Marie Pédrot | 2017-08-28 01:27:19 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2017-08-29 17:20:40 +0200 |
| commit | 4bbe2e4e2a9d5dea1a07f8cf0d7e3aeeed609201 (patch) | |
| tree | d1cce37d079076c0eb2808fea2a33b38da17cc83 /test-suite | |
| parent | 5fb53743cc14047b4be12c188c21c6f679bdbd8f (diff) | |
Properly handling parameters of primitive projections in cctac.
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/bugs/closed/5697.v | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/5697.v b/test-suite/bugs/closed/5697.v index a17229aaff..c653f992af 100644 --- a/test-suite/bugs/closed/5697.v +++ b/test-suite/bugs/closed/5697.v @@ -8,3 +8,12 @@ intros. intros H'. congruence. Qed. + +Record bar (A : Type) : Type := Bar { bar_car: A }. + +Goal forall x y : nat, x <> y -> Bar nat x <> Bar nat y. +Proof. +intros. +intros H'. +congruence. +Qed. |