diff options
| author | Matthieu Sozeau | 2014-10-15 10:43:03 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2014-10-15 11:49:00 +0200 |
| commit | 04ee4f9160dec2d854bd45fcff4dac08ada39b61 (patch) | |
| tree | 360bf2853a7ab56a386faa207bf88881a3345eb7 /test-suite/bugs | |
| parent | 6bcb0ebf3552e544db8b3ac8f7d00beaec81059d (diff) | |
Implement a different strategy to expand primitive projections only when
required, i.e. in first-order unification cases where the head of the
other side is a hole or the eta-expanded constant.
Diffstat (limited to 'test-suite/bugs')
| -rw-r--r-- | test-suite/bugs/closed/3625.v | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/3625.v b/test-suite/bugs/closed/3625.v index a0f977eeae..3d30b62f80 100644 --- a/test-suite/bugs/closed/3625.v +++ b/test-suite/bugs/closed/3625.v @@ -4,6 +4,8 @@ Record prod A B := pair { fst : A ; snd : B }. Goal forall x y : prod Set Set, x.(@fst _ _) = y.(@fst _ _). intros. + refine (f_equal _ _). + Undo. apply f_equal. admit. Qed. |