diff options
| author | Maxime Dénès | 2017-05-25 16:06:47 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2017-05-25 16:06:47 +0200 |
| commit | 4ad6dbef69f9fd4cb1b55efc252d67325068e6b1 (patch) | |
| tree | 0c2c1f2310cf5751a2f97f29a0bfd5a8295d1da2 /test-suite | |
| parent | 48d56f49b1db47f393ef3e0f31d1b22adf497afa (diff) | |
| parent | 5c5f7c8d6a6ed8cbb99b12dde09fdbcc30ca8ab9 (diff) | |
Merge PR#637: Short cleaning of the interpretation path for constr_with_bindings
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/bugs/closed/5153.v | 8 | ||||
| -rw-r--r-- | test-suite/success/specialize.v | 8 |
2 files changed, 16 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/5153.v b/test-suite/bugs/closed/5153.v new file mode 100644 index 0000000000..be6407b5fa --- /dev/null +++ b/test-suite/bugs/closed/5153.v @@ -0,0 +1,8 @@ +(* An example where it does not hurt having more type-classes resolution *) +Class some_type := { Ty : Type }. +Instance: some_type := { Ty := nat }. +Arguments Ty : clear implicits. +Goal forall (H : forall t : some_type, @Ty t -> False) (H' : False -> 1 = 2), 1 = 2. +Proof. +intros H H'. +specialize (H' (@H _ O)). (* was failing *) diff --git a/test-suite/success/specialize.v b/test-suite/success/specialize.v index fba05cd902..4b41a509e5 100644 --- a/test-suite/success/specialize.v +++ b/test-suite/success/specialize.v @@ -72,3 +72,11 @@ intros. specialize (H 1) as ->. reflexivity. Qed. + +(* A test from corn *) + +Goal (forall x y, x=0 -> y=0 -> True) -> True. +intros. +specialize (fun z => H 0 z eq_refl). +exact (H 0 eq_refl). +Qed. |